Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 12:59:21
MsgBox beim öffnen der Datei
08.05.2024 12:16:10
Dropdownmenü mit Klick auf Zelle öffnen (nicht über Pfeil)
08.05.2024 11:33:57
Print Area auswählen
08.05.2024 11:27:06
Bestimmten Wert von einer Excel Liste übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige