Allerdings werden nicht alle Zeilen übertragen und nicht alle leeren Zeilen gelöscht. Woran liegt das?
Noch besser wäre eine Lückenlose Übertragung ohne das löschen der Zeilen. Aber wie?
Danke für Eure Hilfe!
Woran liegt das?
an unserer matten Glaskugel
Gruß
Rudi
Private Sub CommandButton1_Click()
For x = 6 To 25
y = x + 3
If Not Sheets("Tabelle1").Cells(x, 3).Value = "" Then
Sheets("Tabelle2").Cells(y, 2).Value = Sheets("Tabelle1").Cells(x, 2).Value
Sheets("Tabelle2").Cells(y, 3).Value = Sheets("Tabelle1").Cells(x, 3).Value
End If
Next
Sheets("Tabelle2").Select
For i = 9 To 28
If Sheets("Tabelle2").Cells(i, 3) = "" Then
Application.Rows(i).Delete
End If
Next
End Sub