Inputbox abbrechen Fehler Objekt erforderlich
27.11.2018 10:06:40
Dieter(Drummer)
folgender Code mit eigenen Apassungen wirft Fehler auf.
Der Ursprungscode von Daniel, ohne meine Anpassungen, fuktioniert prima und Danke nochmal dafür.
Es soll, wenn bei Inputbox "Abbrechen (Candel)" gedrückt wird, der Code beendet werden. Wenn die Farbe ausgewählt werden kann und dann Abbrechen gewählt wird, funktioniert der Abbruch.
Mein bisheriger Versuch (Fett) funktioniert nicht.
Mit Bitte um Hilfe,
grüßt Dieter(Drummer)
'Herber: von Daniel am 16.11.2018 11:32:52
'Mx: Abbruch (Abbruch funtioniert nicht)
Sub FarbeInZelleAktuell()
Dim vntInput As Variant
If StrPtr(vntInput) = 0 Then Exit Sub 'Abbrechen gedrückt
Application.InputBox("Bitte wählen sie die zu färbende Zelle aus," & vbLf & _
"Strg-Taste gedrückt halten bei Zellauswahl.", Type:=8).Select '8 = Zellbezug, z.B. ein Range - _
Objekt
Application.CommandBars.ExecuteMso "FontShadingColorMoreColorsDialog"
End Sub
Musterdatei: https://www.herber.de/bbs/user/125677.xlsm
Anzeige