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
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