Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nächste freie Nr. aus TXT-Datei finden?

Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:26:41
Sergej
Hallo Leute,
ich habe eine TXT-Datei C:\Daten\Kundenliste.txt mit Kundendaten und Kundennummern.
Wie kann ich bitte per VBA die nächste frei Nummer ermitteln und in einem MsgBox ausgeben?
Wichtige Voraussetzungen für die Ermittlung der nächsten frie Nummer sind.
- Es sollen nur die Zeilen berücksichtigt werden, die mit [ beginnen
- Vor dem Zahl muss ein Leerzeichen sein
Beispiel:
[Müller & Feldtner GmbH [$2020]] 1530 1531 1532 1533 1534 1003
<test 25000 10880 22800 25500
[8000 Hoffmann GmbH [$12020]] 850 1500 2000 1540 1110 580
Nächste freie Nummer wäre im Beispiel: 2001
Herzlichen Dank im Voraus....
Beste Grüße,
Sergej
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:35:30
onur
"Nächste freie Nummer wäre im Beispiel: 2001" - Verrätst du uns auch, warum das so ist?
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:41:01
Sergej
Einen wunderschönen Tag Onur,
wenn man die Voraussetzungen betrachtet ist es die 2001.
Beste Grüße,
Sergej
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:42:44
onur
Voraussetzungen, die nur DU kennst .
Erkläre doch einfach, warum 2001 und nicht z.B. 1531 ?
Anzeige
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:52:51
Sergej
"Wer lesen kann, ist klar im Vorteil"
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:59:26
onur
Hey Einstein!
"- Es sollen nur die Zeilen berücksichtigt werden, die mit [ beginnen" - die erste Zeile beginnt mit [ !
- Vor dem Zahl muss ein Leerzeichen sein" Vor DEM Zahl 1534 ist ein Leerzeichen, also müsste 1535 gehen !
"Wer lesen kann, ist klar im Vorteil" , das schreibt einer, der nicht mal die deutsche Sprache beherrscht?
Anzeige
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:49:51
AlterDresdner
Hallo Sergej,
versuch mal
Sub MaxNummer()
Dim Zeile As String, MaxNr As Long, zahl, Feld
Open "C:\Daten\Kundenliste.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Zeile
If Left(Zeile, 1) = "[" Then
Feld = Split(Zeile, " ")
For Each zahl In Feld
If IsNumeric(zahl) Then
If Val(zahl) > MaxNr Then MaxNr = Val(zahl)
End If
Next
End If
Loop
Close #1
MsgBox MaxNr + 1
End Sub

Gruß der AlteDresdner
Anzeige
AW: Nächste freie Nr. aus TXT-Datei finden?
02.05.2020 12:56:54
Sergej
Hallo AlteDresdner,
vielen herzlichen Dank. Es funktioniert perfekt.
Ich wünsche Dir einen schönen Tag.
Beste Grüße,
Sergej
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige