Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für txt-import und auslesen von Zellen

Forumthread: Makro für txt-import und auslesen von Zellen

Makro für txt-import und auslesen von Zellen
03.10.2002 15:34:42
Nappi

Hallo Leute!

Ich möchte mich an meinem allerersten Makro versuchen und suche dafür:

- Tipps/Tutorials/Seiten zum sanften Einstieg

- Eine Idee, wie ich das Makro so programmieren kann, dass ich im Excel eine txt-Datei angebe/öffne, und dann die Textkonvertierungsschritte via makro erledige

- den Hinweis, wie ich den Inhalt der ersten Zelle einer Spalte auslesen und vergleichen kann und die Zeilen bei einer variablen Zeilenanzahl durchgehe und dann formatiere (aber nur die nicht-leeren Zeilen)

Leider hab ich bisher nur Java und C gemacht, VB noch nicht, deshalb kenn ich die Syntax usw. da noch nicht genau.

Bin für jeden Tipp dankbar!

Nappi

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro für txt-import und auslesen von Zellen
03.10.2002 15:53:55
Chris
Hallo Nappi

In der Recherche unter Import hat es diverse Beiträge zum Import von Text-Files.

Datei öffnen und einer Variablen übergeben wie folgt:
fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
MsgBox (fFile)

Letzte nicht leere Zeile ermitteln:
i = Range("A1").End(xlDown).Row

Zelleninhalte in Variablen übergeben...
Dim b
i = Range("A1").End(xlDown).Row
For y = 1 To i
b = ActiveSheet.Cells(y, 1).Formula
MsgBox ("Zelle A" & y & " =" & b)
Next y

Gruss
Chris

Anzeige
Re: Makro für txt-import und auslesen von Zellen
03.10.2002 17:15:46
nappi
Hallo!

Danke für deine Anregungen!

Hab den Öffnungsteil jetzt so verwirklicht (wenn's wen interessiert):

fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
Workbooks.OpenText Filename:= _
(fFile) _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True


Den Rest muss bis morgen warten ;)

Nappi

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige