Leere Zelle finden

Hallo zusammen,
ich rätsle jetzt schon was länger. Ich möchte Daten von einer Liste in einer andere kopieren. Die Auswahl der relevanten Daten klappt auch. Das Kopieren in das neue Blatt macht mir Sorgen. Dort lösche ich nämlich bestimmte Daten nach gewissen Kriterien wieder.
Das sorgt in Summe dafür, dass ich in der Spalte A in dem Blatt, in das ich hinein kopiere, "Lücken" habe, die ich wieder mit den neuen Daten aus dem anderen Blatt füllen möchte. Und das in einer Schleife. Sprich, es kann sein, dass die Zelle A2 gefüllt ist, dann wieder A4 etc. Ich kenne die Funktion:
Cells(Rows.Count, 2).End(xlUp).Row + 1
Die sorgt aber grundsätzlich dafür, dass immer einfach unten an die letzte Zeile die neuen Werte angehängt werden. Da wird mir dann die Liste zu lang :) Hat jemand einen Code dafür? Lieben Dank.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Abgleich For Z1 = .Cells(65536, 1).End(xlUp).Row To 1 Step -1 If .Cells(Z1, 1) = "X" Then .Cells(Z1, 2).Copy End If With Kommentierung Z2 = Cells(1, 1).End(xlDown).Row + 1 .Cells(Z2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End With Application.CutCopyMode = False Next Z1 .Activate End With

With Abgleich For Z1 = .Cells(65536, 1).End(xlUp).Row To 1 Step -1 If .Cells(Z1, 1) = "X" Then .Cells(Z1, 2).Copy End If With Kommentierung Z2 = .Cells(1, 1).End(xlDown).Row + 1 .Cells(Z2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End With Application.CutCopyMode = False Next Z1 .Activate End With

Dim Z1 As Integer, Z2 As Integer With Abgleich For Z1 = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If .Cells(Z1, 1) = "X" Then .Cells(Z1, 2).Copy Z2 = Kommentierung.Cells(1, 1).End(xlDown).Row + 1 Kommentierung.Cells(Z2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End If Application.CutCopyMode = False Next Z1 .Activate End With

dim Ziel as range set Ziel = sheets("Zielsheet").cells(1,1) ' hier Schleife zum Abarbeiten der Quelldaten beginnen while Ziel "" set Ziel=Ziel.offset(1,0) wend Quelldaten.copy Ziel ' next Quellzeile

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zelle finden

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread