wie lautet der Befehl für die Markierung von B1 bis zur letzten Zelle (mit Daten gefüllt) (momentan: AB456, ändert sicher aber immer)
Barbara
Sub das_Letzte()
letzte_Spalte = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
letzte_Zeile = Sheets(1).Cells(Cells.Rows.Count).End(xlUp).Row
Sheets(1).Range(Cells(1, 2), Cells(letzte_Spalte, letzte_Zeile)).Select
End Sub
Gruß
Sheets(1).Range(Cells(1, 2), Cells(letzte_Spalte, letzte_Zeile)).Select
Sub Markieren()
Dim Bereich$
Bereich = ActiveSheet.UsedRange.Address
Range(Bereich).Select
End Sub
Gruß Matthias
Range(Cells(1, 2), Cells(1, 2).SpecialCells(xlLastCell)).Select
Gruß Matthias