Bereich, dann abbrechen
21.02.2006 16:16:58
walter
ich habe folgende Abfrage, die allerdings mit einer Fehlermeldung endet.
If ActiveSheet.Range("A4:A") = "" Then
MsgBox " kein Fahrzeug gefunden Kein Ausdruck"
Exit Sub
Else..
Vorher hab ich mit diesem Makro Gefiltert:
in der Tabelle wird mir nichts angzeigt, außer Zeile 1-3, danach wird sofort die Zeile 13 eingezeigt.
Bis zur Zeile 13 ist sonst die Tabelle gefüllt.
Ich möchte allerdings wenn in der Filterung nichts gefunden wurde das der Druck verhindert wird.
Filter-Makro:
Private Sub OptionButton5_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("vv")
Range("A3:AB3").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
Range("E7").Select
Selection.AutoFilter Field:=5, Criteria1:="05"
Application.ScreenUpdating = True
End Sub
Gruß walter