Hallo Leute,
hab leider keine Ahnung von VBA und nach stundenlangem Suchen im Netz bin ich nicht so richtig vorangekommen.
Problem: Bestimmte Daten (Zellen) aus Excel rauslesen und diese paarweise mit einem Gleichzeichen zeilenweise in der Form "Parametername= Zahl" in eine Textdatei schreiben.
Der Aufbau des Excelblattes bleibt immer gleich nur die Werte werden geändert.
Die Zeilen im textfile sollen folgendermaßen aussehen:
D=120
S=130
usw.
Habe folgenden Code gefunden:
Sub datenexport()
Dim r&, c%, s$
Open "D:\SA IKTD\Parametersteuerung.txt" For Output As #1
For r = 1 To 30 'zeile 1 - 30
s = ""
For c = 1 To 3 'Spalte A,B,C
s = s & Cells(r, c).Value & Chr(9) 'Chr(9)=Tab
Next
Print #1, s
Next
Close #1
MsgBox ("Datenexport erfolgreich")
End Sub
Weiss aber nicht wo und wie ich mit den Anpassen beginnen soll ?
Vielen Dank !!!
|