Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code funktioniert nicht (Laufzeitfehler 1004)

Forumthread: Code funktioniert nicht (Laufzeitfehler 1004)

Code funktioniert nicht (Laufzeitfehler 1004)
14.01.2013 07:43:17
hugo
Hallo Leute
Ich habe in einer Excel-Datei (version 2003) folgenden Code: 
Private Sub TextBox1_Change()
Selection.AutoFilter Field:=1, Criteria1:="=" & Me.TextBox1 & "*", Operator:=xlAnd
End Sub

Leider funktioniert dieser mit Excel 97 nicht (Laufzeitfehler 1004). Weiss jemand von Euch wie ich diesen abändern muss damit er mit Excel 97 funktioniert?
Besten Dank für Eure Hilfe.
Gruss
hugo

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vermutungen
14.01.2013 10:00:55
Klaus
Hallo Hugo,
durch
Selection.
vermute ich, dass der Code etwas auf dem Tabellenblatt macht (den Autofilter setzen)
das
Me.
lässt aber vermuten, dass die TextBox1 in einer Userform steht. Richtig?
Sicher, dass es eine gültige "selection" gibt während die Userform aufgerufen ist? Versuch doch mal, den Code direkt zu referenzieren:
sheets("Tabelle1").Range("A3:C70").AutoFilter Field:=1, Criteria1:="=" & Me.TextBox1 & "*", Operator:=xlAnd
Vielleicht hilfts, vielleicht nicht. Da ich deine Datei nicht habe und auch kein Zugriff auf Office 97 kann ich das nicht testen und lasse den Beitrag offen.
Grüße,
Klaus M.vdT.
P.S.: Office 97? Also Office-vor-sechzen(!!)-Jahren? Ich sag nicht, dass jeder sofort auf Version 2013-64bit aufrüsten sollte ... aber vielleicht kannst du dein Problem einfacher umgehen, indem du schlicht auf V2003 aufrüstest? K.A. wie da die Marktlage ist, aber die Lizenzen dafür dürften doch nicht die Welt kosten.

Anzeige
AW: Vermutungen
14.01.2013 10:19:37
hugo
Hallo Klaus M.vdT.
Recht hast Du! Es ist wohl einfacher eine 2003er Version anzuschaffen.
Ich werden den Code jedoch mal ausprobieren und wieder Bescheid geben.
Besten Dank für Deine Hilfe.
Gruss Hugo
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Anzeige
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Anzeige
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
VERWEIS funktioniert nicht
Markus

Hallo!
Ich bin recht verzeifelt, vielleicht kann mir jemand weiterhelfen.
Ich habe eine Exceldatei mit mehreren Arbeitsblättern (Spielergebnisse einer Mannschaft in verschiedenen Saisons).
In einem finalen Arbeitsblatt möchte ich nun, dass die Ergebnisse eines beliebigen Spielers (A...
09.11.2008 21:22:36
Thread-ID: 1023113
10 Beiträge
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
ich habe ein Problem mit meiner Userform. Diese enthält eine Combobox "Hubraum" und einen CommandButton "Speichern". Die Eingabewerte in der Combobox möchte ich mit folgendem Code auf eine Nachkommastelle runden:
Private Sub cboHubraum_Exit(ByVal Cancel As MSForms....
14.01.2009 08:53:38
Thread-ID: 1039450
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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