Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

syntaxfehler

• syntaxfehler von mikatigra vom 01.10.2003 12:33:23
  • AW: syntaxfehler - von WernerB. am 01.10.2003 13:06:51

Betrifft: syntaxfehler von: mikatigra
Geschrieben am: 01.10.2003 12:33:23

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.




Betrifft: AW: syntaxfehler von: WernerB.
Geschrieben am: 01.10.2003 13:06:51

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.