Mit VBA vorhandenen Tabellenblattname abfangen
05.03.2007 14:22:00
Thelen
ich habe folges Makro:
Sub Tabellenname()
Dim i As Integer
On Error GoTo 0
For i = 1 To Sheets.Count
If Sheets(i).Range("E2").Value <> "" Then Sheets(i).Name = Sheets(i).Range("E2").Value
Next i
End Sub
Damit gebe ich den Tabellenblättern den Namen der in Zelle E2 steht. Jetzt kann es vorkommen, dass
ein Name bereits vorhanden ist. Dann erscheint eine Fehlermeldung und das Makro bricht ab. Wenn dies der Fall sein sollte, würde ich gerne die Fehlermeldung abfangen und er soll in diesem Fall den Namen aus E2 und F2 vergeben. Ich habe im Archiv gesucht, aber nicht das richtige gefunden. Für eure Hilfe wäre ich dankbar.
Viele Grüße
Frank
Anzeige