Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Registernamen bearbeiten

Registernamen bearbeiten
01.08.2002 10:00:05
Jan
Hallo Exce-Freunde,

ich habe folgendes Problem:

Bei der Eingabe eines Names für ein Tabellenblatt (im Register unten) soll diese Eingabe mit den bestehenden Tabellenblattnamen verglichen und überprüft werden. Bei Eingabe eines bestehenden Namens soll der alte geändert und der neue für das aktuelle Arbeitsblatt übernommen werden.

Kompliziert zu beschreiben, deshalb folgendes Beispiel:
In einem Arbeitsblatt habe ich bereits zwei Tabellenblätter mit Namen "Start" und "Berechnung". Nun will ich ein drittes einfügen und diesem den Namen "Start" geben (normalerweise kommt jetzt eine Fehlermeldung). Folgendes soll nun passieren:
- Das "alte" Blatt "Start" soll in "Start_alt" umbenannt werden und das "neue" erhält den Namen "Start".

Geht das, und wie kann man das am besten programmieren.

Tausend Dank schon jetzt für jeden Tip.

Viele Grüße
JAN

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Registernamen bearbeiten
01.08.2002 10:43:59
Carsten
Hi Jan!

Mein Vorschlag zu diesem Problem:
- Arbeitsmappe schützen
- Änderung des Arbeitsblattnamen nur über eigenen Dialog
- Prüfen des neuen Namen und evtl. Änderung bestehender Arbeitsblatt-Namen im Makro

Etwas besseres fällt mir nicht ein ...

Carsten

Re: Registernamen bearbeiten
01.08.2002 10:45:56
Daniel P
Hallo Jan

Sub Benamsung()
Dim oWS As Worksheet
Dim strNeu As String

strNeu = InputBox("Neuer Name")
For Each oWS In ThisWorkbook.Worksheets
If oWS.Name = strNeu Then
oWS.Name = oWS.Name + "_ALT"
End If
Next oWS

Set oWS = ThisWorkbook.Worksheets.Add
oWS.Name = strNeu

End Sub


Daniel

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige