Guten Morgen und hallo zusammen.
Ich habe mal wieder ein Problem, bei dem ich Eure Hilfe benötige!
Folgende Situation:
Ich lade in mein aktuelles Workbook ein Worksheet eines anderes Files ein.
Ich habe versucht zu verhindern, dass versehentlich ein Worksheet doppelt eingeladen wird.
Dies funktioniert auch so weit.
Wenn ich allerdings aus meinem Workbook die Sheets manuell entferne und danach neu einladen will,
so bekomme ich den Hinweis, dass das Worksheet sich noch in der Datei befinde...
Mein Quellcode sieht wie folgt aus:
...
1:
dlg_answer = Application.Dialogs(xlDialogOpen).Show(arg1:="*.xls")
If Not (dlg_answer) Then Exit Sub
report = ActiveWorkbook.name
datum = ActiveWorkbook.Worksheets(1).Cells(3, 2).Value
P1 = Application.Find("2", report, 1)
Var1 = Left(report, P1)
Var1a = Var1 & " " & datum
Set TB = ThisWorkbook
Set SB = TB.Worksheets("Load")
For j = 1 To ActiveWorkbook.Sheets.Count
Do Until ActiveWorkbook.Sheets(j).name = Var1a
j = j + 1
MsgBox Var1a & " allready imported"
ActiveWorkbook.Close
GoTo 1
Loop
...
Wer kann mir weiterhelfen?
Herzliche Grüsse,
Gromminger