Hallo,

ich möchte Zellen der i-ten Zeile von dem Spaltenbereich 1 bis 5 von einem Tabellenblatt in ein anderes in die i-te Zeile kopieren. Leider klappt das nicht. Was mache ich falsch? Vielen Dank für die Hilfe im Voraus.

Viele Grüße,

Joerg

i= Zeilenvariable, ez= letzte gefüllte Zelle

Sub uebertragen()
Dim ez As Integer, i As Integer

'ez ermitteln
i = 6
Do Until (ActiveSheet.Cells(i, 1) = "")
    i = i + 1
Loop
ez = i - 1

For i = 6 To ez
    If (Sheets("Daten").Cells(i, 2) <> "") Then
        Sheets("Daten").Range(Cells(i, 1), Cells(i, 5)).Copy _
        Destination:=Sheets("Salat-Mix").Cells(i, 1)
    Else
    End If
Next i
End Sub