3
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:
Dazu eine Methode mit Folgenden Code:
Ich bin leider total überfragt, da es grundsätzlich ja in meinen Testdateien funktioniert.
Vielleicht kann mir da einer weiterhelfen?
Gruß,
Fabian
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 SubDazu 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 SubIch bin leider total überfragt, da es grundsätzlich ja in meinen Testdateien funktioniert.
Vielleicht kann mir da einer weiterhelfen?
Gruß,
Fabian
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 394539
Url: https://administrator.de/contentid/394539
Printed on: April 24, 2024 at 16:04 o'clock
3 Comments
Latest comment
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
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
Einfach nach der Zeile wieder Autofilter einschalten dann ist alles jungfräulich. Der Makrorekorder ist dein Freund!
