kurze Frage:
Ich kopiere ein Tabellenblatt in einer Mappe und benenne es nach Zelle "B2".
Nun soll vorher geprüft werden, ob der Blattnbame bereits existiert und eine MsgBox hochkommen.
Jemand eine Idee?
Danke!!
Phil
Public Sub Pruefung()
Dim iBlatt As Integer
Dim sBlattname As String
sBlattname = Worksheets("Tabelle1").Range("B2").Value ' <== Tabellenblatt ggf. anpassen
For iBlatt = 1 To Sheets.Count
If Worksheets(iBlatt).Name = sBlattname Then
MsgBox "das Blatt """ & sBlattname & """ gibt es bereits.", _
48, " Hinweis für " & Application.UserName
Exit Sub
End If
Next iBlatt
End Sub