AW: ultra penibel richtig:
26.11.2021 09:55:39
Luschi
Hallo Sebastian,
bei mir geht das so:
Sub Abw_Kopieren()
Dim rg1 As Range, rg2 As Range
With Worksheets("Info")
'Bereich mit leeren Zellen am Schluß und erspart mir das Zählen mit den Fingern
'da ich in 10 min schon wieder vergessen habe, daß Spalt 'U' doe SpaltenNr. 21 hat
Set rg1 = Range(.Cells(1, "U"), .Cells(.Rows.Count, "U").End(xlUp))
'letzte Zelle mit Wert in Spalte 'U'
Set rg2 = rg1.Find("*", rg1.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious, False, False, False)
End With
'Bereich neu festlegen 'U1' bis rg2
Set rg1 = rg1.Cells(1, 1).Resize(rg2.Row)
rg1.Copy
Set rg1 = Nothing: Set rg2 = Nothing
End Sub
Gruß von Luschi
aus klein-Paris