Hallo Wolf-Joseph,

nicht ganz verständlich, was das mit dem Format auf sich hat. Nachfolgend mal ein Makro, dass Dir eine Textdatei anlegt und bei jedem Aufruf in diese Textdatei in eine neue Zeile die Werte aus den Zellen A1, B1 und A2, B2. Das ganze sieht dann wie folgt in der Textdatei aus. Wenn in den Zelle A1 der Wert 1, in B1 der Wert 2 , in Zelle A2 der Wert 3 und in Zelle B2 der Wert 4 steht, dann sieht das in der Textdatei (1 2),(3 4) aus. Ob das nun das richtige Format ist weiß ich nicht direkt, da wie geschrieben, nicht ganz verständlich.

Nachfolgend nun das Makro, das diese Textdatei mit dem beschriebenen Format erstellt.
Kopiere es in ein StandardModul und starte es.

[b] Option Explicit

Sub TXT_Datei_erstellen()
Dim Dateityp$
Dim Datei_vorhanden As Boolean
Dim Verzeichnis
Dim TXT_Array As Variant

Verzeichnis = "C:\"

'Werte in ein Array schreiben
TXT_Array = "(" & Range("A1") & " " & Range("B1") & "),(" & Range("A2") & " " & Range("B2") & ")"

'Abfrage, ob CSV-Datei bereits existiert
Dateityp = Dir(Verzeichnis & "*.txt")
Do While Dateityp <> ""
'Wenn die abgefragte Datei den Namen der Variablen "mobile.csv" hat dann...
If LCase(Dateityp) = "Test.txt" Then
'Variable "Dateityp" auf true setzen
Datei_vorhanden = True
Exit Do
End If
Dateityp = Dir
Loop

'Wenn Datei exisitiert, diese nur öffnen und in neue
'Zeile den Text aus der Arrayvariablen eintragen
If Datei_vorhanden = True Then
Open "C:\Test.txt" For Append As #1
Print #1, TXT_Array
Close
Else
'Wenn Datei nicht exisitiert, diese anlegen und in 1.
'Zeile den Text aus der Arrayvariablen eintragen
Open "C:\Test.txt" For Output As #1
Print #1, TXT_Array
Close
End If
End Sub [/b]

Ich hoffe Du meintest das so und dass Du klar kommst.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}