wie bekomme ich von einer Markierung die Zelle sowie die Spalte der oberen linken und unteren rechten Ecke heraus (jeweils als Einzelwert!)?
Danke Oli
Sub Offset00()
'ZeilenNr.
MsgBox Selection.Address & vbLf & Selection.Offset(0, 0).Address
MsgBox Selection.Row & vbLf & Selection.Offset(0, 0).Row
End Sub
Grundsätzlich ist noch die Frage, ob es sich bei der Markierung um eine Einfachmarkierung handelt
oder ob das eine Mehrfachmarkierung sein kann.
Für Einfachmarkierungen würde ich das so machen:
Sub ErstLetzt()
MsgBox "Erste: Zeile " & Selection.Row & _
" Spalte " & Selection.Column & vbLf & _
"Letzte: Zeile " & Selection(Selection.Count).Row & _
" Spalte " & Selection(Selection.Count).Column
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Public Sub Koordinaten()
Dim Bereich As String
Dim vTemp As Variant
Dim iIndex As Integer
MsgBox Selection.Address(0, 0)
Bereich = Selection.Address(0, 0)
MsgBox Left(Bereich, Len(Bereich) - InStr(Bereich, ":"))
vTemp = Split(Bereich, ":")
If UBound(vTemp) > 0 Then
MsgBox "Die Markierung geht von " & vTemp(0) & " bis " & vTemp(1)
Else
MsgBox "Die Markierung betrifft Zelle " & vTemp(0)
End If
End Sub
Gruß Peter