Zeilenteile kopieren in andere Tabelle
29.06.2004 15:37:22
Sinaida
ich möchte innerhalb einer Arbeitsmappe mittels VBA aus einer „Hauptdatenbasis“ (Tabelle1) nach bestimmten Namen suchen (ähnl. Filterfunktion). Wenn der Suchbegriff auftaucht, soll Zelle B und Zelle E der jeweiligen Zeile in Tabelle2 kopiert werden.
Dort sollen diese Werte dann Zeilenweise ohne Leerzeile eingefügt werden. Also unabhängig von der Zeilennummer in Tabelle1.
Ich habe nun folgenden Code, bei dem allerdings viele Leerzeilen in Tabelle2 sind....
Private Sub CommandButton1_Click()
x = 4
Do Until Application.WorksheetFunction.CountBlank(Worksheets(1).Rows(x)) = 256
x = x + 1
If Worksheets(1).Cells(x, 4) = "BM" Then
Worksheets(2).Cells(x, 1) = Worksheets(1).Cells(x, 2)
Worksheets(2).Cells(x, 2) = Worksheets(1).Cells(x, 5)
End If
Loop
End Sub
Wie kann funktionier das richtig….? Ohne die Leerzeilen zu kopieren....
Anzeige