VBA-Skript .showalldata Fehlermeldung

Hallo Community,

ich habe ein Skript geschrieben, welches mir automatisch beim starten alle Filter in jeder Tabelle entfernt und in die Letzten Zeilen der Tabellen springt.
in meinen Test-Dateien funktioniert es auch ohne Probleme.
Nun habe ich bei uns eine größere Projektdatei mit Kundennamen und internen Verlinkungen auf andere Dateien welche gut über 17000 Zeilen besitzt, die natürlich gefiltert werden muss.

Wenn ich hier das Makro einbaue, bekomme ich allerdings diesmal eine Fehlermeldung

Laufzeitfehler 1003
die Methode .showalldata wurde in _worksheet nicht gefunden (so in etwa)

ich packe hier mal mein Skript dazu:

unter Diese Arbeitsmappe habe ich folgenden Code:

Private Sub Workbook_Open()

Call EntfFilter
Call forEachWs
Call LetzteZeile
End Sub

Dazu eine Methode mit Folgenden Code:

Sub EntfFilter()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
With wks
            If .FilterMode Then
                .ShowAllData
                [A7].Select
                End If
      End With
Next
End Sub

Sub forEachWs()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    LetzteZeile
Next
End Sub

Sub LetzteZeile()
   x = ActiveSheet.UsedRange.Rows.Count
    Cells(x + 1, 1).Select
    
End Sub

Ich bin leider total überfragt, da es grundsätzlich ja in meinen Testdateien funktioniert.

Vielleicht kann mir da einer weiterhelfen?

Gruß,
Fabian

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 394539

Url: https://administrator.de/contentid/394539

Ausgedruckt am: 13.11.2024 um 06:11 Uhr

3 Kommentare

Neuester Kommentar

Zeile 6 ersetzen durch

.AutoFilterMode = False

Hi,

danke für die Antwort. Funktioniert auch soweit.
Allerdings entfernt er jetzt die Gesamten Filter und nicht nur die gefilterten Werte.

Ich glaube, da gabs ein Kommunikationsproblem

die Filter an und für sich sollen schon noch bleiben, nur die gesetzten Werte sollen zurückgesetzt werden, sodass der gesamte Datensatz wieder angezeigt wird

Vielen Dank aber auch für die schnelle Reaktion!

Gruß,
Fabian