brauch nochmal Hilfe
07.05.2004 14:29:15
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