Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code fehler 400

VBA Code fehler 400
25.01.2021 08:23:39
Ronald
Hallo Zäme
ich habe einen Code welcher zwar funktioniert, aber am Schluss komm X400 woran liegt das? 
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="123"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.FilterMode Then wksBlatt.ShowAllData
Next wksBlatt
End Sub

Wer kann mir da helfen?
Herzlichen Dank
LG Roni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code fehler 400
25.01.2021 08:59:41
Luschi
Halo Roni,
wksBlatt.ShowAllData funktioniert nur, wenn das entsprechende Arbeitsblatt auch aktiv ist (auf Monitor sichtbar), also vorher wksBlatt.Select
oder so: 

Dim wksBlatt As Worksheet, rg As Range, i1 As Integer, i2 As Integer
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.FilterMode Then
''Adreßbereich des Autofilters im Blatt
Set rg = wksBlatt.AutoFilter.Range
'Anzahl der Spalten im Autofilter
i1 = rg.Columns.Count
For i2 = 1 To i3
'in allen Felder den Autofilter aufheben
wksBlatt.Range(rg.Address).AutoFilter field:=i1
Next i2
End If
Next wksBlatt
Set wksBlatt = Nothing: Set rg = Nothing
Gruß von Luschi
aus klein-Paris
Anzeige
AW: kleine Korrektur
25.01.2021 09:33:23
Luschi
Hallo Roni, 

For i2 = 1 To i1
'in allen Felder den Autofilter aufheben
wksBlatt.Range(rg.Address).AutoFilter Field:=i2
Next i2
Gruß von Luschi
aus klein-Paris
AW: kleine Korrektur
25.01.2021 09:56:07
Herbert_Grom
Hallo Luschi,
kürzlich gab es in einer TV-Rate-Show die Frage, welche deutsche Stadt den Beinamen "klein-Paris" trägt! Dank dir wusste ich das natürlich sofort, und konnte meine Angelika, wieder einmal, mit meinem "riesigen Allgemeinwissen" beeindrucken! Danke dir dafür! ;o)=)
Servus

24 Forumthreads zu ähnlichen Themen

VisualBasic Fehlermeldung in Excel
Kazo

Hallo, ich muss für einen Kollegen in einer Excelliste eine Fehlermeldung erstellen, von der Erstellung solcher Angelegenheiten haben hier leider keine meiner Kollegen eine Ahnung! Ich absolviere momentan ein Praktikum und mir wurde diese Arbeit erteilt. Leider habe ich VB erst im nächsten Stud...
15.04.2014 09:22:41
Thread-ID: 1357331
10 Beiträge
Anzeige
VBA: find und instr oder iserror kombinieren
tomcatoggo

Hallo!
da ich jetzt etliche Stunden an diesem Problem hänge und einfach gar nicht verstehe, warum so eine (so dachte ich das zumindest) super simple Sache sich nicht lösen lässt, frage ich jetzt mal hier nach:
Ich denke ich brauche hier nix extra hochladen... hier die Beschreibung:
...
13.11.2014 15:26:30
Thread-ID: 1392217
6 Beiträge
VBA: find und instr oder iserror kombinieren
tomcatoggo

Hallo!
da ich jetzt etliche Stunden an diesem Problem hänge und einfach gar nicht verstehe, warum so eine (so dachte ich das zumindest) super simple Sache sich nicht lösen lässt, frage ich jetzt mal hier nach:
Ich denke ich brauche hier nix extra hochladen... hier die Beschreibung:
...
13.11.2014 15:49:45
Thread-ID: 1392225
2 Beiträge
Anzeige
VBA Fehler 400
torro100

Hallo
mit dem aufgeführten Code soll die nächste leere Zeile gefunden werden, beginnend ab Zeile 5, die Zeile 4 (dient als Vorlage; Zeile 3 und 4 sind versteckt)) soll dort hin kopiert werden, nur Formate und Formeln sollen beibehalten werden, die aktive Zelle soll in der neu eingefügten Z...
06.12.2016 14:09:13
Thread-ID: 1528843
4 Beiträge
VBA fehler 400
Angie

Guten Morgen meine Damen und Herren,
ich habe einen Code geschreibene und da kommt immer ein Fehler.
Sub Löschebereich() Range("F32:I38,F40:I47,F49:I51,F53:I54,F56:I58,F60:I61,F63:I66,F68:I73,F75:I77,F79:I81,F83:I85") _ .ClearContents End Sub
Es sollen die Zellen einfach entfernt...
26.11.2018 09:47:46
Thread-ID: 1659548
10 Beiträge
VBA - 400 (kein Error)
Steven

Hallo liebe Community,
ich stehe wirklich ganz ganz ganz am Anfang von Makros. Ich möchte durch klick auf einen Button, _ dass folgendes in einem anderen Tabellenblatt ausgeführt wird. Diesen Code nutze ich dafür. Sub HFB() ' alle Spalten (Spaltenbereich) ausblenden Columns("E:OV").Selec...
17.01.2019 11:10:37
Thread-ID: 1668781
14 Beiträge
VBA: if date endet in runtime error 13 mismatch
Tom

Hallo Experten
Werde nicht schlau, vielleicht einer der es direkt sieht. Ich nutze einen Datumsabgleich in einem Makro, um darüber eine Trial für das Excel zu machen. Also, ich gebe ein Datum im Makro vor und prüfe es im Vergleich zum heutigen Datum. An sich funktioniert es, wird das Excel...
17.06.2019 12:30:58
Thread-ID: 1698111
3 Beiträge
VBA Modul wirft in Asien Error ? hier nicht
Nati93

Hallo zusammen,
ich habe ein VBA Modul, welches mir eine von dem User ausgewählte Datei öffnet.
Gleichzeitig wird eine neue Excel geöffnet mit dem Namen "Bufferfile".
Leider bricht der Code bei Auswahl einer Datei des Users ab und zwar bisher nur in China ?... Bei uns funktioniert...
30.07.2019 10:10:33
Thread-ID: 1704911
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
5
1
4
3
9
13
2
4
12
4
6
3
1
2
2
7
1
4
2
2
5
5