Zelle mit Datenüberprüfung

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim wsQ As Worksheet 'Quelle Dim wsZ As Worksheet 'Ziel Set wsQ = Workbooks("Test1.xlsx").Worksheets("Tabelle1") Set wsZ = Workbooks("Ziel.xlsx").Worksheets("Juli") For Each Z In Range(wsQ.Range("A2"), wsQ.Cells(Rows.Count, 1).End(xlUp)) If Z.Value "" Then wsZ.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Z.Value Next End Sub

Sub Test() Dim wsQ As Worksheet 'Quelle Dim wsZ As Worksheet 'Ziel Dim Z As Range 'Lauf-Variable für Zelle Set wsQ = Workbooks("Test1.xlsx").Worksheets("Tabelle1") Set wsZ = Workbooks("Ziel.xlsx").Worksheets("Juli") For Each Z In Range(wsQ.Range("A2"), wsQ.Cells(Rows.Count, 1).End(xlUp)) If Z.Value "" Then wsZ.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Z.Value Next End Sub

Sub Unit() Dim aktuellerMonat As Worksheet: Set aktuellerMonat = Workbooks("Ziel.xlsx").Worksheets("Juli") Dim letzteZeile1 As Long: letzteZeile1 = aktuellerMonat.Cells(aktuellerMonat.Rows.Count, 1).End(xlUp).Row Dim nächsteZeile As Long: nächsteZeile = 1 With Workbooks("Test1.xlsx").Worksheets("Tabelle1") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row Do If aktuellerMonat.Cells(nächsteZeile, 1) = "" Then aktuellerMonat.Cells(nächsteZeile, 1) = .Cells(i, 1) Exit Do End If nächsteZeile = nächsteZeile + 1 Loop While nächsteZeile

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread