Prüfung ob Tabellenblattname vorhanden?
16.11.2020 11:07:57
Arian
ich versuche gerade Tabellenblätter mit dem selben Namen ausfindig zu machen und um 1 Zahl zu erweitern.
So sieht die Abfrage momentan aus. Das Problem ist wenn der Tabellenname sich wiederholt.
Wie kann ich das mit einer If Abfrage gezielt abfangen ?
Zum Beispiel:
Wenn in zwei Tabellenblätter in H11 der Wert "DV" vorhanden ist um eine 1 erhört
Tabelle 1 = A
Tabelle2 = A_1
Sub Namen_ändern_Inputbox()
Dim i As Integer
Dim Tabellenbaltt As Worksheet
Sheets(1).Select
i = ActiveSheet.Index
For Each Tabellenblatt In Worksheets
Sheets(i).Activate
Set myRange = Application.InputBox(prompt:="Zelle", Type:=8)
Zellenname = myRange.Value
Tabellenblatt.Name = Zellenname
i = i + 1
Next Tabellenblatt
Sheets(1).Select
End Sub
Vielen Dank
Beste Grüße Arian