erneut benoetige ich eure Hilfe. Ich moechte den jeweiligen Inhalt der Zelle E1 kopieren und als Wert in die erste leere Zelle der Spalte L einfuegen.
Fuer eure Unterstuetzung im Voraus besten Dank.
mfg
Fritz
cells(rows.count,"L").end(xlup).offset(1).value = [E1]
Sub test()
Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "L").End(xlUp).Row + 1
Cells(lngZiel, "L").Value = Range("E1").Value
End Sub
Sub test()
Dim lngZiel As Long
lngZiel = Cells(Rows.Count, "L").End(xlUp).Row
If Cells(lngZiel, "L") = "" Then
lngZiel = 1
Else
lngZiel = lngZiel + 1
End If
Cells(lngZiel, "L").Value = Range("E1").Value
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen