Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets benennung

Sheets benennung
23.08.2003 10:33:51
LUCIEN
Hallo
Ich habe folgende Frage:
Ich habe in einem xls.dATEI
Ich möchte dass Excel die Sheets nach Datum fortlaufend benennt.
Meine Quelle ist die Zelle A1 Hier schreibe ich z.B 01.08.2003 rein.
Nun sollte excel per Macro die Sheets ab Sheet autocreation 1 fortlaufend benennen
(01-31.08.2003 bis ende des Monats.
August hat 31 tzge also 31 sheets
September hat 30 tage also 30 sheets

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets benennung
23.08.2003 16:47:32
WernerB.
Hallo Lucien,
das nachstehende Makro sollte Deinen Wunsch erfüllen.
- Das Ausgangsdatum muss im ersten Blatt in Zelle "A1" stehen
- Das Programm berücksichtigt auch Schaltjahre (wg. Februar)

Sub Lucien()
Dim DDa1 As Date, DDa2 As Date
Dim IJa1 As Integer, IJa2 As Integer
Dim BTa As Byte, BMo1 As Byte, BMo2 As Byte, Bi As Byte
Application.ScreenUpdating = False
If Not IsDate(Sheets(1).Range("A1").Value) Then
MsgBox "Startdatum fehlt !" & vbCr & vbCr & "Makroabbruch !"
Exit Sub
End If
DDa1 = Sheets(1).Range("A1").Value
IJa1 = Year(DDa1)
IJa2 = IJa1
BMo1 = Month(DDa1)
BMo2 = BMo1 + 1
If BMo2 = 13 Then
BMo2 = 1
IJa2 = IJa2 + 1
End If
DDa2 = CDate("01." & BMo2 & "." & IJa2)
DDa2 = DDa2 - 1
BTa = Day(DDa2)
If BTa > Sheets.Count Then
MsgBox "Zu wenige Blätter !" & vbCr & vbCr & "Makroabbruch !"
Exit Sub
End If
For Bi = 1 To BTa
Sheets(Bi).Name = CDate(Bi & "." & BMo1 & "." & IJa1)
Next Bi
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller. Danke!

Anzeige
AW: Sheets benennung
24.08.2003 09:28:11
LUCIEN
Hallo Werner B
Danke für die Arbeit die du dir gemacht hast, dies ist genau das was ich wollte.Nun kann ich weiterbasteln.
Sorry für die späte zurückmeldung ,aber ich konnte zur Zeit nicht Online sein.
schönen Sonntag und gruss
LUCIEN

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige