Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 137 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 134, 135, 136, 137, 138, 139, 140 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Kombinationsfeld - Zeilen Ein- und Ausblenden 
Phelan XLPH

Antworten: 9
Aufrufe: 294

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 18:31   Titel: AW: Kombinationsfeld - Zeilen Ein- und Ausblenden Version: Office 2010
Mach den Blattschutz raus!

...mal so hineingebrüllt. Very Happy
  Thema: niemand? 
Phelan XLPH

Antworten: 4
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 18:28   Titel: AW: niemand? Version: Office 2010
ääääähhhhhmmmm ich weiß alles, hier, frag mich Very Happy
  Thema: Stringzerlegung für absolute Profis 
Phelan XLPH

Antworten: 6
Aufrufe: 255

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 18:26   Titel: AW: Stringzerlegung für absolute Profis Version: Office 2010
Als UDF:

Function Artikel_Maße_Filtern(s)
Dim i As Long, Mass As String
s = Trim$(s)
s = Replace(s, "-", " ")
s = Split(s, " ")
For i = 1 To UBound(s)
If s(i) Like "*#X#*" Then Mass = s(i): Exit For
Next
Artikel_Maße_Filtern = s(0) & " " & Mass
End Function

Bsp.-Aufruf: =Artikel_Maße_Filtern(A1)
  Thema: Change Ereignis wenn Zelle = leer dann Zeilen ausblenden 
Phelan XLPH

Antworten: 5
Aufrufe: 1417

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 18:09   Titel: AW: Change Ereignis wenn Zelle = leer dann Zeilen ausblende Version: Office 2003
Etwas kürzer aber schlecht leserlich:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then Range("10:15,20:25").EntireRow.Hidden = (Trim(Target.Value) = "")
End Sub
  Thema: Bild als Verknüpfung einfügen 
Phelan XLPH

Antworten: 5
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 18:02   Titel: AW: Bild als Verknüpfung einfügen Version: Office 2010
Hallo,

nicht wirklich. Confused

Wie macht sich das bemerkbar?
  Thema: Fehler bei application.match - typen unverträglich 
Phelan XLPH

Antworten: 6
Aufrufe: 1986

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 17:57   Titel: AW: Fehler bei application.match - typen unverträglich Version: Office 2003
Warum suchst du nicht gleich in der Schleife?

Private Sub Werte_uebergeben(ARegeln As Variant, ERegeln As Variant, Merkmale As Variant, datenfeld As Variant, zfg As Integer, zeilenfarbe As Boolean)
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim test 'Suchwert Abfrage
Dim suchwert1 As String 'Zwischenspeicher TMT Baugruppe
Dim suchwert2 As String 'Merkmalsname (kryptisch) zur identifikation des sprechenden Namens
Dim suchwert3 As String 'für ERegeln
Dim auspraegungen As String 'für die Inhalte der Kommentarfelder
Dim HelpArray(1 To 40000) As Variant 'eindimensionaler Array für die Suche im Array: ARegeln
Dim blnGefunden As Boolean


'Regeln übertragen ins Ausgabe Sheet
Sheets(datenfeld(15)).Select 'Auswahl des passenden Ausgabesheets
suchwert1 = Cells(zfg, 2) '.Value 'Suche über TMT-Element Nummer

If datenfeld ...
  Thema: Bild als Verknüpfung einfügen 
Phelan XLPH

Antworten: 5
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 17:40   Titel: Bild als Verknüpfung einfügen Version: Office 2010
Hallo,

ich versuch auf 3 verschiedene Arten ein Bild einzufügen (s. unten).

Ich merk da aber keinen Unterschied, aufgezeichnet aber auch nicht.

3 mal der gleiche Code:
ActiveSheet.Pictures.Insert("C:\Users\PH\Pictures\einstein.jpg").Select

Wie füge ich ein Bild in Excel und per VBA ein Bild als Verknüpfung ein?

