Schleife durchlaufen bis Zeile leer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Sub Kopieren() Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft der Daten Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - die Ausgabe Dim lZeile As Long Application.ScreenUpdating = False Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen! Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen! For lZeile = 1 To WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row If WkSh_Z.Range("A" & lZeile).Value "" Then WkSh_Z.Range("B" & lZeile & ":D" & lZeile) = WkSh_Q.Range("B2:D2").Value End If Next lZeile Application.ScreenUpdating = True End Sub

Hallo Peter,
erst mal danke für deine Hilfe. Komm damit leider nicht ganz zurecht - beschreib es jetzt nochmals genauer.
Habe in Tabelle 1 in Spalte A und B fixe Werte. In Tabelle 2 (C3:X3) habe ich Formeln (sverweis auf andere Dateien) fix hinterlegt.
Jetzt soll folgendes geschehen.
Start ist in Tabelle 1 (C3) - wenn B3 leer, dann kopiere aus Tabelle 2 (C3:X3) in Tabelle 1 (als erstes die Formeln) - danach das Ergebnis der Formeln nochmals kopieren (nur Werte)
nächste Zeile
Tabelle 1 (C4) - wenn B4 leer, dann kopiere aus Tabelle 2 (C3:X3) in Tabelle 1 (als erstes die Formeln) - danach das Ergebnis der Formeln nochmals kopieren (nur Werte)
usw.
Problem ist, dass ich ungefähr 12000 Zeilen mittels sverweis aus anderen Dateien auslesen muss und das funktioniert mit runterziehen nicht wirklich (da hängt sich die Datei immer auf). Das hoffe ich zu verhindern indem ich immer nur die eine Zeile aus Tabelle 2 kopiere, einfüge (damit die Daten gelesen werden können) und gleich danach nochmals kopiere und nur mehr die Werte einfüge. Danach gehts weiter mit der nächsten Zeile usw..
Ich bin mir zwar sicher, dass das ganze mittels vba sicher noch einfacher gehen würde, aber wie gesagt sind meine VBA-Kentnisse ziemlich lausig. Vielleicht kannst du oder jemand anders mir nochmals helfen.
mfg
Mario

Hi Mario,
zuerst ein Tipp:
Zwischen A1&B1 und VERKETTEN(A1;B1) gibt es keinen Unterschied,
außer dass es mit dem VERKETTEN mehr Zeichen und Platz braucht.
Also: VERKETTEN() braucht man nicht.
Deine Mappe reicht leider noch nicht ganz aus für die Entscheidung, wie man die Aufgabe effizient lösen kann.
Ist es so, dass
1. der Buchstabe in Sp. A über das Quell-Tabellenblatt entscheidet?
2. wenn A5&B5 in Spalte A des Quellblatts gefunden wird,
die Spalten D:O der Fundzeile in die Zellen C5:N5 des Zielblatts sollen?
Anders formuliert: Läuft der dritte SVERWEIS-Parameter in den Spalten C bis N von 4 bis 14?
Dann könnte man mit VBA A5&B5 in Spalte A des richtigen Quellblatts suchen und dann
die Werte aus der Fundzeile in einem Rutsch kopieren.
Eine Frage, die ich schon mal gestellt habe:
Ist die Quellmappe geöffnet, wenn du die Formeln kopierst?
Noch eine Frage:
Sind die Suchbegriffe in Spalte A der Quellblätter sortiert?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Schleife durchlaufen bis Zeile leer

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife durchlaufen bis Zeile leer

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

31 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread