Sub ErsteLeere()
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
End Sub
ermittelt die erste leere Zelle der spalte A
Gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr
als Anfang mit Abfrage, kopiere dies in Modul
Sub Leere_Zeile_finden_und_bereich_einfügen()
Dim strQuest As String
strQuest = MsgBox("KOPIEREN sind Sie sicher ? Kd-Nr + Name ausgefüllt ??? " & _
"", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Dim objZeile As Range
For Each objZeile In Worksheets("Journal").Rows
If IsEmpty(objZeile.Cells(1)) = True Then
Sheets("Quelle (2)").Range("A2:F2").Copy 'gewählte Bereich
Destination:=Worksheets("Journal").Cells(objZeile.Row, 1)
Exit Sub
End If
Next
gruss geri
End Sub