Stellen Sie die Bezeichnung der ersten Zelle eines markierten Bereichs fest

Mitunter ist es erforder­lich, die Adresse der ersten Zelle eines markierten Bere­ichs festzustellen. Per Def­i­n­i­tion ist dieses nicht die aktive Zelle son­dern die Zelle oben links. Das fol­gende Bild zeigt den Unter­schied auf:

Erste Zelle vs. Aktive Zelle

Fol­gen­der Code wird bei­de Möglichkeit­en abdeck­en:

Sub ZelleAdresse()
   Dim strErsteZelle As String, strAktiveZelle As String
   If Selection.Cells.Count = 1 Then
      MsgBox "Nur 1 Zelle markiert: " & ActiveCell.Address(0, 0)
      Exit Sub
   End If
   strErsteZelle = Selection.Cells(1, 1).Address(0, 0)
   strAktiveZelle = ActiveCell.Address(0, 0)
   MsgBox "Die erste Zelle der Markierung ist: " & strErsteZelle & vbCrLf _
    & "Die Aktive Zelle der Markierung ist: " & strAktiveZelle
End Sub

 Wollen Sie statt der Adresse als String die eigentliche Zel­ladresse als Range zurück bekom­men, dann definieren Sie die Vari­able als Range und die Zeilen wür­den dann so ausse­hen:

   '[...]
   Dim rngErsteZelle As Range
   '[...]
   Set rngErsteZelle = Selection.Cells(1, 1)
   rngErsteZelle.Interior.Color = RGB(0, 255, 0) 'Hintergrund grün

 [NachOben­Let­zte Verweis=„CS: Erste und Aktive Zelle”]