Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Import Textdatei - Zielzellen fest definieren

Import Textdatei - Zielzellen fest definieren
05.05.2006 17:26:16
Pascal
Hallo zusammen,
folgendes Szenario:
Ich möchte Daten aus einer Datei, zB. Textdatei (CVS) nach Excel importieren.
Problem dabei, die einzelnen Werte der Datei sollen in fest definierte Zellen
importiert werden.
Beispiel Textdatei:
Wert1;Wert2;Wert3;Wert4;....
Bsp. Ziel:
Wert1 in A5
Wert2 in B16
....
Kann man das im Excel fest hinterlegen, so dass Excel bei jedem Aufruf der .xls Datei die Daten entsprechend aktualisiert?
Was ich vermeiden möchte, ist ein normaler Import der Daten in eine Zeile
und dann über (=...) in den Zielzellen zu referenzieren.
Für Hinweise und Ratschläge schonmal jetzt Danke :)
Pascal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import Textdatei - Zielzellen fest definieren
05.05.2006 19:20:43
Josef
Hallo Pascal!
"Kann man das im Excel fest hinterlegen, so dass Excel bei jedem Aufruf der .xls Datei die Daten entsprechend aktualisiert?"
In Excel selber gar nicht! Aber per VBA kann man das lösen.
Dazu muss man aber einiges wissen.
  • Steht die Textdatei in einem Festen Verzeichnis? Wie lautet der Pfad/Name der Datei?

  • Stehen die Werte in der Textdatei in einer Zeile?

  • Ist das Trennzeichen ein Semikolon?

  • Wieviele Werte stehen in der Datei?

  • Um welche Werte handelt es sich? (Text, Zahlen, Dezimalstellen, ...)

  • In Welche Zellen soll die Zuordnung erfolgen?

    • '******************************
    '* Gruß Sepp
    '*
    '* Rückmeldung wäre nett!
    '******************************

    Anzeige
    AW: Import Textdatei - Zielzellen fest definieren
    08.05.2006 11:09:39
    Pascal
    Hallo Sepp,
    schonmal danke für deine Antwort.
    Dazu muss man aber einiges wissen.
    Steht die Textdatei in einem Festen Verzeichnis? Wie lautet der Pfad/Name der Datei?
    Ja, der Pfad und Dateiname könnte fix eingestellt werden.
    Stehen die Werte in der Textdatei in einer Zeile?
    Ja, nur eine Zeile mit Werten.
    Ist das Trennzeichen ein Semikolon?
    Ja, Trennzeichen Semikolon. Texterkennungszeichen keins.
    Wieviele Werte stehen in der Datei?
    Ca. 10 Werte. Natürlich immer in der selben Reihenfolge.
    Um welche Werte handelt es sich? (Text, Zahlen, Dezimalstellen, ...)
    Ausschließlich um Text.
    In Welche Zellen soll die Zuordnung erfolgen?
    Die Zellen kann ich derzeit noch nicht genau sagen. Aber alle auf einem
    Tabellenblatt.
    Habe jetzt mal mit OpenText und TextToColumns experimentiert.
    Oder gibt es dazu eine geeignetere Funktion?
    Danke und Gruß
    Pascal
    Anzeige
    AW: Import Textdatei - Zielzellen fest definieren
    08.05.2006 17:50:39
    Josef
    Hallo Hugo!
    Probier mal!
    ' **********************************************************************
    ' Modul: Modul1 Typ: Allgemeines Modul
    ' **********************************************************************

    Option Explicit

    Sub ImportValuesFromTextfile()
    Dim strFile As String, strValues As String
    Dim varValues As Variant
    Dim intIndex As Integer

    ' Datei
    strFile = "F:\Temp\werte.txt" ' Textdatei - Anpassen

    ' Textdatei öffnen
    Open strFile For Input As #1

    ' Zeile auslesen
    Line Input #1, strValues

    ' Textdatei schliessen
    Close #1

    ' Werte dem Array zuweisen
    varValues = Split(strValues, ";")

    ' Werte aus Array in Spalte "A" ab Zeile 1 einlesen
    For intIndex = 0 To UBound(varValues)
      Cells(intIndex + 1, 1) = varValues(intIndex)
    Next

    ' Oder Werte in bestimmte Zellen schreiben

    Range("B5") = varValues(0) ' Null = erster Wert!
    Range("C12") = varValues(1)
    Range("B17") = varValues(2)
    Range("C17") = varValues(3)
    Range("D6") = varValues(4)
    Range("D8") = varValues(5)
    Range("D9") = varValues(6)
    Range("E3") = varValues(7)
    Range("E5") = varValues(8)
    Range("E7") = varValues(9)

    End Sub


    '******************************
    '* Gruß Sepp
    '*
    '* Rückmeldung wäre nett!
    '******************************

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige