====== Beispielcode ======
  * [[http://www.marusoft.de/vba_schnipsel.htm|VBA-Snipsel]]


===== Zelleigenschaften ändern =====

<code vb>
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
</code>

===== Zellenadresse ausgeben =====

<code vb>
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
</code>