Format für Year ändern

Herbert · 2004-05-07T14:00:27+00:00

Hallo Forum Wenn ich mir in meinem code das Jahr in eine Zelle schreiben lasse, wird mir das als 2004 angezeigt. Wie muß ich den code anpassen, daß ich 04 (Kurzschreibweise) bekomme. jahr = Year(Now) Range("A1").Value = jahr Wenn ich Format ("yy") dazu schreibe funzt es nicht. Ich kombiniere das ganze mit einer Nummer (z.B. 001/04): Range("A1").Value = "00" & x & "/" & jahr Ergebins: 00x/2004 will aber 00x/04 Zelle formatieren:JJ nichts bringt, es muß schon im code sein. Danke im Voraus Herbert

Hallo Kurt
Durch die Hilfe von mehreren Forumianern habe ich jetzt (fast), das was ich will. Ich hab nur noch eine Fehler und den finde ich um´s verrecken nicht !!
In der Variablen jahr steht 2004, aber beim Auslesen des Wertes in:
Range("A1").Value = "00" & x + 1 & "/" & Format(jahr, "yy")
zählt mein Code sowohl die Zahl UND das Jahr um 1 hoch. Wenn Du Lust hast, schau Dir doch bitte den Code mal an.
Danke für Deine Hilfe
Herbert


Sub Dateien_auslesen()
jahr = Year(Now)
Pfad1 = "C:\Daten\2004\"
name1 = Dir(Pfad1)
x = Left(name1, 3)
Do While name1 <> ""
x = Application.WorksheetFunction.Max(x, Left(name1, 3))
name1 = Dir
Loop
Dim Mldg, Stil, Titel, Antwort
If x < 10 Then
Mldg = "Nächste freie Auftragsnummer:" & "00" & x + 1
ElseIf x < 100 Then
Mldg = "Nächste freie Auftragsnummer:" & "0" & x + 1
Else
Mldg = "Nächste freie Auftragsnummer:" & x + 1
End If
Stil = vbYesNo
Titel = "Auftragsnummern prüfen"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
If x < 10 Then
Range("A1").Value = "00" & x + 1 & "/" & Format(jahr, "yy")
ElseIf x < 100 Then
Range("A1").Value = "0" & x + 1 & "/" & Format(jahr, "yy")
Else
Range("A1").Value = x + 1 & "/" & Format(jahr, "yy")
End If
Else
Exit Sub
End If
End Sub

Hallo IngoG
Erstmal Danke, für Deine Hilfe, aber es ist ein neues Problem aufgetreten:
Ich lasse mir zum Jahreswechsel automatisch ein neues Verzeichnis anlegen, funktioniert auch. Jetzt habe ich meine Code (Dank Deiner Hilfe) abgeändert, aber wie bringe ich einen variablen Verzeichnisnamen hinein? In dem Verzeichnis liegen mehrere Ordner (2003, 2004) und ich möchte immer in den, des aktuellen Jahres verweisen?


Sub Dateien_auslesen()
jahr = (Now)
Pfad1 = "C:\temp\2004\"     '(Testverzeichnis) Wie muß ich das abändern?
name1 = Dir(Pfad1)
x = Left(name1, 3)
Do While name1 <> ""
x = Application.WorksheetFunction.Max(x, Left(name1, 3))
name1 = Dir
Loop
Dim Mldg, Stil, Titel, Antwort
If x < 10 Then
Mldg = "Nächste freie Auftragsnummer:" & "00" & x + 1
ElseIf x < 100 Then
Mldg = "Nächste freie Auftragsnummer:" & "0" & x + 1
Else
Mldg = "Nächste freie Auftragsnummer:" & x + 1
End If
Stil = vbYesNo
Titel = "Auftragsnummern prüfen"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Range("Nummer").Value = Format(x + 1, "000/") & Format(jahr, "yy")
Else
Exit Sub
End If
End Sub

Danke im Voraus
Gruß Herbert

Forumthread: Format für Year ändern

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Format für Year ändern

Forumthread: Format für Year ändern

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread