Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen Blätter automatisch benennen

Betrifft: Tabellen Blätter automatisch benennen von: Irina
Geschrieben am: 09.09.2004 14:08:09

Liebe Freunde!
Ich habe folgendes Problem:
Aus dem Buchhaltungsprogramm kriege ich eine Auswertung für Kostenstellen für einen bestimmten Bereich. Dabei kriege ich in einer Exceldatei für jede Kostenstelle ein Blatt, daß automatisch A,B,C etc. genannt wird. Das Problem ist nur, daß die Anzahl der Blätter variiert: falls im ausgewählten Zeitraum die Kostenstelle nicht bebucht wurde, dann gibt es auch keinen Blatt für diese Kostenstelle. Die Importdatei ist in eine andere Datei verknüpft. In dieser Enddatei gibt es ebenfalls pro Kostenstelle ein Blatt, das allerdings wie Kostenstelle heißt und dorthin fließen die Infos von mehreren Dateien rein. Und ich muß jedesmal die Verknüpfungen an die jeweilige Blätter der Importdatei neu definieren, damit es alles stimmt.
Frage: gibt es eine Funktion, daß ein Blatt so heißen läßt wie eine Zelle in diesem Blatt, z.B. Zelle A6?

Vielen Dank und viele Grüße
Irina

  


Betrifft: AW: Tabellen Blätter automatisch benennen von: Dr.
Geschrieben am: 09.09.2004 14:10:52

Yep.

ActiveSheet.Name = [a6]


  


Betrifft: AW: Tabellen Blätter automatisch benennen von: Dr.
Geschrieben am: 09.09.2004 14:14:20

Bzw. für alle Blätter der Arbeitsmappe auf einen Rutsch:

Sub Rename()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).[A6]
Next i
End Sub



  


Betrifft: AW: Tabellen Blätter automatisch benennen von: Matthias Tosch
Geschrieben am: 09.09.2004 14:30:11

hallo Irina

du kannst mal mit der tastenkombination [alt] + [F11] in die vba-ansicht wechseln und da fügst du ein neues modulblatt ein (einfügen - modul). kopiere einfach das unten stehende dort hinein:

Sub tabellenblatt_benennen()
ActiveSheet.Name = [A1]
End Sub


dort wo jetzt A1 steht kannst du eine beliebige zelle eintragen (klammern nicht löschen)

mit [alt] + [F8] kannst du dann den makro aus der tabellen-ansicht starten

hoffe ich konnte dir helfen :)


  


Betrifft: Vielen vielen Dank von: Irina
Geschrieben am: 09.09.2004 14:41:18

Vielen vielen Dank,
lieber Dr. und Matthias Tosch!
Sie haben mir sehr geholfen!

Viele Grüße
Irina


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellen Blätter automatisch benennen"