Office: Ausgabe von Werten "nebeneinander"

Hallo zusammen,

vorab muss ich sagen das ich kein Profi bin.
Aber ich versuche mal zu erklären was mein Problem ist in der Hoffnung das ihr mir dabei weiterhelfen könnt.

Ich möchte mit einem Button einen bestimmten Datensatz in eine *.bat Datei schreiben. Das funktioniert soweit auch schon sehr gut.
Mein Problem ist nun aber das ich den Datensatz aus zwei Spalten auslese und die sollten eigentlich auch so in meine *.bat Datei geschrieben werden.
Nebeneinander nicht untereinander so wie es jetzt geschieht *entsetzt

Hier mal mein Code:

Private Sub CommandButton2_Click()

Dim Pfad As Variant
Dim txt As String
Dim ar As Variant
Dim i As Long

Pfad = Application.GetSaveAsFilename( _
InitialFileName:="testbatch.bat", _
FileFilter:="Batch Files (*.bat), *.bat", _
Title:="Speichern ALS BatchDatei")

If TypeName(Pfad) = "Boolean" Then Exit Sub
If Dir(Pfad) "" Then If MsgBox("Datei existiert bereits. Sie wird ersetzt!", vbOKCancel, "MELDUNG VON GOTT") = vbCancel Then Exit Sub

Dim Bereich As Range, Zeile As Long, Spalte As Long
Set Bereich = ThisWorkbook.Worksheets("Tabelle1").Range("F3:G99")
Open Pfad For Output As #1
For Zeile = 0 To Bereich.Rows.Count - 1

For Spalte = 0 To Bereich.Columns.Count - 1
Print #1, Bereich.Cells(1).Offset(Zeile, Spalte).Value
Next Spalte
Next Zeile
Print #1,
Close #1

End Sub

NICHT LACHEN > bin doch noch Anfänger.

Ausgabe in der *.bat Datei ist jetzt folgende:

mkdir
B0048_BXL048
mkdir
B0050_BXL050
mkdir
B0130_BXL130
mkdir
B0171_BXL171

Es soll aber so sein:
mkdir B0048_BXL048
mkdir B0050_BXL050
mkdir B0130_BXL130
mkdir B0171_BXL171

geht das irgend wie?

Gruß
Martin

:)

 

Hi Martin,
ich fürchte da schießt jemand von hinten durch das Auge und in die Brust.
Bitte erkläre doch mal wo zu Du die Batch-Dateien benutzt bzw. warum erzeugst Du die Sub-Verzeichniss nicht gleich aus dem Programm direckt?

 

Hallo,

Code:

 

Danke xlph,

das klappt wunderbar. Ich danke dir für deine Mühe.
@ASE ich benötige die *.bat um sie woanders auszuführen. Auf ein System ohne Office Anwendung ;-)

Gruß

Martin