Sub til()
Dim C As Range
Set C = Selection
Debug.Print C.Column 'erste Spalte
Debug.Print C.Column + C.Columns.Count - 1 'letzte Spalte
Debug.Print C.Row 'erste Zeile
Debug.Print C.Row + C.Rows.Count - 1 'letzte Zeile
End Sub
If Selection.Areas.Count > 1 Then
Selection.Column
Selection.Column + Selection.Columns.Count - 1
Sub a()
MsgBox Selection.Cells(1).Address
MsgBox Selection.Cells(1).Row
MsgBox Selection.Cells(1).Column
End Sub
Sub b()
With Selection
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Address
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Row
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Column
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen