nächste freie zeile finden
10.02.2022 12:16:53
unwissender
ich weiß nicht weiter, habe eine funktion die daten aus dem blatt1 (quelle) nach blatt2 (ziel) spalte B kopiert und danach die spalte A mit "mein text" füllt und bis zum ende auffüllt - funktioniert super (siehe unten)
ABER: wenn ich dieselbe funktion nacheinander ausführe, schreibt er den text "mein text" nicht an die nächste freie zeile, sondern wieder in die zweite zeile
ist bestimmt auch umständlich geschieben (sorry bin anfänger), trotzdem muss es doch gehen?
die msgbox gibt immer die zeile 2 - warum?
Set Quelle = Sheets("tabelle1").Range(Sheets("tabelle1").Cells(2, 3), Sheets("tabelle1").Cells(Sheets("tabelle1").Rows.Count, 2).End(xlUp).Offset(0, 23))
Set Ziel = Sheets("Druck_alle").Cells(Sheets("Druck_alle").Rows.Count, 2).End(xlUp).Offset(1, 0)
Quelle.Copy Destination:=Ziel
Application.CutCopyMode = False
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Druck_alle")
.Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = "mein text"
.Range(.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0), .Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).Value = "mein text"
End With
Set Quelle = Sheets("tabelle2").Range(Sheets("tabelle2").Cells(2, 3), Sheets("tabelle2").Cells(Sheets("tabelle2").Rows.Count, 2).End(xlUp).Offset(0, 23))
Set Ziel = Sheets("Druck_alle").Cells(Sheets("Druck_alle").Rows.Count, 2).End(xlUp).Offset(1, 0)
Quelle.Copy Destination:=Ziel
Application.CutCopyMode = False
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Druck_alle")
.Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = "mein text"
.Range(.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0), .Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).Value = "mein text"
End With
Anzeige