Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Laufzeitfehler - Warum?

Forumthread: VBA Laufzeitfehler - Warum?

VBA Laufzeitfehler - Warum?
07.01.2005 13:03:33
Sascha
Hallo,
habe mit Makro-Recorder folgendes aufgezeichnet und hinter CommandButten kopiert:

Private Sub CommandButton1_Click()
Sheets("AES_Eingabe").Select
Range("A32:P33").Select
Selection.Sort Key1:=Range("O32"), Order1:=xlAscending, Key2:=Range("A32" _
), Order2:=xlAscending, Key3:=Range("G32"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Beim ausführen bekomme ich dann folgende Fehlermeldung:
Laufzeitfehler ´1004´
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
Hat jemand eine Idee?
Danke
Sascha
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Laufzeitfehler - Warum?
07.01.2005 13:13:45
DieterB
Hallo Sascha,
Sheets.Activate
gruß
DieterB
AW: VBA Laufzeitfehler - Warum?
07.01.2005 13:21:56
Sascha
Hallo,
der Debugger startet bei Range
Trotzdem Danke
Guß
Sascha
grad getestet
07.01.2005 13:30:58
DieterB
Bei mir funktioniert es einwandfrei.
Überprüfe doch mal die Namen der Tabelle und deren Blätter.
Gruß
DieterB
Anzeige
AW: VBA Laufzeitfehler - Warum?
paula
Hi Sascha
lese ich richtig Range("A32:P33")?
das wären ja gerade mal 2 Zeilen zum sortieren ?!!
gruss paula
AW: VBA Laufzeitfehler - Warum?
07.01.2005 13:45:00
DieterB
Hallo Paula,
stimmt
Gruß
DieterB
AW: VBA Laufzeitfehler - Warum?
07.01.2005 13:57:04
sascha
Hallo,
ja, war nur ein Test, hab dei Zahlen manuel geändert. Funktioniert aber nicht.
Sascha
Anzeige
Testdatei auf Server - VBA Laufzeitfehler
Sascha
Hallo,
hab mal die Datei hochgeladen:
https://www.herber.de/bbs/user/15778.xls
Ich versteh nicht warum das nicht funktioniert. Der Code wurde doch vom Makrorecorder erstellt.
Danke für Eure Hilfe
Gruß
Sascha
AW: Testdatei auf Server - VBA Laufzeitfehler
PeterW
Hallo Sascha,
vesuch ers mal so:

Private Sub CommandButton1_Click()
With Sheets("AES")
.Range("A32:P39").Sort Key1:=.Range("O32"), Order1:=xlAscending, Key2:=.Range("A32" _
), Order2:=xlAscending, Key3:=.Range("G32"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Activate
.Range("A2").Select
End With
End Sub

Und wenn das immer noch zu einem Fehler führt setze die Eigenschaft des Buttons "TakeFocusOnClick" auf False.
Gruß
Peter
Anzeige
Danke
08.01.2005 08:34:56
Sascha
Hallo,
Danke, so funktioniert das.
Versteh aber immer noch nicht das der Makrorecorder etwa saufnimmt und es dann hinterher doch nicht funktioniert....
Dickes Lob, Danke
beste Grüße
Sascha
;

Beliebteste Forumthreads (12 Monate)

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