Ich bräuchte bitte mal Eure Hilfe.
Ich möchte ein Arbeitsblatt (=Basis), dass hidden ist, in derselben Mappe unter anderem Namen (NeuerBlattname) und an einer bestimmten Stelle (drittletztes Blatt) einfügen. Unter E2000 läuft's im Prinzip, aber unter E97 nicht. Weiß da jemand von Euch vielleicht weiter? Und vielleicht auch, wie ich den Code noch verschlanken bzw. optimieren kann? Es soll natürlich vor dem Einfügen des neuen Blatts auch gecheckt werden, ob bereits eines vorhanden ist, das schon so heißt.
Hier mein bisheriger Code:
Dim wks As Worksheet, NeuerBlattname$, AktuellesSheet$
AktuellesSheet = ActiveSheet.Name
NeuerBlattname = InputBox("Bitte Blattname eingeben:", , )
On Error Resume Next
Set wks = Worksheets(NeuerBlattname)
On Error GoTo 0
If wks Is Nothing Then
Sheets("Basis").Copy after:=Worksheets(Worksheets.Count - 2) ' das Blatt "Basis" ist veryhidden!
On Error Resume Next
Worksheets(Worksheets.Count - 2).Name = NeuerBlattname
Sheets(NeuerBlattname).Visible = True
Worksheets(AktuellesSheet).Select
End If
Besten Dank im Voraus,
Andreas X