Dateien auslesen und erste 8 Zeichen als Wert zurü

Hallo XLianer,
habe ein kleines Problem, bei welchem ihr mir evneuell helfen könntet.
Ich habe einen definierten Netzwerkordner mit Lieferscheinen, welche immer gleich benannt sind (Schema "10001234 Empfänger.xlsx"). Um eine neue Lieferscheinnummer zu ziehen, schaue ich in den Ordner und trage die nächste, aufsteigende Nummer in den Lieferschein ein und speichere diesen dann entsprechend ab.
Ich weiss, dass die Dateinamen aus dem Ordner ausgelesen werden können, dann kann ich mit einer Formel die höchste Nummer ermitteln, +1 dazu zählen und so die nächste Lieferscheinnummer generieren. Ich kann das aber nur über einen Umweg, sprich über ein zusätzliches Tabellenblatt, dann eine Formel einfügen, welche mir die Dateinamen trimmt, etc. etc.
Geht das irgendwie auch direkt, dass ich nicht einfach eine Liste der Dateinamen auslese, sondern, dass das Makro mir gleich den höchsten 8-stelligen Wert von links als Variable ausgibt und ich diese in eine Zelle schreiben kann?
Falls ja... wie? :-)
Im Stile von: Lies Datei 1 aus, merke Dir die ersten 8 Zeichen, Lies Datei 2 aus und vergleiche die ersten 8 Zeichen mit den anderen 8 Zeichen, merke die ersten 8 Zeichen und vergleiche mit den anderen - ist sie höher vergleiche diese mit der nächsten Datei, etc...
Ausgabe = höchster 8-stelliger Wert +1 = Neue Lieferscheinnummer.
Danke & Grüsse
soendi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function GetNextOrderNo() As Long Const PFAD As String = "U:\test\" Dim Datei$, Nummern$, a Datei = Dir(PFAD & "*.xlsx", vbDirectory) Do Until Datei = vbNullString Nummern = Nummern & Left(Datei, 8) & ",": Datei = Dir Loop Nummern = Left(Nummern, Len(Nummern) - 1) a = Split(Nummern, ",") GetNextOrderNo = CLng(a(UBound(a)) + 1) End Function

Sub NexteOrderNr() Dim LS_Nr As Long LS_Nr = GetNextOrderNo() End Sub Function GetNextOrderNo() As Long Const PFAD As String = "E:\1herber\test\" Dim Datei$, Nummern$, a Datei = Dir(PFAD & "*.xlsx", vbDirectory) Do Until Datei = vbNullString Nummern = Nummern & Left(Datei, 8) & ",": Datei = Dir Loop Nummern = Left(Nummern, Len(Nummern) - 1) a = Split(Nummern, ",") GetNextOrderNo = CLng(a(UBound(a)) + 1) End Function

Function GetNextOrderNo() As Long Const PFAD As String = "U:\test\" Dim Datei$, Nummern$, a Datei = Dir(PFAD & "*.xlsx", vbDirectory) Do Until Datei = vbNullString Nummern = Nummern & Left(Datei, 8) & ",": Datei = Dir Loop Nummern = Left(Nummern, Len(Nummern) - 1) a = Split(Nummern, ",") Call QuickSort(a, LBound(a), UBound(a)) GetNextOrderNo = CLng(a(UBound(a)) + 1) End Function Private Sub QuickSort(ByRef ArrayToSort As Variant, ByVal Low&, ByVal High&) Dim vPartition, vTemp, i&, j& If Low > High Then Exit Sub vPartition = ArrayToSort((Low + High) \ 2) i = Low: j = High Do Do While ArrayToSort(i) vPartition j = j - 1 Loop If i j If (j - Low)

Hallo an alle
das ist nicht mein Thrad, aber das Thema hat mich aber interessiert, und stelle an die Kollegen und den Frager eine simple Frage: - Warum bitte den Aufwand ein Tabellenblatt zu löschen und mit Formeln arbeiten, wenn man in der Beispieldatei doch schon eine wundervolle Lösung sieht. Ich sage mal was ich meine.
Wenn ich doch schon so eine schöne Tabelle habe s. 111892 kann man so doch richtig sinnvoll nutzen!! Darunter verstehe ich diese :Tabelle als sog. Lieferschein "Übersichts Tabelle" dauerhaft zu speichern, und dort in einer bestimmten Zelle die aktuelle Lieferschein Nr. immer weiter hochzaehlen. Diese Zelle kann ausgeblendet sein, damit sie nicht versehentlich überschrieben wird
Jeden neuen Lieferschein in der Übersicht unten anhaengen, und sich die letzte LS Nummer merken!
Ist das nicht die einfachere Variante als jedesmal den ganzen Ordner aufzulisten und auszuwerten?
Ist nur ein Vorschlag von mir, damit klinke ich mich wieder aus. Schöne Grüsse an die Kollegen.
mfg Piet

Beliebteste Forumthreads (12 Monate)

Dateien auslesen und erste 8 Zeichen als Wert zurü

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread