Zelle mit Datenüberprüfung
25.07.2022 14:27:58
Tim
ich möchte gern einzelne Daten (Zeile für Zeile) von einer Tabelle in eine andere Schreiben und das in die nächste freie Zeile.
Dazu habe ich einiges bereits im Forum gefunden, jedoch funktioniert es noch nicht so wirklich.
Mein Problem ist, dass er nicht aufhört, den ersten Datensatz schreiben, statt weiter die Ursprungstabelle zu durchlaufen und den nächsten Datensatz zu nehmen, bis er fertig ist.
Sub Test()
Datei = "Test1.xlsx"
Datei1 = "Zieltabelle.xlsm"
Set Datenbank = Workbooks("Test1.xlsx")
Set DB_Blatt = Datenbank.Worksheets("Tabelle1")
Set Ziel= Workbooks("Ziel.xlsx")
Set aktuellerMonat = Ziel.Worksheets("Juli")
letzteZeile = DB_Blatt.Cells(DB_Blatt.Rows.Count, 1).End(xlUp).Row
letzteZeile1 = aktuellerMonat.Cells(aktuellerMonat.Rows.Count, 1).End(xlUp).Row
NächsteZeile = 1
With DB_Blatt
For i = 2 To letzteZeile
Do
If aktuellerMonat.Cells(NächsteZeile, 1) = "" Then
aktuellerMonat.Cells(NächsteZeile, 1) = DB_Blatt.Cells(i, 1)
End If
NächsteZeile = NächsteZeile + 1
Loop While NächsteZeile