Microsoft Excel

Herbers Excel/VBA-Archiv

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

syntaxfehler

    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.