Probleme mit Workbooks.Open

Hallo zusammen,
bin gerade ein wenig am programmieren... Um den Code zu testen klicke ich ganz einfach die F8 Taste und das Programm geht Zeile für Zeile durch. Das klappt auch immer ABER...
Innerhalb meines Codes habe ich den Befehl Workbooks.Open...
Sobald die Zeile kommt, rattert das Makro selber durch ABER es werden im Makro Zeilen übersprungen... Zumindest mal mind. eine If-Anweisung.
Meine Aufgabe ist, eine Auswertung zu erstellen die sich Daten aus zwei Exceldateien kopiert. Dabei war angedacht, die Dateien zu öffnen, die Dateien zu kopieren und diese wieder zu schließen.
Anbei die ersten Zeilen des Codes... Pfad und Namen wurden abgeändert...

Private Sub TESCHD()
'Der Auswertungsdatei den Namen Tech zuweisen
Tech = ActiveWorkbook.Name
'Datei 123 öffnen um daraus Daten zu kopieren
Workbooks.Open ("Pfad zur Datei\123.xlsx")
lrow1 = Workbooks("123.xlsx").Sheets(1).UsedRange.Rows.Count
'Der Datei 123 den Namen Anfrage zuweisen
Anfrage = Workbooks("123.xlsx").Name

Bei Worksbooks.open, wenn ich dort bin, rattert das Makro einfach weiter obwohl ich mich bis dahin mit F8 durchgezappt habe. Dann fehlen zwar Daten, aber wenn ich das Makro erneut mit F8 durchklicke, dann springt er zwar immer noch ab Workbooks.Open durch, aber dafür jede Zeile...
So einen Fall hatte ich noch nicht... Googeln brachte mich auch keine Hilfe. Wisst Ihr woran das liegen kann? Vielen Dank für eure Hilfe...

zu 1 das ist eben in Excel so, das ist normal.
PS
ja

Option Explicit
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'© t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle       As String
Dim Zeilen          As Long
Dim Spalten         As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from  _
closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad            As String
Dim Dateiname       As String
Dim Blatt           As String
Dim Bereich         As String
Dim Ziel            As Range
Pfad = "L:\Eigene Dateien\Hajo\Internet\Test\2009\"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1"  ' von welcher Tabelle soll er holen?
Bereich = "A1:B9"   ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1")  ' in welchen Bereich soll er kopieren? Genauer gesagt:  _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub

Set wbB = Workbooks.Open(strDatName, UpdateLinks:=False)
Gruß Hajo

Forumthread: Probleme mit Workbooks.Open

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial