Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1500to1504
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
Inhaltsverzeichnis

Werte in anderer Datei suchen

Werte in anderer Datei suchen
30.06.2016 11:12:05
Hagen
Hallo zusammen,
ich möchte einen Wert in eine andere Tabelle übertragen. In dieser anderen Tabelle ist eine Liste in der ich in Spalte 2 das Datum per Loop suche um dann den dazugehörigen Wert in der Zeile dazuzuschreiben. Beim ausführen bekomme ich aber den folgenden Fehler:
Laufzeitfehler '1004'
Anwendungs- oder objektorientierter Fehler

mein Code sieht wie folgt aus:
Dim datumheute As Date
Dim datumZiel As Date
Dim Zeile As Integer
Dim sendersheet As Worksheet
Dim zielsheet As Worksheet
Dim ayVal As String
Set sendersheet = ActiveWorkbook.ActiveSheet
datumheute = sendersheet.Range("E4")
ayVal = sendersheet.Range("N32")
Set zielsheet = Workbooks.Open(Filename:="L:\Ordner\Tabelle.xlsm").Worksheets("2016")
Worksheets("2016").Activate
Do Until Worksheets("2016").Cells(Zeile, 2) = "ENDE"
datumZiel = zielsheet.Cells(Zeile, 2)
If datumZiel = datumheute Then
zielsheet.Cells(Zeile, 5) = ayVal
Exit Do
End If
Zeile = Zeile + 1
Loop

Der Debugger schmeißt den Fehler bei "Do Until ..." raus.
Kann mir jemand auf die Sprünge helfen?

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

Betreff
Datum
Anwender
Anzeige
AW: Werte in anderer Datei suchen
30.06.2016 11:24:12
ChrisL
Hi
Ersetze mal:
Set zielsheet = Workbooks.Open(Filename:="L:\Ordner\Tabelle.xlsm").Worksheets("2016")
Worksheets("2016").Activate
Do Until Worksheets("2016").Cells(Zeile, 2) = "ENDE"
durch:
Zeile = 1
Set zielsheet = Workbooks.Open(Filename:="L:\Ordner\Tabelle.xlsm").Worksheets("2016")
Do Until zielsheet .Cells(Zeile, 2) = "ENDE"
cu
Chris

AW: Werte in anderer Datei suchen
30.06.2016 11:31:41
Hagen
Ich Dussel ;-)
DANKE!
Manchmal sieht man den Wald vor lauter Bäumen nicht!
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige