Arbeitsblätter kopieren - doppelt verhindern
RainerK
kann ich in Verbindung mit einem Array auch die Prüfung und Löschung einzelner Arbeitsblätter vornehmen?
Beispiel: Wenn ich Sheet I,B,R,L aus einer zweiten Mappe in die aktuelle Mappe mit dem Code
Workbooks("B " & sMap & ".xls").Sheets(Array("I", "B", "R", "L")).Copy after:=Workbooks("A.xls").Sheets(i)
kopiere und [ B ] ist schon vorhanden wird automatisch [ B (2) ] angelegt.
Um das zu vermeiden würde ich die Existenz jedes einzelnen Sheets prüfen
If WorkSheetExists("I") Then
Sheets("I").Select
ActiveWindow.SelectedSheets.Delete
Else
End If
Am Ende dann
.. .Sheets(Array("I", "B", "R", "L")).Copy after ...
Gruß
RainerK
Arbeitsblätter