hallo miteinander,
ich habe einen code, über den ich (auf einer userform)
daten von einer in die andere excel datei importiere.
der sub dafür sieht so aus:
Private Sub CommandButton1_Click()
'Prozedur für den Datenimport
Dim dateiname As String
Dim datei As Object
'Daten für Sektion 18.3
dateiname = Application.GetOpenFilename("Excel Datei, *.xls") 'Datei auswählen
If dateiname = "Falsch" Then Exit Sub ' bei Abbruch
Application.ScreenUpdating = False
Set datei = Workbooks.Open(dateiname) 'Datei öffnen
datei.Sheets("Protokoll").Range("O23:O51").Copy Destination:=ThisWorkbook.Sheets("C95_HAM").Range("S3:S32")
datei.Close 'datei schließen
Application.ScreenUpdating = True
End Sub
die daten werden aus dem reiter "protokoll" gezogen.
nun habe ich das problem, dass es in nicht in jeder datei den
reiter "protokoll" gibt. mal heißt dieser reiter "quer".
mein sub müsste also vorher prüfen, welcher reiter vorhanden ist
und aus diesem dann die daten ziehen.
im reiter quer ist auch der "range(O23:O51)" ein anderer, nämlich range(A12:A42).
ist keiner dieser beiden reiter vorhanden, müsste ne meldung erscheinen:
"reiter mit messdaten nicht gefunden!".
ich hoffe sehr, dass hier jemand helfen kann!
ich hoffe ich habe es genau genug beschrieben.
vielen dank schon einmal!
viele grüße sina |