Im zweiten Block müssen die a natürlich durch ein b ersetzt werden:
If Cells(i, 1) = "y" Then
Worksheets("Tabelle2").Cells(b, 14) = Cells(i, 4)
Worksheets("Tabelle2").Cells(b, 15) = Cells(i, 5)
Worksheets("Tabelle2").Cells(b, 16) = Cells(i, 7)
Worksheets("Tabelle2").Cells(b, 17) = Cells(i, 8)
b = b + 1
End If
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
|