Hallo Holger,
dein Code klappt Super. Nur ich habe etwas falsch geschrieben. und zwar soll die Zeile P von x nach B4 dann alle weiteren einträge von x untereinander bis keine x mehr vorhanden sind. Danach soll von der Zeile P von y da weiter Einträge mach wo x aufgehört hat, weiteren einträge von y kopieren bis keine y mehr vorhanden sind.
wießt du dazu auch eine Lösung?
Ach ja Danke für die schnelle Beantwortung.
P.S.: Das mit der ListBox habe ich anders gelöst.
gruß
Balta
Holger schrieb am 27.09.2008 10:50:41:
Hallo balta,
leider kann ich derzeit nicht im forum antworten, deshalb ein neuer Beitrag.
Versuche es mit (ungetestet!):
Sub SpezKop()
Dim a, b, i
Worksheets("Tabelle1").Activate
a = 1
b = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "x" Then
Worksheets("Tabelle2").Cells(a, 7) = Cells(i, 2)
Worksheets("Tabelle2").Cells(a, 8) = Cells(i, 3)
Worksheets("Tabelle2").Cells(a, 9) = Cells(i, 6)
Worksheets("Tabelle2").Cells(a, 10) = Cells(i, 7)
Worksheets("Tabelle2").Cells(a, 11) = Cells(i, 8)
a = a + 1
End If
If Cells(i, 1) = "y" Then
Worksheets("Tabelle2").Cells(a, 14) = Cells(i, 4)
Worksheets("Tabelle2").Cells(a, 15) = Cells(i, 5)
Worksheets("Tabelle2").Cells(a, 16) = Cells(i, 7)
Worksheets("Tabelle2").Cells(a, 17) = Cells(i, 8)
b = b + 1
End If
Next i
End Sub
Was ist mit den Fehlermeldungen deiens ListBox-Problemes?
Gruß
Holger
|