Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code fehler 400

Forumthread: 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
Anzeige

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
Anzeige
;

Forumthreads zu verwandten 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
Error 400 : Anwendungs- oder objektdef. Fehler
Henry

Moin,
ich benutze diesen Code wenn icheine Formel in eine Spalte bis zur letzten Zeile füllen möchte : ( der funktioniert ) Sub Tag() Dim iRow As Integer iRow = Cells(Rows.Count, 1).End(xlUp).Row Range("F2").Formula = "=TEXT(RC[-2],""TTTT"")" Range("F2:F" & iRow).FillDown End Sub
...
27.08.2014 15:58:15
Thread-ID: 1378507
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: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
VBA CODE KÜRZEN / INTELLIGENT & RUNTIME ERROR
Mark.

Hallo liebe Community,
es geht um den Beitrag:
Archiv IDX:1474392
Datum: 2016-02-09 17:54:31
Titel: VBA Code Kürzen / INTELLIGENTER schreiben
anhängend könnt Ihr die Beispieldatei finden.
https://www.herber.de/bbs/user/103521.xlsm
diese Datei muss in dem s...
13.02.2016 12:23:55
Thread-ID: 1475231
5 Beiträge
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 - 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
VBA Fehler X und die Zahl 400
lay

Hallo zusammen, ich brauch Hilfe!
Folgendes Problem, nach Eingabe der Daten und 2 kleinen Makros, die lediglich die Daten sortieren, habe ich die Datei gespeichert und geschlossen.
Beim öffnen dieser Datei wird mir ein weißes Kreuz (X) in einem roten Kreis und der Zahl 400 angezeigt.
03.09.2019 10:59:32
Thread-ID: 1710877
13 Beiträge
Microsoft Visual Basic Class not registered
stephan

Hallo und guten Tag,

ich habe einer Bekannten von mir eine Excel97 Datei gemailt. Diese erhält nun beim Öffnen die Fehlermeldung :

"Microsoft Visual Basic" Class not registered. Looking for object with CLSid:
{AC9F2F90-E877-11CE-9F68-00AA00574A4F}

Kann mir jemand sage...
07.08.2003 11:46:47
Thread-ID: 291000
5 Beiträge
Visual Basic Fehlermeldung!
Silvi
Hallo!

kann mir jemand helfen? Bekomme eine merkwürdige Fehlermeldung beim Speichern einer Datei in der Makros enthalten sind.

Systemfehler: &H8000FFFF (-2147418113). Schwerer Fehler

Was kann ich denn da bloß falsch gemacht haben?

Hilfe!!!

Gruß
Sylvia
05.09.2003 11:20:53
Thread-ID: 305325
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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