Was mach ich da falsch?
  Thema: IsWorkbookOpen mit unterschiedlichen Dateiendungen 
Phelan XLPH

Antworten: 13
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 17:24   Titel: AW: IsWorkbookOpen mit unterschiedlichen Dateiendungen Version: Office 2003
y_Lieferant_Right = Workbooks(WBFile_Lieferanten_Files).ActiveSheet.Cells(11, 256).EndxlToLeft).Column
  Thema: Do While Vergleichswertzeile 
Phelan XLPH

Antworten: 3
Aufrufe: 332

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Jul 2012, 17:17   Titel: AW: Do While Vergleichswertzeile Version: Office 2003
Hallo,

das kannst du leicht mit Excel-Funktionen lösen.

Sub SuchInKreuztabelle()
Dim vSuchwertSp As Variant 'in Spalte
Dim vSuchwertZe As Variant 'in Zeilen
Dim vPosSp As Variant
Dim vPosZe As Variant
Dim vFundWert As Variant

vSuchwertZe = "P" 'Bsp.
vSuchwertSp = "y" 'Bsp.

With Worksheets("907662")
With .Range(.Cells(3, 4), .UsedRange.SpecialCells(xlCellTypeLastCell))
vPosSp = Application.Match(vSuchwertZe, .Rows(1), 0)
vPosZe = Application.Match(vSuchwertSp, .Columns(1), 0)
If IsError(vPosSp) Then MsgBox "Spalten-Überschrift nicht vorhanden!", , "Abbruch": Exit Sub
If IsError(vPosZe) Then MsgBox "Zeilen-Überschrift nicht vorhanden!", , "Abbruch": Exit Sub
vFundWert = WorksheetFunction.Index ...
  Thema: Funktion früft String 
Phelan XLPH

Antworten: 19
Aufrufe: 412

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 19:18   Titel: AW: Funktion früft String Version: Office 2007
und ich schrieb:

... erfüllt zumindest die Bedingungen

Ist doch wahr oder nicht? Very Happy
  Thema: Mehrere Tabellen zusammenführen und konsolidieren 
Phelan XLPH

Antworten: 2
Aufrufe: 581

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 19:12   Titel: AW: Mehrere Tabellen zusammenführen und konsolidieren Version: Office 2007
so vielleicht?
  Thema: Mehrere Tabellen zusammenführen und konsolidieren 
Phelan XLPH

Antworten: 2
Aufrufe: 581

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 17:31   Titel: AW: Mehrere Tabellen zusammenführen und konsolidieren Version: Office 2007
Steht in Spalte A der Name? Kennzeichnet dieser eindeutig einen Datensatz?
Wie unterscheiden sich die Gäste von den Stammteilnehmern?
  Thema: alle Datein aus Order auslesen und dazu spezielle Zelle(n) 
Phelan XLPH

Antworten: 3
Aufrufe: 112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 16:51   Titel: AW: alle Datein aus Order auslesen und dazu spezielle Zelle( Version: Office 2003
Was ist der Unterschied zwischen Dateiname und Projektname?
  Thema: IsWorkbookOpen mit unterschiedlichen Dateiendungen 
Phelan XLPH

Antworten: 13
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 16:40   Titel: AW: IsWorkbookOpen mit unterschiedlichen Dateiendungen Version: Office 2003
Leider hilft uns nicht der Funktionsaufruf, poste den Code der Funktion.

>> IsWorkbookOpen
  Thema: Zellen inhalt nach einem Zeilienumbruch abschneiden 
Phelan XLPH

Antworten: 2
Aufrufe: 111

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Jul 2012, 16:32   Titel: AW: Zellen inhalt nach einem Zeilienumbruch abschneiden Version: Office 2010
vergleich = left$(Cells(1, x).value,instr(Cells(1, x).value, vblf)-1)
 
Seite 137 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 134, 135, 136, 137, 138, 139, 140 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln