Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte kopieren (Batch)?

Forumthread: Zelleninhalte kopieren (Batch)?

Zelleninhalte kopieren (Batch)?
06.06.2007 14:53:37
Selma
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte kopieren (Batch)?
06.06.2007 16:56:14
Matthias
Hallo Selma,
so müsste es klappen:

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


Gruß Matthias

Anzeige
AW: Zelleninhalte kopieren (Batch)?
06.06.2007 17:42:00
Selma
Hallo lieber Matthias,
erstmal vielen Dank für deine Hilfe. Ich habe versucht als Trennzeichen & Chr(13) zu nehmen (für Enter). Leider hat es nicht funktioniert. Geht das überhaupt?
Beispiel nachher (alles untereinander):
Text 1
Text 2
Text 3
Text 4
Text 5
Text 6
LG
Selma

Anzeige
AW: Zelleninhalte kopieren (Batch)?
06.06.2007 17:53:00
Matthias
Hallo Selma,
wieso Enter als Trennzeichen? Ich dachte die Spalteninhalte sollen jeweils in eine Zeile.
Gruß Matthias

AW: Zelleninhalte kopieren (Batch)?
07.06.2007 21:01:00
Selma
Hallo Matthias,
jedes Zelleninhalt soll jeweils in eine Zeile in excel.bat.
Immer ein Excel Zellinhalt, dann neue Zeile, ein Excel Zellinhalt, dann neue Zeile usw.
Anbei eine Beispieldatei: https://www.herber.de/bbs/user/43086.xls
Liebe Grüße
Selma

Anzeige
AW: Zelleninhalte kopieren (Batch)?
08.06.2007 10:57:00
Matthias
Hallo Selma,
ach so:

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


Gruß Matthias

Anzeige
es funktioniert prima - vielen DANK !
08.06.2007 13:18:00
Selma
Hallo Matthias,
es funktioniert prima - vielen DANK !
LG
Selma
;

Forumthreads zu verwandten Themen

Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Anzeige
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 Beiträge
kompl. zelleninhalt in textdatei kopieren
Helmut

hallo vba'ler,
ich hätte eine kurze frage für profis:
ich habe folgenden code:
j = Sheets("Textexport").UsedRange.Rows.Count
Open "D:\Text.txt" For Output As #1
For i = 1 To j
Tstring = Format(Cells(i, 1)) & Format(Cells(i, 2)) & Format(Cells(i, 3)) & Format(...
09.03.2010 10:00:23
Thread-ID: 1144486
6 Beiträge
Anzeige
Zelleninhalte umkopieren
Hugo

Hallo zusammen
Möchte Daten aus einer Zelle in die darunterliegenden Zeilen/Zellen kopieren
DH:
In Zelle A1 steht, jeweils mit Zeilenumbruch:
Hans
Apfel
Gurke
Nun soll per VBA Hans in A2, Apfel in A3 und Gurke in A4 kopiert werden
Besten Dank für eure Hilfe
G...
28.09.2010 20:20:49
Thread-ID: 1179799
8 Beiträge
Zelleninhalt kopieren und einfügen
Ingo

Hallo,
ich habe eine Excel-Tabelle, in der in der zweiten Spalte Daten stehen. Zwischen den Daten sind die Zellen ohne Inhalt. Ich möchte nun, dass die leeren Zellen mit den darüberstehenden Daten gefüllt werden.
Hier der Code, den ich verfasst habe und der nichts ausfüllt...
Sub Ze...
16.05.2011 06:40:15
Thread-ID: 1214626
7 Beiträge
Zelleninhalte kopieren
Helmut

Hallo,ich möchte in einer Zelle (Bsp. A1) einen Wert eingeben, der dann innherlab des Sheets(Bsp. A10) an eine andere Stelle kopiert werden soll. Nun wird in A1 wieder ein Wert eingegeben. Dieser soll nun wieder an A10 weggeschrieben werden, allerdings addiert zum ersten Wert. Zu guter letzt so...
06.06.2002 11:27:43
Thread-ID: 126429
2 Beiträge
Anzeige
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Zelleninhalte kopieren & einfügen
Stefan

Hallo zusammen
Ich möchte aus jener Zeile, in welcher sich die aktive Zelle befindet, den Wert E, F, G und M kopieren und in eine fixe Position einfügen.
Die fixen Positionen zum Einfügen sind P2/P3/P4 und R3.
Beispiel: aktive Zelle ist C1. Somit sollen aus Zeile1 die Werte folgende...
10.04.2013 15:55:38
Thread-ID: 1308191
3 Beiträge
Zelleninhalt "versetzt" kopieren
Dieter

Bitte um Hilfe !
Ich möchte mehrere Zellen eines Blattes „versetzt“ in ein anderes Blatt kopieren. Es soll ablaufen, bis eine leere Zeile in der Tabelle PDaten erreicht ist. Auslösen möchte ich das Kopieren beim Beenden der Eingabe der PDaten mittels Befehlsbutton.
PDaten!A5; B5; D5 nac...
28.08.2013 17:41:18
Thread-ID: 1328681
3 Beiträge
AW: Zelleninhalt in anderes Tabellenblatt kopieren
Rene

Hallo Leute,
leider ist mein alter Beitrag schon archiviert und ich kann ihn nicht weiterführen.
Ich bekam damals den Tip mit der Matrixformel: {=WENN(ZEILEN($1:1) >ZÄHLENWENN(Mitglieder!I:I;"E");"";INDEX(Mitglieder!B:B; KKLEINSTE(WENN( _ Mitglieder!I$1:I$99="E";ZEILE($1:$99) );ZEIL...
20.01.2014 13:29:07
Thread-ID: 1345977
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige