Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1756to1760
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
Inhaltsverzeichnis

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

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 ?
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
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
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige