Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Automatisches Benennen der Tabellenblätter!

4,752 views
Skip to first unread message

Alexander Kipp

unread,
Jan 14, 2003, 8:00:29 AM1/14/03
to
Hi NG,

ich habe noch eine Frage, die mich schon seit längerem beschäftigt.

Gibt es eine Möglichkeit, die Benennung der Blätter dynamisch zu
vollziehen, d.h. dass Excel die Namen der Blätter aus deren Inhalt
extrahiert?

Schönen Dank

Alexander

Tim Brandt

unread,
Jan 14, 2003, 8:10:34 AM1/14/03
to
Moin Alexander,

das ist überhaupt kein Problem. Ein einfaches Beispiel ist folgendes Makro,
daß das Blatt nach dem Inhalt aus Zelle A1 benennt.

Public Sub Benennen()
ActiveSheet.Name = Range("A1")
End Sub

--
Gruß aus Brandenburg

Tim Brandt
____________________
Excel 2000 SR-1

"Alexander Kipp" <alex...@web.de> schrieb im Newsbeitrag
news:b011nk$pm6$1...@redenix.uni-muenster.de...

Thomas Ramel

unread,
Jan 14, 2003, 8:23:47 AM1/14/03
to
Grüezi Alexander

Alexander Kipp schrieb:


>
> Gibt es eine Möglichkeit, die Benennung der Blätter dynamisch zu
> vollziehen, d.h. dass Excel die Namen der Blätter aus deren Inhalt
> extrahiert?

Das kannst Du mit einem VBA-Makro erreichen.

Klicke rechts auf den Tabellenblattreiter unten am Bildschirmrand und wähle
'Code anzeigen' aus. In das nun geöffnete VBA-Fenster kopierst Du die
folgenden Zeilen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = Target
End Sub

Schliesse den VBA-Editor mit Alt+Q

Wenn Du nun den Wert in Zelle A1 änderst wird der Name des Tabellenblattes
automatisch angepasst. Hierbei wird auch geprüft, ob dieser Name bereits
existiert.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

Alexander Kipp

unread,
Jan 14, 2003, 12:00:23 PM1/14/03
to
ja, das ist ja wirklich einfach.

Schönen Dank

Alexander

Thomas Ramel wrote:

> Grüezi Alexander
>
> Alexander Kipp schrieb:
>
> >

> > Gibt es eine Möglichkeit, die Benennung der Blätter dynamisch zu
> > vollziehen, d.h. dass Excel die Namen der Blätter aus deren Inhalt
> > extrahiert?
>
>

Thomas Ramel

unread,
Jan 14, 2003, 12:30:15 PM1/14/03
to
Grüezi Alexander

Alexander Kipp schrieb:


> ja, das ist ja wirklich einfach.
>
> Schönen Dank

Bitte schön, ist gern geschehen.

Danke auch für die Rückmeldung.

0 new messages