Zelleninhalte kopieren (Batch)?

Hallo Leute,
ich habe bis jetzt mit diesem Code die Zelleninhalte des marktierten Zellenbereiches (z.B. U2:U43) in die BAT-Datei geschrieben und im Anschluß wurde diese Datei ausgeführt.


Sub Batch()
Dim Zelle, Starte
Close
Open "c:\temp\excel.bat" For Output As #1
For Each Zelle In Selection
Print #1, Zelle.Value
Next Zelle
Close #1
Starte = Shell("c:\temp\excel.bat")
End Sub

Wenn ich jetzt mehrere Zellen (z.B. U2:W43) über mehrere Spalten markiere, dann sollen die in richtige Reihenfolge in die BAT-Datei geschrieben werden.
Beim Zellenbereich U2:Y43 wäre das:
Zelleninhalte U2:U43 dann neue Zeile
Zelleninhalte V2:V43 dann neue Zeile
Zelleninhalte W2:43 dann neue Zeile
Also einfach alphabetisch...
Was muss ich an Code verändern?
Besten Dank im Voraus...
Liebe Grüße
Selma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Batch() Dim ff As Integer Dim rng As Range Dim tmp As String Dim Zeile As Long, Spalte As Integer If Selection.Areas.Count > 1 Then MsgBox "Es muss ein zusammenhängender Bereich definiert sein!" Exit Sub End If Set rng = Selection ff = FreeFile Open "c:\temp\excel.bat" For Output As #ff For Spalte = rng(1).Column To rng(1).Column + rng.Columns.Count - 1 tmp = "" For Zeile = rng(1).Row To rng(1).Row + rng.Rows.Count - 1 tmp = tmp & Cells(Zeile, Spalte) & " " 'Leerzeichen als Trennzeichen Next Zeile tmp = Left(tmp, Len(tmp) - 1) 'letztes Leerzeichen entfernen Print #ff, tmp 'Debug.Print tmp Next Spalte Close #1 Starte = Shell("c:\temp\excel.bat") End Sub

Sub Batch() 'Makro von Matthias 'https://www.herber.de/forum/messages/ _ 876089.html Dim ff As Integer Dim rng As Range Dim tmp As String Dim Zeile As Long, Spalte As Integer If Selection.Areas.Count > 1 Then MsgBox "Es muss ein zusammenhängender Bereich definiert sein!" Exit Sub End If Set rng = Selection ff = FreeFile Open "c:\temp\excel.bat" For Output As #ff For Spalte = rng(1).Column To rng(1).Column + rng.Columns.Count - 1 For Zeile = rng(1).Row To rng(1).Row + rng.Rows.Count - 1 With Cells(Zeile, Spalte) If .Value "" Then Print #1, .Value End With Next Zeile Next Spalte Close #1 Starte = Shell("c:\temp\excel.bat") End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalte kopieren (Batch)?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread