Hallo zusammen,
bekomme folgendes nicht gebacken:
With Workbooks("Mappe1.xls").Sheets("Daten").Range("A:A")
Set c = .Find(What:=Merkmalnummer(j), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Zeile = c.Row
b = Workbooks("Mappe1.xls").Sheets("Daten").Range("A1:A" & Zeile).Find(What:="First", SearchDirection:=xlPrevious).Row
For Hilfszähler = 10 To 253 Step 3
'wenn Spalte keine Daten mehr vorhanden dann Schleife verlassen
If Cells(b, Hilfszähler) = 0 Then Exit For
'Abfrage ob Zelle einen Wert enthält
If Cells(Zeile, Hilfszähler - 1) "" Then
'Werte auslesen
Workbooks("Mappe2").Sheets("Tabelle1").Cells(aa, bb) = Cells(b, Hilfszähler)
Workbooks("Mappe2").Sheets("Tabelle1").Cells(aa, bb + 4) = Cells(Zeile, Hilfszähler -1)
End If
aa = aa + 1
Next Hilfszähler
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstaddress
End If
End With
Das Problem ist, beim Start werden noch durch die Find-Methode zwei verschiedene Zeilen gefunden, das auch immer der Fall sein soll. Wenn ich nun zu FindNext komme, wird nicht mehr nach der Merkmalnummer gesucht, sonder zweimal nach dem String "First".
Wie bekomme ich das hin?
Für Eure Hilfe wäre ich Euch sehr dankbar.
Gruß Sophie