Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereich, dann abbrechen

Bereich, dann abbrechen
21.02.2006 16:16:58
walter
Hallo Zusammen,
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich, dann abbrechen
21.02.2006 19:05:00
ChrisL
Hallo Walter
Ich verstehe nur Bahnhof und vermutlich geht es den anderen auch so. Vielleicht kannst du die Frage präzisieren und eine Beispieldatei ins Forum stellen.
Gruss
Chris
Entschuldigung aber...
21.02.2006 19:16:00
Walter
Hallo Chris,
ich bitte um Enschuldigung, versuche es mit einfachen Beispiel, ich bin auch etwas
viel mit anderen Dingen etc.
Wenn also das Filtern nichts ergibt soll eine Meldung kommen aber in meinem Druckmenü
um abzubrechen bzw. Hinweis zu geben und dann "rausgehen".
Hier noch einmal das 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

mfg walter
Anzeige
schon OK aber...
21.02.2006 19:41:43
ChrisL
Hallo Walter
Habe Verständnis betr. anderen Dingen etc. Leider geht es mir und den anderen Antworter ähnlich, darum werde ich betreffend Anschlussfragen auf eine Beispieldatei beharren (z.B. Zellenformate sind Coderelevant usw.).
Teste mal folgenden Code. Unter "DieseArbeitsmappe" einbinden (nicht Standardmodul!)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If WorksheetFunction.CountIf(Columns("E:E"), "05") = 0 Then
MsgBox "Warnung blabla"
Cancel = True
End If
End Sub

Gruss
Chris
Nein leider
21.02.2006 20:08:12
Walter
Hallo Chris, leider nicht geklappt,
habe das am anfang meines Druckmenüs gesetzt:
If WorksheetFunction.CountIf(Columns("E:E"), "00") = 0 Then
MsgBox "Warnung blabla"
' Cancel = True
Exit Sub
Else
Wenn z.b. "03" eine Zeile angezeigt wird, wird ebenfalls blabla angezeigt und nicht ausgedruckt.
Im übrigen gilt das für 00, 01, 03 04 und 05.
Gruß Walter
Anzeige
AW: Nein leider
21.02.2006 20:28:43
ChrisL
Hallo Walter
Nun sind wir beim Zellenformat angelangt, welches mir meine Kristallkugel leider nicht verraten hat.
Ein definitiv letztes mal Rätselraten:
If WorksheetFunction.CountIf(Columns("E:E"), 5) = 0 Then
Gruss
Chris
Ich weiß auch nicht mehr weiter...Bitte !
21.02.2006 20:46:45
Walter
Hallo Chris,
ich habe auch keinen Rat mehr.
Kann man den irgendwie wenn Filter gesetzt ist und man hat nichts rausbekommen irgendwie
was machen Spalte Leer, abbrechen..
Gruß Walter
Habe halbe Lösung... !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
21.02.2006 21:13:55
Walter
Hallo Chris,
habe folgendes eingesetzt:
If WorksheetFunction.CountIf(Columns("E:E"), "00") = 0 Then
MsgBox "Warnung blabla"
Else
MsgBox "weiter"
so, wenn bei "00" was gefiltert wurde, ging es mit MsgBox "weiter",
wenn NICHTS drin war, war mit MsgBox "Warnung blabla" SCHLU?, also genau wie ich es
brauch.
Nun hab ich nur das Problem ich muß noch "01", "03", "04" und "05" einbinden,
jetzt brauch ich Fachmanns Rat.
mfg Walter
Anzeige
AW: Habe halbe Lösung... !!!!!!!!!!!!!!!!!!!!!!!!!
21.02.2006 21:58:37
Uduuh
Hallo,
wie wählst du denn aus, wonach du filtern willst?
Gruß aus’m Pott
Udo

AW: Habe halbe Lösung... !!!!!!!!!!!!!!!!!!!!!!!!!
21.02.2006 22:29:54
Walter
Hallo Udo,
in der Spalte "E" Filter( Range("E7").Select
Selection.AutoFilter Field:=5, Criteria1:="00")
dann jeweils auch nach 01, 03, 04, und 05.
gruß Walter
AW: Habe halbe Lösung... !!!!!!!!!!!!!!!!!!!!!!!!!
21.02.2006 22:29:57
Walter
Hallo Udo,
in der Spalte "E" Filter( Range("E7").Select
Selection.AutoFilter Field:=5, Criteria1:="00")
dann jeweils auch nach 01, 03, 04, und 05.
gruß Walter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige