Supportnet / Forum / Tabellenkalkulation

Hallo Community, lese aus einer ComboBox einen Wert aus, mit dem ich dann ein Registerblatt bezeichnen möchte. Und das funktioniert auch schon. Jetzt möchte ich aber noch abfragen, ob es in der Datei bereits ein Registerblatt mit gleichem Namen existiert, wenn ja so soll eine Neueingabe in der ComboBox ermöglicht werden. Ergänzend muss ich hinzufügen, dass die ComboBox rund 30 (+) vordefinierte Werte enthält, eine Abfrage über IF demnach auch ziemlich unübersichtlich wird. Grundsätzlich würde das sicherlich auch über ineinander verschachtelte IF-Abfragen gehen, aber vielleich weiss jemand ja doch noch ne bessere Möglichkeit ? Viele Grüße martl

Hi martl,

ich weiß ehrlich gesagt nicht, was Du mit Registerblättern meinst. Ich habe Dir mal ein Makro zum Benennen von Tabellenblattnamen erstellt. Nachfolgenden Code in ein Standardmodul kopieren.

Sub Dateneingabe()
Anfang:
Eingabe = Application.InputBox("Bitte Eingabe durchführen", "Dateneingabe")
If Eingabe = False Or Eingabe = "" Then Exit Sub
For i = 1 To Worksheets.Count
If Sheets(i).Name = Eingabe Then
        MsgBox "Name schon vorhanden"
        GoTo Anfang
End If
Next i
ActiveSheet.Name = Eingabe
End Sub

Beim Ausführen des Makros erscheint eine InputBox. Nach der Eingabe wird überprüft, ob der Blattname schon vorhanden ist. Wenn ja, wird eine MsgBox angezeigt, die einen Hinweistext enthält. Gibt es den Blattnamen noch nicht, wird das Tabellenblatt umbenannt.

Ich hoffe, Dir hilft das Makro schon mal weiter. Bei Fragen kannst Du Dich ja wieder melden.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo coros,

mein altes Leiden ;) - mir ist das Wort für die Tabellenblätter ("Sheets") gestern absolut nicht mehr eingefallen *beängstigendoder?*

Es war also genauso wie Du vermutet hast. Der Code hat mir also zur Lösung sehr weitergeholfen.

Wiedereinmal ein herzliches Dankeschön für die schnelle und kompetetente Unterstützung.

Viele Grüße
martl

Hi Martl,

geht mir manchmal genauso, dass mir bestimmte Wörter oder Begriffe nicht einfallen wollen. Aber egal, Hauptsache Dein Problem ist gelößt. Danke auch für die Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Doppelte Einträge löschen Excel VBA
• doppelte löschen
• doppelte finden, VBA
• doppelte Einträge in Incredimails finden und löschen