ich habe eine UF mit mehreren Buttons und einer Inputbox. Wie kann ich "Abbrechen" abfangen?
Private Sub CommandButton5_Click()
Set rngBereich = Application.InputBox("Bitte mit Cursor Überschrift und Zähler markieren", Type:=8)
rngBereich.Activate
If ActiveSheet.AutoFilterMode Then 'wenn Filtermodus vorhanden
' ActiveSheet.Cells.FormatConditions.Delete 'löscht alle Bedingten Formatierungen im Blatt
With Intersect(Selection.EntireRow, ActiveSheet.AutoFilter.Range.EntireColumn)
With .FormatConditions.Add(Type:=xlExpression, Formula1:="=af_krit(ZS)")
.Interior.Color = 5296274
End With
End With
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
End If
uf_DWH_aufbereiten.Hide 'UF schließen
End Sub
Danke schon mal - Erwin