Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
148to152
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter fortlaufend benennen

Blätter fortlaufend benennen
16.08.2002 11:05:23
wolfgang
hallo,
habe eine arbeitsmappe in die per odbc täglich neue daten in ein neues tabellenblatt geschrieben werden.
gibt es eine möglichkeit im macro anzugeben, dass die blätter aufsteigend bei jedem macrostart benannt werden?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blätter fortlaufend benennen
16.08.2002 11:22:21
L.Vira
Speicher die Letzte nr mit SaveSetting in der Registry den und lies ihn beim nächsten Makro start mit GetSetting wieder aus.
Re: Blätter fortlaufend benennen
16.08.2002 11:24:18
Micha
hi,

nennt die blätter präfix1, präfix2,...
einfach präfix ersetzen
oder löschen(dann "präfix" & löschen), dann nennt er sie nur 1,2,...

mfg

Private Sub Workbook_Open()
For i = 1 To Worksheets.Count
Worksheets(i).Name = "präfix" & i
Next i
End Sub

Re: Blätter fortlaufend benennen
16.08.2002 11:50:33
wolfgang
danke, klappt bei öffnen der mappe.
problem stellt sich aber etwas anders dar:
due odbcabfrage ist macrogesteuert:

ActiveWorkbook.Worksheets.Add _
after:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Name = ("SAKWAkt")

die mappe enthält bereits blätter von SAKW1-33

kann man hier hinbekommen, dass das im makro bezeichnete blatt statt SAKWAkt beim Auführen des macros fortlaufend benannt (34, 35, ... etc) wird?

Anzeige
Re: Blätter fortlaufend benennen
16.08.2002 11:59:20
Micha
hi,

sofern keine anderen blätter als SAKW1-SAKW... enthalten sind,
einfach zeile ersetzen durch:

ActiveSheet.Name = ("SAKW" & ActiveWorkbook.Worksheets.Count+1)

mfg

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige