Hey Leute, bin grade dabei ein kleinen Code zu schreiben der Zeilenhöhe durch klicken auf einen Button hoch oder runter setzt (siehe mein anderes Thema!)
Funktioniert auch soweit alles super, nur will ich noch eine Abfrage einbauen die erkennt ob auch wirklich eine Zelle ausgewählt wurde oder evtl. eine Grafik -> Würde zu einem Fehler führen.
Hat jemand eine Idee wie ich das abfangen könnte?!
Ideen aus dem Internet (die aber leider nicht funktionieren… zumindest bei mir)
Public Sub Aufruf()
If TypeName(Selection) = „Range“ Then
machwas
Else
mach_was_anderes
End If
End Sub
by ransi
oder
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
by herber.de