Stel­len Sie die Be­zeich­nung der ers­ten Zel­le ei­nes mar­kier­ten Be­reichs fest

Mit­un­ter ist es erforder­lich, die Adres­se der ers­ten Zel­le ei­nes mar­kier­ten Bere­ichs fest­zu­stel­len. Per Def­i­n­i­tion ist die­ses nicht die ak­ti­ve Zel­le son­dern die Zel­le oben links. Das fol­gende Bild zeigt den Unter­schied auf:

Ers­te Zel­le vs. Ak­ti­ve Zel­le

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

 Wol­len Sie statt der Adres­se als String die ei­gent­li­che Zel­ladresse als Ran­ge zu­rück bekom­men, dann de­fi­nie­ren Sie die Vari­able als Ran­ge und die Zei­len 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 Ver­weis=„CS: Ers­te und Ak­ti­ve Zel­le”]