Schleife
11.01.2009 18:43:00
Weis
Eine Schleife (oder ähnliches) soll die Zeilen einer Tabelle prüfen.
Je nach dem ausgelesenen Wert des in Spalte 1 stehenden Wertes, soll die Zeile dann in ein Tabellenblatt kopiert werden.
Wenn Wert 1 dann Tabellenblatt 4
Wenn Wert 2 dann Tabellenblatt 5
wenn Wert 3 dann....usw.
Ich habe mit If Schleifen gespielt aber leider keine Ahnung. Bisher klappt nur
Wenn Wert 1 dann kopieren in festes Tabellenblatt
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim iRow As Integer, iRowL As Integer, iRowT As Integer
Set wks = Worksheets("Tabelle2")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If InStr(Cells(iRow, 1).Value, "3") Then
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(iRow).Copy wks.Rows(iRowT)
End If
Next iRow
wks.Columns.AutoFit
Application.CutCopyMode = False
End Sub
Für schlauer machen wäre ich dankbar.