Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel Tabellenblätter verknüpfen!

Excel Tabellenblätter verknüpfen!
22.10.2004 13:02:12
Dennis
Hallo,
ich würde gerne Tabellenblätter automatisch umbennenen lassen.
Und zwar sollen sie genau heisen wie die Überschrift(Zelle A1) der Excel Mappe ist das irgendwie möglich.
Thx
Dennis

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Tabellenblätter verknüpfen!
ransi
hallo dennis
benennt jedes blatt in den jeweiligen wert um wie er in a1 steht.
Public

Sub umb()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Name = Worksheets(i).Range("a1").Value
Next
End Sub

ransi
AW: Excel Tabellenblätter verknüpfen!
AndréL.
Hallo Dennis,
anbei eine kleine Datei.(mit Erklärung)
z.B.

Private Sub Worksheet_Activate()
Worksheets(2).Name = [A1].Value
End Sub

https://www.herber.de/bbs/user/12526.xls
Gruß
AndréL.
AW: Excel Tabellenblätter verknüpfen!
22.10.2004 19:35:22
Dennis
Echt super danke an beide!
Bin echt überrumpelt von der Freundlichkeit von euch!
*Lobaussprech*
Also nochmal danke danke danke.
@andré "Hallo Dennis von André" lol ;)
Anzeige
AW: Excel Tabellenblätter verknüpfen!
22.10.2004 19:53:40
Dennis
So eine Frage hätte ich nun doch noch ;)
wie übertrage ich den am schnellsten diese Makro
auf eine andere Tabelle egal wieviele Blätter sie hat?
Thx
Dennis
Workbook_SheetActivate(ByVal Sh As Object)
ransi
hallo dennis
in anlehnung an die datei von andre mach mal so:
den vb editor öffnen (mit Alt F11)
doopelclick auf diese arbeitsmappe
in das sich öffnende fenster diesen code einfügen.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Name = ActiveSheet.Range("a1").Value
End Sub

ransi
Danke für die Rückmeldung !! :-) oT.
AndréL.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige