Ich benötige mal wieder Eure Hilfe.
Ein aktives Tabllenblatt möchte ich mit Inhalt, durch einen in einer MsgBox eingegebenen Namen als ein neues Tabellenblatt kopieren/erstellen.
Gefunden habe ich dieses.
Sub BlattKopieren()
Dim NeuerName As String
Dim i As Integer
NeuerName = InputBox("Bitte gebe den neuen Namen des Blattes ein!")
i = Sheets.Count
ActiveWorkbook.ActiveSheet.Copy after:=Sheets(i)
'Sheets ("Eingabe") .Copy After:=Sheets(i)
ActiveSheet.Name = NeuerName
End Sub
Ist es möglich das Makro so zu ändern das:- abgefragt wird ob der eingegebene Name schon vorhanden ist.
- wenn ja = Abbruch, oder besser die Meldung "Schon vorhanden"
- wenn nein = erstellen
- bei Abbruch nicht doch eine Kopie erstellt wird, wie in diesem Fall
kurz, einfach das es klappt.
Vielen Dank im voraus
Rudolf