Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren mehrere Zeilen in freie Zeilen

Kopieren mehrere Zeilen in freie Zeilen
28.11.2004 00:42:04
Jürgen
Hallo zusammen,
bestimmt kann mir hier jemand helfen. Ich möchte mittels VBA aus Tabelle2 ca 34 Zahlen/Text, aus A1 bis A34 kopieren und nach Tabelle1 in Spalte A kopieren.
Hier sind jedoch über 1000 Einträge und jede der 34 Zellen sollen in die nächst freie Zelle kopiert werden. Es muss quasi für Zelle A1 aus Tabelle 2 der erste freie Platz in Spalte A in Tabelle 1 gesucht werden und für Zelle A2 aus Tabelle 2 der nächst mögliche in Spalte A in Tabelle 1, der jedoch viel weiter unten sein kann. Ich muss so täglich entstehende Lücken schließen, ohne das die Ursprungsdaten aus Tabelle 2 sortiert werden. Es handelt sich um Paletten auf Stellplätzen.
Danke für eine möglich Lösung im Voraus.
Gruß Jürgen
AW: Kopieren mehrere Zeilen in freie Zeilen
PeterW
Hallo Jürgen,
das geht per Makro aus Tabelle 2 beispielsweise so:

Sub LueckenSchiessen()
Dim lgZiel As Long
Dim lgQuell As Long
lgZiel = 1
With Sheets("Tabelle1")
For lgQuell = 1 To 34
Do Until IsEmpty(.Cells(lgZiel, 1))
lgZiel = lgZiel + 1
Loop
.Cells(lgZiel, 1) = Cells(lgQuell, 1)
Next
End With
End Sub

Gruß
Peter
AW: Kopieren mehrere Zeilen in freie Zeilen
Hübi
Hi Peter,
dein Code macht nicht das, was Jürgen eigentlich will. Er hat 2 Tabellen und will zuerst in Tabelle1 die freien Stellen mit Werten aus Tabelle2 auffüllen und den Rest dann darunter.
Gruß Hübi
AW: Kopieren mehrere Zeilen in freie Zeilen
PeterW
Hallo Hübi,
Danke fürs Mitdenken aber was funktioniert an dem Code nicht? Es sollten zuerst die Lücken gefunden werden und gefüllt werden. Der Rest wandert ans Ende.
Gruß
Peter
Anzeige
AW: Kopieren mehrere Zeilen in freie Zeilen
Hübi
Hi Peter,
du hast ja soooo Recht. Es ist schon spät - ich glaube, ich gehe jetzt lieber ins Bett.
Gute Nacht.
Gruß Hübi
AW: Kopieren mehrere Zeilen in freie Zeilen
28.11.2004 13:25:48
Jürgen
Hallo Hübi, hallo Peter,
vielen Dank für die schnelle Antwort. Ich habe das Makro ausprobiert und es funktioniert hervorragend. Hätte nicht gedacht, das es so klein ausfällt. Eigentlich hatte ich schon befürchtet, dass man das überhaupt nicht umsetzen kann. Unglaublich welches Know How viele Forumsbesucher auf diesem Gebiet haben.
Nochmals vielen Dank für eure Hilfe.
Gruß Jürgen
AW: Kopieren mehrere Zeilen in freie Zeilen
28.11.2004 14:04:30
Jürgen
Hallo ihr Beiden,
natürlich sieht die Tabelle in Wirklichkeit ein bisschen umgangreicher aus. Es ging sich ja nur ums Prinzip. Hatte gehofft, den Code für meine Bedürfnissen selber anpassen zu können. Ich muss aus Spalte B und C ebenfalls die Daten aus Tabelle 2 nach Tabelle 1 kopieren. Ich sehe bei dem Code aber nirgens "Hole aus Spalte A" und schon weiss ich nicht weiter. Könnt ihr mir hier noch mal helfen?
Danke im voraus.
Gruß Jürgen
Anzeige
AW: Kopieren mehrere Zeilen in freie Zeilen
PeterW
Hallo Jürgen,
wäre dir damit geholfen, die gesamten Zeilen in Tabelle 1 zu schreiben oder wo soillen die Daten aus B und C hin?
Gruß
Peter
AW: Kopieren mehrere Zeilen in freie Zeilen
28.11.2004 14:31:24
jürgen
Hallo Peter,
die Daten aus Spalte B und C sollen ebenfalls in die Spalten B und C in Tabelle1. Schön wäre natürlich, wenn ich den Code verstehen und bei Bedarf auch entsprechend ändern könnte. Vielleicht kommt irgendwann mal noch Spalte D hinzu.
Gruß Jürgen
AW: Kopieren mehrere Zeilen in freie Zeilen
PeterW
Hallo Jürgen,
A bis C ginge dann so:

Sub LueckenSchiessen()
Dim lgZiel As Long
Dim lgQuell As Long
lgZiel = 1
With Sheets("Tabelle1")
For lgQuell = 1 To 34
Do Until IsEmpty(.Cells(lgZiel, 1))
lgZiel = lgZiel + 1
Loop'
hier wird jetzt übertragen!
Range(Cells(lgQuell, 1), Cells(lgQuell, 3)).Copy .Cells(lgZiel, 1)
Next
End With
End Sub

Gruß
Peter
Anzeige
AW: Kopieren mehrere Zeilen in freie Zeilen
jürgen
Hallo Peter,
funktioniert hervorragend. Ich denke, dass ich den Code auch verstehe und bei Bedarf ändern kann.
Nochmals vielen Dank für die Hilfe.
Gruß Jürgen

79 Forumthreads zu ähnlichen Themen

Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 Beiträge
Anzeige
Anzahl Zeilen in einer Zelle
Maik.F

Hallo Excel-Freunde,
ich habe eine Zelle so formatiert, daß Zeilenumbrüche zugelassen sind. In einigen Zellen können bis zu fünf Zeilen entstehen. Die Zeilenumbrüche werden NICHT durch ALT + ENTER erzeugt, sondern entstehen aufgrund der Textlänge.
Gibt es eine Möglichkeit, die Anzahl de...
26.06.2009 18:24:20
Thread-ID: 1084680
18 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Anzeige
Zeilen ausblenden in Abhängigkeit einer Zelle
Nico

Hallo,
ich habe ein kleines Problem und würde mich sehr freuen, wenn mir jemand helfen könnte.
In meiner Tabelle (Excel 2003) ist in Zelle B27 eine Liste (mittels Daten/Gültigkeit) eingefügt, aus der man nur „Ja“ oder „Nein“ auswählen kann. Immer wenn Zelle B27 den Wert „Ja“ annimmt, so...
18.03.2010 20:51:03
Thread-ID: 1146980
6 Beiträge
Mehrere Zellen in Eine kopieren, Zeilenumbruc
Chris

Hallo Excel/VBA Gemeinde :)
Ich stehe vor einem für mich aktuell unlösbaren Problem und benötige an dieser Stelle prof. Hilfe, da mein Können/Wissen mich hier im Stich lässt.
Folgende Ausgangssituation:
Ich hab zwei Tabellenblätter "x" und "y".
Im Tabellenblatt "x" hat man die M...
24.02.2011 10:09:12
Thread-ID: 1202693
10 Beiträge
Mehrere Zeilen in eine Spalte transponieren
Charlotte

Hallo zusammen,
bin auf der Suche nach einer Lösung für folgendes Problem:
Ich habe eine Excel-Tabelle mit 24 Spalten (A - X, Stunden des Tages) und 365 Zeilen (1 - 365, Tage des Jahres). Die einzelnen Zeilen sollen nun transponiert in einer Spalte dargestellt werden, d.h. Spalte A mit...
27.06.2012 10:56:34
Thread-ID: 1269058
13 Beiträge
zwei Zeilen mit gleicher Kopfnummer in einer Zeile
VBA_JGE

Hallo zusammen,
ich möchte gerne eine CSV oder TXT Datei auslesen, was auch soweit schon sehr gut funktioniert! Hier ist aber die Hürde, dass diese Datei auch Zeilen aufweißt, wo die Kopfnummer gleich ist
Beispiel:
40,VBA,27,DRS,CGN,2011-12-05 08:20:00,2011-12-05 09:30:00,,,,,,,
...
24.01.2013 13:16:00
Thread-ID: 1295808
4 Beiträge
Infos mehrerer Zeilen zusammenfassen in eine Zeile
Fabian

Hallo zusammen,
folgendes Problem: Ich habe eine Datei mit folgender Struktur:
abc def ghi ID1
fde adf sdf ID1
asd wer wew ID2
we3 as3 as2 ID3
we1 oud jhl ID3
pow mnl hnw ID3
Als...
22.05.2013 14:17:38
Thread-ID: 1314345
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
4
17
2
3
5
9
12
3
1
5
4
8
1
6
2
2
9
10
9
2
6
3
1
12