Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler, weshalb?

Forumthread: Laufzeitfehler, weshalb?

Laufzeitfehler, weshalb?
14.09.2005 16:18:16
gregor
Hallo zusammen
Ich habe in einer Prozedur folgenden Befehl:
Anzahl = WorksheetFunction.CountA(Range(Cells(Spalte_Regel, Streckenanfang), Cells(Spalte_Regel, Streckenende)))
Die Variablen werden zuvor zugeordnet und weisen beim Einzelschritt die korrekte Spalten- und Zeilenzahl auf.
Bei der 2. Ausführung des Makros erhalte ich folgende Fehlermeldung:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler
Wer kann mir weiterhelfen?
Vielen Dank
Gregor
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler, weshalb?
14.09.2005 16:29:41
Fred
Hi,
du musst das Blatt refenzieren, wenn es nicht das aktive Blatt ist.
mfg Fred
AW: Laufzeitfehler, weshalb?
14.09.2005 17:11:26
Gregor
Hallo Fred
Habe die Prozedur nun wie folgt geändert (Blatt referenziert?)
Worksheets("Master Datei").Select
Set Bereich = Worksheets("Master Datei").Range(Cells(Spalte_Regel, Streckenanfang), Cells(Spalte_Regel, Streckenende))
Dim Anzahl As Integer
Anzahl = 0
Anzahl = WorksheetFunction.CountA(Bereich)
Erhalte jedoch die gleiche Fehlermeldung.
Was läuft falsch?
Gregor
Anzeige
AW: Laufzeitfehler, weshalb?
14.09.2005 18:12:26
Fred
Hi,
vorausgesetzt, die Variablen sind alle ok:
Option Explicit

Sub til()
Dim Anzahl As Integer, Bereich As Range
With Worksheets("Master Datei")
Set Bereich = .Range(.Cells(Spalte_Regel, Streckenanfang), .Cells(Spalte_Regel, Streckenende))
End With
Anzahl = 0
Anzahl = WorksheetFunction.CountA(Bereich)
End Sub

mfg Fred
Anzeige
Danke
14.09.2005 21:39:32
Gregor
Fred
Ich werde deinen Vorschlag morgen im Büro testen.
Schon jetzt herzlichen Dank für deine nochmalige Unterstützung.
Gruss Gregor
;

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