Zahlen vergleichen und in Variable speichern?
16.11.2019 14:31:16
Sergej
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
Sergej
Anzeige