Hallo,
ich möchte in einer Mappe ein Sheet aus einer externen Datei laden.(einfügen)
Das habe ich seither so gemacht:
Dim Dateiname As Variant, objQuelle As Workbook
Dim myWs As Worksheet, wbkSheet As Worksheet
ChDrive "C:\test\"
Dateiname = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xls*),*.xls*")
If Dateiname = False Then Exit Sub
Application.ScreenUpdating = False
Workbooks.Open Dateiname
For Each wbkSheet In ActiveWorkbook.Sheets
If wbkSheet.Name = "Datensammlung" Then
Set myWs = wbkSheet
Exit For
End If
Next
If myWs.Range("HJ3") "TARIF" Then
.....
Wenn das Sheet NICHT gefunden wurde, wurde der Vorgang abgebrochen.
Nun möchte ich eine Prüfung, falls das Sheet doch zufällig so heißt, aber inhaltlich was total anderes drin ist. Dazu wollte ich die Zelle HJ3 abfragen, ob da "Tarif" drin steht.
Wenn da NICHT "Tarif" drin steht, soll die externe Datei wieder geschlossen werden.
Aber nur die externe, nicht die, von der aus mein Prozess gestartet wurde.
Komme gerade nicht mehr weiter. Kann mir da jemand helfen ?
Danke
Jockel