Excel Makro Output in Editor speichern

Question

Hallo Helfer!

Folgendes Problem:

Mir liegt eine Excel (2003) Tabelle vor, aus dieser Tabelle sollen verschiedene Werte Entnommen werden und an bestimmten Stellen in einer Textdatei (Editor) eingefügt werden.

Die Excel Tabelle ist wie folgt aufgebaut:
Name // Vorname // Alter // Studienrichtung

Es soll dann eine neue Textdatei (Editor) angelegt und wie folgt geschrieben werden:
(Vorname) ist (Alter) Jahre alt und studiert (Studienrichtung)

- am besten wäre es wenn sich die Textdatei Ihren Namen aus einer in der Excel Tabelle vorgegebenen Zelle zieht...

Dies soll so lange fortgesetzt werden, bis die Routine am Ende der Tabelle angekommen ist.

Weiterhin soll alle sechs Zeilen ein Absatz eingefügt werden.

Geht so was und wenn ja wie?!

Vielen Dank für eure Hilfe!

Answer 1

Hi,

anstelle des Editors... warum nicht Word?

Ich könnte mir vorstellen, dass Du das dort mit der Funktion >>Serienbrief << hinbekommen könntest

oder

alternativ ein Formblatt mit Excel und dann mit einem Makro
die Felder immer wieder füllen lassen, aber da müsste ich
mangels meiner VBA-Kenntnisse auch erst einmal passen.

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 2

Hallo,
versuch mal das Makro (Modul1 anlegen):

Sub text()

Open "c:\Kommentare.txt" For Output As #1

For i = 2 To Sheets(1).UsedRange.Rows.Count


Print #1, Sheets(1).Cells(i, 2).Value & " ist " & _
Sheets(1).Cells(i, 3).Value & " Jahre alt und studiert " & _
Sheets(1).Cells(i, 4).Value

'Zeilenwechsel nach sechs durchläufen
j = j + 1
If j = 6 Then
Print #1, " "
j = 0
End If

Next i

Close #1

End Sub

wichtig ist, dass Du vorher eine leere Textdatei c:\Kommentare.txt anlegst.

Gruß
Jörg.

Answer 3

Hallo,

hat super funktioniert, vielen Dank. Einziger Nachteil ist, dass die fehlenden Zeilen bis zum Erreichen der 6. Zeile mit den 'leeren' Sätzen ist Jahre alt und studiert aufgefüllt werden.

Liebe Grüße!

Answer 4

Hallo Jörg,

gibt es weiterhin die Möglichkeit den Output, also die beschrieben Kommentare.txt unter einem neuen Namen zu speichern? Am Besten wäre es wenn ich eine Zelle aus der Tabelle wie z.B. Kurs nutzen könnte und diesen zusammen mit dem Datum in den Dateinamen packe.

Vielen Dank!