siehe Beispieldatei.
Die Datei https://www.herber.de/bbs/user/46242.xls wurde aus Datenschutzgründen gelöscht
Die Datei https://www.herber.de/bbs/user/46242.xls wurde aus Datenschutzgründen gelöscht
Private Sub CommandButton1_Click()
ActiveSheet.Range("D5:G" & _
ActiveSheet.Cells(ActiveSheet.Rows.Count, 7).End(xlUp).Row).Select
End Sub
GreetZ Renee
Sub markieren()
Range("d5", Range("g65536").End(xlUp)).Select
End Sub
In der Datei mit Button:
https://www.herber.de/bbs/user/46243.xls
Zu deiner Zufriedenheit?
gruß
Torsten