Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige