Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenreiter Datum Format

Tabellenreiter Datum Format
21.05.2008 20:25:00
Heinz
Hallo Leute
Mit unteren Code wird der Tabellenreiter nach C5 & "bis" & N5 benannt.
Zb. 01.10.2008 bis 01.12.2008
Funktioniert auch super.
Nur möchte ich das Datum im Format zB. Okt.08 bis Dez.08 haben.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Dim neuer_Blattname As String
If Target.Address = "$C$5" Or Target.Address = "$N$5" Then
neuer_Blattname = Range("C5") & " bis " & Range("N5")
ActiveSheet.Name = neuer_Blattname
End If
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenreiter Datum Format
21.05.2008 20:35:42
mumpel
Hallo!
Dim neuer_Blattname As String
If target.Address = "$C$5" Or target.Address = "$N$5" Then
neuer_Blattname = Format(Range("C5"), "mmm.yyyy") & " bis " & Format(Range("N5"), "mmm.yyyy")
ActiveSheet.Name = neuer_Blattname
End If


Gruß, Rene

Anzeige
Nachtrag
21.05.2008 20:39:04
mumpel
Es geht auch einfacher ohne Deklaration (Dim)
If target.Address = "$C$5" Or target.Address = "$N$5" Then
ActiveSheet.Name = Format(Range("C5"), "mmm.yyyy") & " bis " & Format(Range("N5"), "mmm.yyyy")
End If


Anzeige
AW: Tabellenreiter Datum Format
21.05.2008 20:40:00
Heinz
Hallo Rene
Wiederum ein recht herzliches DANKE schön an dich.
Gruß
Heinz

AW: Tabellenreiter Datum Format
21.05.2008 21:14:13
mumpel
Einfacher wäre es, wenn Du das Quartal manuell in einer weiteren Zelle angibst, z.B. in B1. Dann kannst Du das folgende Makro verwenden.

Sub BlattSpeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Stundennachweis\" & Range("B1").Value & " " & Format(Range("C5").Value, _
"MMMM yyyy") & " bis " & Format(Range("N5").Value, "MMMM yyyy") & ".xls"
ActiveWorkbook.Close
End Sub


Anzeige
Nachtrag
21.05.2008 21:23:00
mumpel
Um das Quartal automatisch einzutragen, kannst Du das Worksheet_Change-Ereignis wie folgt ergänzen.
Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$C$5" Or target.Address = "$N$5" Then
ActiveSheet.Name = Format(Range("C5"), "mmm.yy") & " bis " & Format(Range("N5"), "mmm.yy")
End If
Select Case Format(Range("C5"), "MMMM")
Case Is = "Januar", "Februar", "März"
Range("B1").Value = "1.Quartal"
Case Is = "April", "Mai", "Juni"
Range("B1").Value = "2.Quartal"
Case Is = "Juli", "August", "September"
Range("B1").Value = "3.Quartal"
Case Is = "Oktober", "November", "Dezember"
Range("B1").Value = "4.Quartal"
End Select
End Sub


Anzeige
AW: Tabellenreiter Datum Format
21.05.2008 23:59:00
Heinz
Hallo Rene
Echt wieder eine geile Sache von DIR !!!!!
Recht herzlichen Dank !!
Danke & Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige