[[programmiersprachen:beispielcode]]

Beispielcode

Dim inhalt As String
Dim Zelle
 
For Each Zelle In Range("A:A")
    Zelle.Activate
    With ActiveCell
           .Interior.ColorIndex = 3 'Hintergrundfarbe = rot
           End With
                        ' Alternativ außerhalb möglich: "ActiveCell.Interior.Color = vbRed"
Next
Sub ZellAdresse()
 
Dim spalte As String
Dim zeile As Long
Dim adresse as String
 
adresse = ActiveCell.Address(True, False))
spalte = Left(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$") - 1)
zeile = ActiveCell.Row
Cells(1, 1) = spalte & zeile
 
End Sub