Abfrage, ob Arbeitsblatt besteht
20.02.2004 12:02:01
marco
ich habe folgendes Problem, ich möchte vor dem kopieren aus einer fremden Arbeitsmappe überprüfen, ob das Arbeitsblatt, von dem ich etwas kopieren möchte, auch besteht.
Ich habe in Excel mit VBA ein Messtellenauswertungsprogramm geschrieben von dem leider mehrere versionen bestehen.Bei den älteren gibt es einige Tabellenblätter nicht. Wenn ich nun mit einer neueren Version arbeite kann es passieren, dass ich eine Tabelle kopieren will ie in der alten Version nicht vorhanden ist. Darum wollte ich es vorher testen.
Mein Ansatz war dieser:
VBA-Code:
Workbooks(thisbook).Worksheets("Comments_A3").Range(Worksheets("Comments_A3").Cells(6, 1), Worksheets("Comments_A3").Cells(2000, 26)).Clear
Workbooks(thisbook).Worksheets("Comments_A3").Range(Worksheets("Comments_A3").Cells(6, 1), Worksheets("Comments_A3").Cells(2000, 26)).ClearContents
strQuellblatt = "Comments_A3"
break = 0
On Error GoTo comment_resume 'Resume Next ' wenn es dieses Worksheet nicht gibt, dann naechste Anweisung
Do While break = 0
break = break + 1
' Workbooks(strDatei).Worksheets(strQuellblatt).Activate
Workbooks(strDatei).Worksheets(strQuellblatt).Range(Workbooks(strDatei).Worksheets(strQuellblatt).Cells(6, 1), Workbooks(strDatei).Worksheets(strQuellblatt).Cells(2000, 26)).Copy
Workbooks(thisbook).Worksheets("Comments_A3").Range("a6").PasteSpecial xlPasteAll
Loop
comment_resume:
If Err <> 0 Then
Debug.Print "fehler"
strQuellblatt = "Comments"
Workbooks(strDatei).Worksheets(strQuellblatt).Range(Workbooks(strDatei).Worksheets(strQuellblatt).Cells(6, 1), Workbooks(strDatei).Worksheets(strQuellblatt).Cells(2000, 26)).Copy
Workbooks(thisbook).Worksheets("Tabelle1").Range("a6").PasteSpecial xlPasteAll
Resume Next
End If
Vielleicht geht es ja auch leichter.
Für Hilfe bin ich dankbar.
MfG
Marco