ich möchte die Sheets einer Exceltablle nach dem Inhalt einer Zelle benennen.
Vor der Benennung wird die betreffene Zelle auf Inhalt überprüft und ggf. dazu aufgefordert die Zelle zu füllen.
Zwischen dem eigentlichen Füllen der Zelle möchte ich in der aktiven Arbeitsmappe noch abfragen ob der neue Name schon vorhanden ist. Es soll quasi der Zelleninhalt mit allen vorhanden Sheetnamen verglichen werden bevor der Name übernommen wird bzw. wenn schon vorhanden eine Msgbox mit einem entsprechenden Hinweis erschein.
Danke schon mal im voraus,
Lupo
Sub Inhaltsverzeichnis()
' Inhaltsverzeichnis Makro
' Wird über Botton Inhaltsverzeichnis angesteuert
' Name des Sheet wird geändert
' Abfrage ob Name eingetragen ist
If ActiveSheet.Range("B7") = "" Then
MsgBox "Bitte noch den Namen der Notiz eintragen", vbCritical
''''''''''''''Hier brauche ich die Hilfe für die Namesabfrage alles Sheets des Workbooks'''''''' _
Else
' Wenn Name eingetragen und noch nicht vorhanden ist wird es als Name für das Sheet übernommen.
ActiveSheet.Name = Range("B7")
' Übersicht anwählen
Sheets("Übersicht").Select
Range("A1").Select
End If
End
Sub