VBA: Arbeitsblatt kopieren

Hallo Experten!
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
keine Ahnung, wo die Unterschiede in den Versionen liegen.
ich würde den Code mal so schreiben, inclusive der Plausichecks
- Blattname schon vorhanden
- Länge eingehalten
- verbotene Sonderzeichen.
die Einabe muss solange wiederholt werden, bis alles passt.
daher können dann die OnERRORS bei der Erstellung entfallen.
irgendwie hab ein ein Problem, das ausgeblendete Blatt zu kopieren, daher wirds kurz sichtbar gemacht.


Sub Makro1()
Dim wks As Worksheet, NeuerBlattname$, AktuellesSheet$
Dim I As Long
Dim Nochmal As Boolean
AktuellesSheet = ActiveSheet.Name
Do
Nochmal = False
NeuerBlattname = InputBox("Bitte Blattname eingeben:")
For I = 1 To ActiveWorkbook.Sheets.Count
If Sheets(I).Name = NeuerBlattname Then Exit For
Next
If I  31 Then Nochmal = True
For I = 1 To Len(":/\?*[]")
If InStr(NeuerBlattname, Mid("*:/\?[]", I, 1)) > 0 Then Nochmal = True
Next
If Not Nochmal Then Exit Do
MsgBox ("bitta andern Blattnamen eingeben, Name schon vergeben, länger als 31 Zeichen oder  _
verbotenes Sonderzeichen vorhanden :/\?*[]")
Loop
With Sheets("Basis")
.Visible = -1
.Copy after:=Worksheets(Worksheets.Count - 2)
.Visible = 2
End With
ActiveSheet.Name = NeuerBlattname
Worksheets(AktuellesSheet).Select
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Arbeitsblatt kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread