Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Run-time error 1004

Run-time error 1004
30.05.2006 14:50:13
stefan
Hallo Excel-Forumler,
vielleicht habt Ihr Ideen wo der Fehler liegen könnte. Mein Programm läuft bis zu einer Zeilenzahl von 999 einwandfrei (Daten kommen via ODBC). Übersteigt die Zeilenzahl 999 Zeilen, so kommt die Fehlermeldung: Run-time error '1004'. Application-defined or object-defined error. (Dies betrifft ActiveSheet.Range...)
.....
Dim rowNo As Integer
Dim colNo As Integer
Dim tableRowData As Properties
.....
ActiveSheet.Range(ActiveSheet.Cells(2, colNo), _
ActiveSheet.Cells(tableRowData.CountRows, colNo)).Select
Gruß,
stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Run-time error 1004
30.05.2006 17:26:46
ChrisL
Hallo Stefan
Aus Neugier, wie lautet der Wert von tableRowData.CountRows zum Zeitpunkt des Fehlers?
Warum der Fehler gerade in Zeile 999 auftritt kann aufgrund deiner Angaben nur schwer reproduziert werden. Ich vermute aber einfach, dass der Fokus auf das ActiveSheet verloren gegangen ist und die andere Applikation (?) ist aktiv. Vielleicht ist es möglich die Tabelle genau zu bezeichnen z.B.
Dim WS As Worksheet
Set WS = Workbooks("Mappe1.xls").Worksheets("Tabelle1")
WS.Range(....)
https://www.herber.de/xlfaq/xlbasics/main_var.htm
und sowieso weg mit Select...
Dim WS As Worksheet
Dim rng As Range
Set WS = Workbooks("Mappe1.xls").Worksheets("Tabelle1")
Set rng = WS.Range(.....)
rng.Delete ' Beispiel
https://www.herber.de/xlfaq/xlbasics/main_sel.htm
Gruss
Chris
Anzeige
AW: Run-time error 1004
01.06.2006 11:53:19
stefan
Hallo Chris,
danke für die Anregungen. Werde mal mein VBA-Script umschreiben.
Gruß
Stefan

220 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige