Tabellennamen erstellen und prüfen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlattExist() Dim strBlattName As String strBlattName = ActiveSheet.Range("B2").Value '"Muster" On Error Resume Next Worksheets(strBlattName).Activate If Err.Number 0 Then Err.Clear MsgBox "Blatt [" & strBlattName & "] existiert nicht!", , "Hinweis" Else MsgBox "Blatt [" & strBlattName & "] existiert!", , "Hinweis" End If End Sub

Sub test() Dim ws As Worksheet Dim vorhanden As Boolean Dim i As Integer vorhanden = False For Each ws In ThisWorkbook.Worksheets If ws.Name = Sheets("Tabelle1").Cells(2, 3).Value Then vorhanden = True i = ws.Index Exit For End If Next ws If vorhanden = True Then MsgBox "Tabelle " & Sheets("Tabelle1").Cells(2, 3).Text & " ist bereits vorhanden" Sheets(i).Name = InputBox("Bitte geben sie für diese Tabelle einen neuen Namen ein:", " _ Tabellenblatt umbenennen") End If End Sub

Sub test() Dim ws As Worksheet Dim vorhanden As Boolean Dim i As Integer vorhanden = False For Each ws In ThisWorkbook.Worksheets If ws.Name = Sheets("Master").Cells(2, 2).Value Then vorhanden = True i = ws.Index Exit For End If Next ws If vorhanden = True Then MsgBox "Tabelle " & Sheets("Master").Cells(2, 2).Text & " ist bereits vorhanden" Sheets(i).Name = InputBox("Bitte geben sie für diese Tabelle einen neuen Namen ein:", _ "Tabellenblatt umbenennen") End If End Sub

Hallo Bernd,
habe so geändert und es klappt !

Sub test()
Dim ws As Worksheet
Dim vorhanden As Boolean
Dim i As Integer
'------- erst Name in Zelle B2 übernehmen oder eingeben -------
Dim Eingabe$ 'String
Eingabe = InputBox("Bitte Tabellenname übernehmen oder eingeben:", "Sheet-Namen festlegen:",  _
Range("B2").Text)
If StrPtr(Eingabe) = 0 Then Exit Sub
ActiveSheet.Range("B2").Value = Eingabe
vorhanden = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name = ActiveSheet.Cells(2, 2).Value Then
vorhanden = True
i = ws.Index
Exit For
End If
Next ws
If vorhanden = True Then
MsgBox "Der Tabellen-Name ist bereits vorhanden, bitte Namen ändern"
'Sheets(i).Name = InputBox("Bitte geben sie für diese Tabelle einen neuen Namen ein:", _
"Tabellenblatt umbenennen")
ActiveSheet.Cells(2, 2).Value = InputBox("Bitte geben sie für diese Tabelle einen neuen Namen  _
ein:", _
"Tabellenblatt umbenennen")
Else
MsgBox "Name nicht vorhanden !"
End If
End Sub

Schöne Feiertage!
mfg
philipp b

Beliebteste Forumthreads (12 Monate)

Tabellennamen erstellen und prüfen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

81 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellennamen erstellen und prüfen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

81 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread