Zellkoordinaten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zellkoordinaten
von: MikeS
Geschrieben am: 12.12.2003 09:54:21

Hallo,

wie kann ich die letzte, bzw. erste Zelle eines markierten Bereichs auslesen?

z.B. markierter Bereich = C5:F12

erste Zelle = C5

letzte Zelle = F12

Vielen Dank

MikeS

Bild


Betrifft: AW: Zellkoordinaten
von: Boris
Geschrieben am: 12.12.2003 10:37:21

Hi Mike,

so in der Art:

Option Explicit


Sub adressen()
Dim S As String, firstAddr As String, lastAddr As String
S = Selection.Address(0, 0)
If InStr(1, S, ",") > 0 Then
    MsgBox "Mehrfachmarkierung. Keine Angabe möglich."
    Exit Sub
End If
If Selection.Cells.Count > 1 Then
    firstAddr = Left(S, InStr(1, S, ":") - 1)
    lastAddr = Mid(S, InStr(1, S, ":") + 1)
Else
    firstAddr = S
    lastAddr = S
End If
MsgBox "Erste Adresse: " & firstAddr & Chr(10) _
        & "Letzte Adresse: " & lastAddr
End Sub


Grüße Boris


Bild


Betrifft: funzt perfekt
von: MikeS
Geschrieben am: 12.12.2003 10:42:03

Hallo Boris,

vielen Dank für Deine Hilfe.

Ciao MikeS


Bild


Betrifft: AW: Zellkoordinaten
von: Eugen
Geschrieben am: 12.12.2003 10:42:29

Hallo Mike,

mit diesem Code hast du die Koordinaten der ersten und der letzten Zelle in einer Variable.

varFirst = ActiveWindow.RangeSelection.Address(False, False)

Gruß Eugen


Bild

Beiträge aus den Excel-Beispielen zum Thema " "Makro-knopf" automatisch einbinden"