Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenblatt, Tabelle aus Textdatei erzeugen

Forumthread: Datenblatt, Tabelle aus Textdatei erzeugen

Datenblatt, Tabelle aus Textdatei erzeugen
29.08.2016 13:47:48
Jens
Hallo.
ich habe in einem Datenblatt eine Tabelle(A3:AD100) mit Daten.
Diese Daten möchte ich mit einem Makro löschen und dann mit einer Textdatei, die durch Semikolons getrennt ist, wieder füllen.
Wie kann ich das machen?
Gruss Jens
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenblatt, Tabelle aus Textdatei erzeugen
30.08.2016 00:09:41
fcs
Hallo Jens,
etwa wie folgt.
Gruß
Franz 
Sub prcGet_Data_from_Text_File()
Dim wksZiel As Worksheet
Dim varText, wkbText As Workbook, wksText As Worksheet
varText = Application.GetOpenFilename("Textfile (*.txt),*.txt", _
Title:="Bitte zu importierende Textdatei auswählen", _
MultiSelect:=False)
If varText = False Then Exit Sub
Set wksZiel = ActiveSheet
Application.ScreenUpdating = False
Application.Workbooks.OpenText Filename:=varText, _
Startrow:=1, _
DataType:=xlDelimited, _
Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
local:=True
Set wkbText = Application.Workbooks(Mid(varText, InStrRev(varText, "\") + 1))
Set wksText = wkbText.Sheets(1)
wksZiel.Range("A3:AD100").ClearContents
With wksText
.Range(.Cells(1, 1), .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, 30)).Copy
End With
wksZiel.Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wkbText.Close savechanges:=False
Range("A3").Select
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Datenblatt, Tabelle aus Textdatei erzeugen
30.08.2016 06:11:28
Jens
Danke Franz für die Antwort.
Werde das nachher ausprobieren
AW: Datenblatt, Tabelle aus Textdatei erzeugen
30.08.2016 07:51:45
Jens
Vielen Dank Franz.
Das ist genau, was ich gesucht habe.
Habe die Zellen noch angepasst und jetzt klappt es. Danke
Wenn ich nun noch fest eine Datei zum hoch Laden angeben möchte. Was muss ich ändern?
AW: Datenblatt, Tabelle aus Textdatei erzeugen
30.08.2016 18:59:05
fcs
Hallo Jens,
wenn der Dateiname sich nicht ändert, dann kannst du in der Variablen drekt zuweisen.
Aber es sollte dann geprüft werden, ob die Datei auch vorhanden ist.
Gruß
Franz 
Sub prcGet_Data_from_Text_File()
Dim wksZiel As Worksheet
Dim varText, wkbText As Workbook, wksText As Worksheet
varText = "C:\users\Public\Test\SAP_Testdata.txt"
If Dir(varText) = "" Then
MsgBox "Datei" & vbLf & varText & vbLf & "nicht gefunden!"
Exit Sub
End If
Set wksZiel = ActiveSheet
Application.ScreenUpdating = False
Application.Workbooks.OpenText Filename:=varText, _
Startrow:=1, _
DataType:=xlDelimited, _
Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
local:=True
Set wkbText = Application.Workbooks(Mid(varText, InStrRev(varText, "\") + 1))
Set wksText = wkbText.Sheets(1)
wksZiel.Range("A3:AD100").ClearContents
With wksText
.Range(.Cells(1, 1), .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, 30)).Copy
End With
wksZiel.Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wkbText.Close savechanges:=False
Range("A3").Select
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Datenblatt, Tabelle aus Textdatei erzeugen
31.08.2016 07:53:48
Jens
Viel Danke Franz
;

Forumthreads zu verwandten Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
auf anderes sub zugreifen
Lars

Hallo,
ich möchte gerne eine Standardprozedur im sub "A" definieren, und es in anderen subs (z.B. "B") aufrufen, so dass es ausgeführt wird. Anschließend geht es in sub "B" weiter. Wie funktioniert das?
Danke
Gruß
Lars
03.09.2008 15:35:00
Thread-ID: 1007127
12 Beiträge
Anzeige
Daten aus tmp-Datei importieren
Wolfgang

Hallo,
ich suche nach einer Möglichkeit, aus einer .tmp-Datei die wohl im Format *"?xml version="1.0" encoding="UTF-8"?*" geschrieben ist, Daten in Excel zu importieren. Über das übliche Verfahren "Daten importieren" bekomme ich das nicht hin. Hat evtl. jemand eine Idee, was ich da machen k...
09.09.2008 08:52:00
Thread-ID: 1008298
7 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Daten aus verschiedenen Dateien *HILFE*
Uwe

Guten Morgen
ich habe folgende Datei:
https://www.herber.de/bbs/user/55730.zip
ich umreiße kurz die Funktion, sowie den aktuellen Fehler:
Geschäftsablauf sieht folgendermaßen aus:
Kunde bestellt bei uns ein Produkt, welches der Vertrieb mit den vorliegenden Fahrzeugdaten -...
30.09.2008 08:16:45
Thread-ID: 1013242
7 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Datenimport, Zahlen aus .txt Datei
Tom

Hallo zusammen,
benötige mal wieder Euer Fachwissen.
Es geht um eine .txt-Datei mit 100.000 Zahlen a 13 Stellen, diese möchte ich in Excel importieren.
Hierzu nutze ich in Excel Daten_ Externe Daten importieren, funktioniert auch gut, nur das nicht alle Zahlen in ein Tabelleblatt pa...
20.10.2008 19:30:14
Thread-ID: 1017788
2 Beiträge
Anzeige
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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