Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ShowAllData fehlgeschlagen

Forumthread: ShowAllData fehlgeschlagen

ShowAllData fehlgeschlagen
27.02.2016 21:18:02
Lukas
Hi, ich Programmiere in Excel VBA gerade ein Formular...
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!

    Anzeige

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: ShowAllData fehlgeschlagen
    27.02.2016 22:30:53
    Uduuh
    Hallo,
    1. Frage: Wahrscheinlich weil die Tabelle nicht gefiltert ist.
    If Tabelle1.Filtermode Then Tabelle1.ShowAllData
    2. Frage: Da kenne ich keine Möglichkeit. Filtern löst kein Ereignis aus.
    Anstatt der ElseIf würde ich mit Select Case arbeiten.
    Gruß aus’m Pott
    Udo

    Anzeige
    AW: ShowAllData fehlgeschlagen
    28.02.2016 11:42:58
    Lukas
    Vielen Dank für eure Hilfe bisher! Ich habe mir allerdings generell überlegt, den Code ein wenig umzubauen. Neues Dokument: http://www.file-upload.net/download-11347394/Minecraft-Liste.xlsm.html
    Ich habe nun auf die Zusatztabelle mit den Datensätzen verzichtet, da das zu viel Arbeit beanspruchen würde. Ich entnehme nun die Daten direkt aus dem gefilterten. Das mit dem Filtern funktioniert soweit auch, allerdings wird nun sobald ich z.B. Ton ausgewählt habe, das neue drop Down nicht mehr eingeblendet.
    Was habe ich falsch gemacht?
    Danke für die Antworten schon im Voraus!

    Anzeige
    AW: ShowAllData fehlgeschlagen
    28.02.2016 11:51:41
    Lukas
    Vielen Dank für eure Hilfe bisher! Ich habe mir allerdings generell überlegt, den Code ein wenig umzubauen. Neues Dokument: http://www.file-upload.net/download-11347394/Minecraft-Liste.xlsm.html
    Code:
  • Option Explicit
    Private Sub cmbUnterkategorie_Change()
If Tabelle1.FilterMode = True Then
Tabelle1.ShowAllData
End If
Tabelle1.Range("berKategorie").AutoFilter Field:=1, Criteria1:="Baumaterial"
Do
Tabelle1.Range("berUnterkategorie").AutoFilter Field:=1, Criteria1:=cmbUnterkategorie. _
Text
Loop While cmbUnterkategorie = ""
With cmbUnterkategorie
Select Case cmbUnterkategorie
Case .Text = "Ton" Or .Text = "Glas" Or .Text = "Glasscheibe" Or .Text = "Wolle"
lblArt.Caption = "Farbe:"
lblArt.Visible = True
cmbArt.RowSource = "berArt"
cmbArt.Visible = True
End Select
End With
'With cmbUnterkategorie
'Select Case cmbUnterkategorie
'   Case .Value = "Ton" Or .Value = "Glas" Or .Value = "Glasscheibe" Or .Value = "Wolle"
'      lblArt.Caption = "Farbe:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte3"
'      cmbArt.Visible = True
'   Case .Value = "Bretter" Or .Value = "Holz" Or .Value = "Zauntor"
'      lblArt.Caption = "Holzart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte4"
'      cmbArt.Visible = True
'   Case .Value = "Zaun"
'      lblArt.Caption = "Zaunart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte5"
'      cmbArt.Visible = True
'   Case .Value = "Treppe"
'      lblArt.Caption = "Treppenart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte9"
'      cmbArt.Visible = True
'   Case .Value = "Tür"
'      lblArt.Caption = "Türenart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte7"
'      cmbArt.Visible = True
'   Case .Value = "Falltür"
'      lblArt.Caption = "Falltürenart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte6"
'      cmbArt.Visible = True
'   Case .Value = "Stufe"
'      lblArt.Caption = "Stufenart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte8"
'      cmbArt.Visible = True
'   Case .Value = "Block"
'      lblArt.Caption = "Blockart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte10"
'      cmbArt.Visible = True
'   Case .Value = "Erz"
'      lblArt.Caption = "Erz:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte11"
'      cmbArt.Visible = True
'   Case .Value = "Mauer"
'      lblArt.Caption = "Mauerart:"
'      lblArt.Visible = True
'      Me.cmbArt.RowSource = "Spalte12"
'      cmbArt.Visible = True
'   Case Else
'      lblArt.Visible = False
'      cmbArt.Visible = False
'End Select
'End With
'If Tabelle1.FilterMode = True Then
'Tabelle1.ShowAllData
'End If
'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


    • Ich habe nun auf die Zusatztabelle mit den Datensätzen verzichtet, da das zu viel Arbeit beanspruchen würde. Ich entnehme nun die Daten direkt aus dem gefilterten. Das mit dem Filtern funktioniert soweit auch, allerdings wird nun sobald ich z.B. Ton ausgewählt habe, das neue drop Down nicht mehr eingeblendet.
    Was habe ich falsch gemacht?
    Danke für die Antworten schon im Voraus!

    Anzeige
    Zu 2.: Ein Ereignis würde ausgelöst wdn, ...
    27.02.2016 23:55:05
    Luc:-?
    …Lukas (& Udo),
    falls eine ZellFml des Blattes mit TEILERGEBNIS(101ff;…) bzw AGGREGAT(…;1|3|5|7;…) arbeitet, nämlich Worksheet_Calculate, aber erst nach Filterung. Wenn dir das reicht, war's das wohl. Ansonsten müsstest du in einer Do…Loop-Schleife mit/nach DoEvents den Auswahl-Status permanent abfragen. Ändert der sich (auf typische Weise), kann die Schleife mit Exit Do verlassen wdn, was es dann ebenfalls war.
    Feedback erwünscht! Gruß, Luc :-?
    Besser informiert mit …
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    ShowAllData
    Thomas

    Hallo zusammen,
    ich verwende in meiner Datei Filter. Mit ShowAllData setze ich den Filter zurück.
    Dieses Zurücksetzen dauert sehr lange (liegt auch an den PCs).
    Gibt es eine schnellere Möglichkeit?
    Gruß
    Thomas
    28.09.2010 22:09:28
    Thread-ID: 1179681
    2 Beiträge
    Show All Data unsicher bei Worksheet deactivate
    Dietmar

    Hallo in die Runde,
    01
    ich habe in einer Arbeitsmappe eine Statistikseite, die regelmäßig in der letzten freien Zeile _ durch folgendem Code mit Daten befüllt wird: Sub TagesergebnisInStatistik() Application.EnableEvents = False With Worksheets("Statistik") .Unprotect Password:="1234"...
    02.03.2011 17:42:24
    Thread-ID: 1203862
    2 Beiträge
    Spalte Pivottabelle per VBA markieren, Error 1004
    Michael

    Hallo zusammen,
    ich habe ein Excelsheet mit einer Pivottabelle. Gerne würde ich per VBA die erste Spalte auswä _ hlen. Dazu habe ich diesen Ablauf mit dem Macro-Recorder aufgezeichnet. Dabei entsteht folgender Code: ActiveSheet.PivotTables("PivotTable1").PivotSelect _ "'[Importdatei].[Vers...
    16.12.2016 17:27:25
    Thread-ID: 1530566
    2 Beiträge
    ShowAllData: Fehlermeldung unterdrücken
    Vera

    Hallo.
    Wenn ich ShowAllData in meinem aufgezeichneten VBA-Makro aufrufe und vorher keine Datensätze ausgeblendet waren, erhalte ich eine Fehlermeldung.
    Wie könnte ich abfangen dass ShowAllData gar nicht nicht erst aufgerufen wird, wenn keine Datensätze ausgeblendet sind?
    Vera
    19.08.2003 17:02:31
    Thread-ID: 297061
    3 Beiträge
    Showalldata Problem
    Lars
    Hallo an alle Excel Genialen !!

    Habe ein Problem mit dem Showalldata-Befehl. In meiner Tabelle habe ich mehrere Makros eingebaut. Diese schützen das Blatt nach dem Beenden des jeweiligen Befehles, bzw. entsperren das Blatt vor Beginn des Ablaufes des Befehles. Mit den Makros wird auf versch...
    27.08.2003 17:49:45
    Thread-ID: 300994
    5 Beiträge
    nach ActiveSheet.ShowDataForm alle cellen in A gro
    franzel
    Hallo Leute,

    ich schon wieder gebe in tabelle 1 über showdataform daten ein, wenn die form geschloßen ist möchte ich danach alle einträge in der Spalte in groß umwandeln.

    mein code sieht so aus: wo liegt der fehler ?????
    Sub eingabe() Application.DisplayAlerts = False ActiveSh...
    09.09.2003 22:40:53
    Thread-ID: 307549
    6 Beiträge
    ShowAllData Problem!
    Martin

    Hallo,
    ich habe folgende Schwierigkeit:
    Ich benutzte die Methode ShowAllData um beim Schliessen einer Mappe einen Filter (AutoFilter) zurückzusetzen, aber wenn ich das Programm zu einem anderen Computer übertrage und die Filter manuell setze, dann bekomme beim Schliessen eine Fehlermeld...
    19.10.2004 09:22:19
    Thread-ID: 502811
    5 Beiträge
    ShowAllData
    Turiel

    Hi,
    kleines Problem mit leider großen Auswirkungen in VBA:
    If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
    End If
    liefert ständig einen Laufzeitfehler (ShowAllData des Worksheet-Objektes kann nicht aufgerufen werden)
    Wäre dankbar für schnelle Lösungsvorschläge, s...
    06.07.2005 08:44:57
    Thread-ID: 633366
    4 Beiträge
    Autofilter - ActiveSheet.ShowAllData Problem
    Bjoern

    Hallo Forumsteilnehmer,
    ich habe ein kleines Problem, dass sich sicher schnell lösen lässt. Leider habe ich mittels der Recherche nicht das gefunden, was ich gesucht habe.
    Ich habe eine Datei, die ich mittels eines Makros auslese. In der Datei, die ich auswerte ist ein Autofilter enthal...
    21.06.2006 09:56:58
    Thread-ID: 775057
    4 Beiträge
    VBA Error 1004
    Kerumi

    Hallo Zusammen.
    Ich habe nach einem Code gesucht, der es mir ermöglicht bestimmte Zeilen (Zellen) zu kopieren, wenn die Bedingung "Text xy" erfüllt ist...
    Soll heissen, wenn in Zelle G5 der Text "Test" steht soll Zelle G5 und H5 in Tabellenblat 2 kopiert werden.
    Bin dazu auch halbw...
    14.04.2020 15:19:13
    Thread-ID: 1752444
    9 Beiträge
    ShowAllData 3 Datentabellen ein Blatt
    marc_w@web.de
    Hallo,
    ich habe ein Tabellenblatt mit mehreren Datentabellen (Strg+T oder Einfügen/Tabelle). Es soll nun per VBA ein möglicher Filter der Datentabellen gelöscht werden.
    Kann ShowAllData auch gezielt auf bestimmte Datentabellen/Namensbereiche angewendet werden? Hab dies bisher nur auf das Tab...
    19.07.2021 11:07:18
    Thread-ID: 1839748
    3 Beiträge
    AutoFilter ShowAll nicht aktivem Blatt
    Steffen
    Hallo Zusammen,
    ich habe in mehreren Arbeitsblättern AutoFilter und möchte gern alle Filterkriterien zurücksetzen.
    Dim WS1 As Worksheet, WS2 As Worksheet
    Set WS1= Workbooks("Mappe1").Sheets("T1")
    Set WS2= Workbooks("Mappe1").Sheets("T2")
    WS1.ShowAllData
    WS2.ShowAllData
    ...
    11.12.2022 21:27:08
    Thread-ID: 1910867
    4 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige