ShowAllData fehlgeschlagen
27.02.2016 21:18:02
Lukas
Meine Datei: https://www.herber.de/bbs/user/103930.xlsm
Der Code:
Option Explicit
Private Sub cmbUnterkategorie_Change()
With cmbUnterkategorie
If .Value = "Ton" Or .Value = "Glas" Or .Value = "Glasscheibe" Or .Value = "Wolle" Then
lblArt.Caption = "Farbe:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte3"
cmbArt.Visible = True
ElseIf .Value = "Bretter" Or .Value = "Holz" Or .Value = "Zauntor" Then
lblArt.Caption = "Holzart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte4"
cmbArt.Visible = True
ElseIf .Value = "Zaun" Then
lblArt.Caption = "Zaunart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte5"
cmbArt.Visible = True
ElseIf .Value = "Treppe" Then
lblArt.Caption = "Treppenart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte9"
cmbArt.Visible = True
ElseIf .Value = "Tür" Then
lblArt.Caption = "Türenart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte7"
cmbArt.Visible = True
ElseIf .Value = "Falltür" Then
lblArt.Caption = "Falltürenart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte6"
cmbArt.Visible = True
ElseIf .Value = "Stufe" Then
lblArt.Caption = "Stufenart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte8"
cmbArt.Visible = True
ElseIf .Value = "Block" Then
lblArt.Caption = "Blockart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte10"
cmbArt.Visible = True
ElseIf .Value = "Erz" Then
lblArt.Caption = "Erz:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte11"
cmbArt.Visible = True
ElseIf .Value = "Mauer" Then
lblArt.Caption = "Mauerart:"
lblArt.Visible = True
Me.cmbArt.RowSource = "Spalte12"
cmbArt.Visible = True
Else
lblArt.Visible = False
cmbArt.Visible = False
End If
End With
Tabelle1.ShowAllData
Tabelle1.Range("A1:H1").AutoFilter field:=7, Criteria1:="Baumaterial"
Tabelle1.Range("A1:H1").AutoFilter field:=8, Criteria1:=cmbUnterkategorie.Text
Tabelle1.Range("A1:H1").AutoFilter field:=5, Criteria1:=cmbArt.Text
End Sub
Private Sub UserForm_Initialize()
Me.cmbUnterkategorie.RowSource = "Spalte2"
End Sub
Nun meine 1. Frage: Warum bekomme ich die Fehlermeldung "Die Methode ShowAllData für das Objekt _Worksheet ist fehlgeschlagen"? Was muss ich ändern bzw. was ist falsch?
Meine 2. Frage: Wie kann ich vor den Autofiltern immer auf eine Auswahl warten, sodass danach gefiltert werden kann? Also wie warte ich auf eine Auswahl?
Danke für die Antworten schon im Voraus!