Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
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

Wert aus Textdatei in bestimmte Zelle einlesen

Wert aus Textdatei in bestimmte Zelle einlesen
07.12.2016 08:53:44
BuStue
Hallo Freunde,
ich habe einen sich täglich einmal veränderten Wert der von einem Programm in eine Textdatei (ERTRAG.txt) geschrieben wird. Zwecks Auswertung habe ich ein Arbeitsblatt (Basis) erstellt. In diesem sollte beim Öffnen des Arbeitsblatt in Zelle B10 der Wert aus der Textdatei überschrieben werden. Mit dem Makrorecorder habe ich es schon versucht. Leider schreibt er zwar den Wert in die Zelle verschiebt aber den Rest nach rechts. Hier geht es nur um einen Wert. Im Forum habe ich nur das Einlesen ganzer Dateien gefunden.
Könnt Ihr helfen.
Mit freundlichen Grüßen
Burghard

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Textdatei in bestimmte Zelle einlesen
07.12.2016 09:55:00
UweD
Hallo
meinst du das?
Es wird die erste Zeile der Datei gelesen
Private Sub Worksheet_Activate()
    Dim Pfad As String, Filename As String, Wert As String
    Pfad = "C:\Temp\"
    Filename = "ERTRAG.TXT"
    Close #1
    Open Pfad & Filename For Input As 1
        Input #1, Wert
    Close #1
    Range("B10") = Wert
End Sub

LG UweD
Anzeige
AW: Wert aus Textdatei in bestimmte Zelle einlesen
07.12.2016 10:08:53
BuStue
Hallo UweD,
fantastisch, funktioniert bestens. Eine Frage hätte ich da noch, wie kann man das in einem ausgeblendeten Tabellenblatt machen.
MfG
Burghard
AW: Wert aus Textdatei in bestimmte Zelle einlesen
07.12.2016 10:22:01
UweD
Hallo
du hattest geschrieben "In diesem sollte beim Öffnen des Arbeitsblatt"
deshalb hatte ich das Auslösen des Events auf das aktivieren des Blattes gelegt.
Man kann das auch beim "öffnen der Arbeitsmappe" oder sonstwie auslösen.
Dann kannst du das auch in ausgeblendte Blätter schreiben.
gehört in DieseArbeitsmappe
Private Sub Workbook_Open()
    Dim TB, Pfad As String, Filename As String, Wert As String
    
    Set TB = Sheets("Basis")
    Pfad = "C:\Temp\"
    Filename = "ERTRAG.TXT"
    
    Close #1
    Open Pfad & Filename For Input As 1
        Input #1, Wert
    Close #1
    TB.Range("B10") = Wert
End Sub

LG UweD
Anzeige
AW: Wert aus Textdatei in bestimmte Zelle einlesen
07.12.2016 10:54:06
BuStue
Hallo UweD,
vielen, vielen Dank, Du hast mir sehr geholfen.
MfG
Burghard
AW: Prima! owT
07.12.2016 10:59:26
UweD
AW: Prima! owT
07.12.2016 11:25:20
BuStue
Tschuldigung UweD,
wenn, in der Textdatei in der 1.Zeile eine Überschrift stehen würde und in der zweiten der Wert.
wie könnte man das Script ändern.
MfG
Burghard
AW: Prima! owT
07.12.2016 11:35:30
UweD

Open Pfad & Filename For Input As 1
Input #1, Wert 'Überschrift
Input #1, Wert
Close #1

AW: Prima! owT
07.12.2016 11:46:55
BuStue
Hallo UweD,
ich bin begeistert, recht, recht vielen Dank für Deine Hilfe.
MfG
Burghard
gern geschehen owT
07.12.2016 15:59:55
UweD

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige