Gruppe
Allgemein
Bereich
Bereich
Thema
Feststellen, ob eine bestimmte Zelle markiert ist
Problem
Wie kann ich feststellen, ob eine bestimmte Zelle in der aktuellen Markierung enthalten ist?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Markiert()
Dim rng As Range
Set rng = Range("B5")
If Intersect(rng, Selection) Is Nothing Then
MsgBox "Zelle " & rng.Address & " ist nicht markiert!"
Else
MsgBox "Zelle " & rng.Address & " ist markiert!"
End If
End Sub