Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1720to1724
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

Zahlen vergleichen und in Variable speichern?

Zahlen vergleichen und in Variable speichern?
16.11.2019 14:31:16
Sergej
Hallo Leute,
ich habe dieses Makro, um die Inhalte der TXT-Datei zu lesen. Die Datei liefert immer 2 Ergebnisse. In der Regel sind das die Zahlen. Beispielweise 2 und 14.
Wie kann ich bitte die beiden Zahlen vergleichen sprich der kelinere Zahl soll als Suchergebnis 1 und der größere Zahl als Suchergbnis 2 ausgegeben werden?
Sub TextdateiLesen()
'Gesamte Datei lesen
Dim strText As String
Dim lngAnzahlZeichen As Long
Open "T:\test.txt" For Input As #1
lngAnzahlZeichen = LOF(1)
strText = Input(lngAnzahlZeichen, #1)
Debug.Print strText
Close #1
End Sub
Beste Grüße,
Sergej

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen vergleichen und in Variable speichern?
16.11.2019 14:52:07
volti
Hallo Sergej,
ich gehe mal davon aus, dass die beiden Zahlen per Tab getrennt in der Datei enthalten sind.
Dann teste mal folgendes:
Sub TextdateiLesen()
'Gesamte Datei lesen
     Dim strText As String, sArr() As String
     Dim lngAnzahlZeichen As Long
     Open "T:\test.txt" For Input As #1
     lngAnzahlZeichen = LOF(1)
     strText = Input(lngAnzahlZeichen, #1)
     sArr = Split(strText & vbTab, vbTab)
     Debug.Print sArr(0), sArr(1)
     Close #1
End Sub

viele Grüße
Karl-Heinz
Anzeige
AW: Zahlen vergleichen und in Variable speichern?
16.11.2019 17:21:42
Sergej
Hallo Karl-Heinz,
die Inhalte in der TXT-Datei sind untereinder geschrieben. Die Ausgabe von strText ergibt dies:
14
2

Da im Beispiel die 2 kleiner ist als 14, sollte ich als Ergebnis Bsp. strT1 = 2 und als strT2 = 14 bekommen. Der kleinere Zahl soll immer als strT1 ausgegeben werden.
Beste Grüße,
Sergej
AW: Zahlen vergleichen und in Variable speichern?
16.11.2019 17:47:39
Nepumuk
Hallo Sergej,
teste mal:
Sub TextdateiLesen()
    'Gesamte Datei lesen
    Dim strT1 As String, strT2 As String
    Dim vntTemp As Variant
    Open "H:\test.txt" For Input As #1
    vntTemp = Split(Input(LOF(1), #1), vbLf)
    strT1 = CStr(Application.Min(Clng(vntTemp(0)), Clng(vntTemp(1))))
    strT2 = CStr(Application.Max(Clng(vntTemp(0)), Clng(vntTemp(1))))
    Debug.Print strT1, strT2
    Close #1
End Sub

Gruß
Nepumuk
Anzeige
AW: Zahlen vergleichen und in Variable speichern?
17.11.2019 17:29:17
Sergej
Vielen Dank Nepumuk

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige