Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

syntaxfehler

syntaxfehler
01.10.2003 12:33:23
mikatigra
Hallo zusammen,
ich habe folgenden Code aufgezeichnet und um die if-Schleife ergänzt.

If Selection.AutoFilter Field:=2, Criteria1:="1" Then
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Columns("R:R").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

Habe aber leider schon in der 1. Zeile einen Syntax-Fehler.
Kann mir jmd. den Syntax-Fehler erklären und beseitigen?
Danke.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: syntaxfehler
01.10.2003 13:06:51
WernerB.
Hallo ???,

in diesem Forum bitte mit Real(Vor)Namen auftreten (siehe dazu auch Forums-FAQ!). Danke!

Zu Deinem Problem:


Sub Mika()
Dim varKriterium1 As Variant
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(2)
If .On Then varKriterium1 = .Criteria1
End With
Else
MsgBox "Autofilter ist nixht aktiv. Makroabbruch !"
Exit Sub
End If
End With
If varKriterium1 = "=1" Then
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Columns("R:R").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

Gruß WernerB.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige