Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: doppelt hochzählen in do while

doppelt hochzählen in do while
10.05.2017 12:19:19
Kliewe
Hallo zusammen,
folgendes Problem: Ich möchte aus Tabellenblatt 4 gewisse Einträge in das Tabellenblatt 3 kopieren. Kopiert wird immer aus Spalte C in Spalte B, das ist fest. Jedoch wird nicht immer von Zeile 1 nach Zeile 1, sondern auch mal von Zeile 9 nach Zeile 1 kopiert etc. Was ich bislang habe:
Sub ZeichnungenKopieren()
Dim i As Long
i = 1
Do While i 

Das i wird hochgezählt und vergleicht immer die Zelle aus Tabelle 3 mit der aus Tabelle 4, stimmen sie überein, wird kopiert. Was jetzt noch fehlt: Ich möchte, dass die Zelle aus Tabelle 3 mit ALLEN Zellen aus Tabelle 4 verglichen wird, bevor i hochgezählt wird. Also eine do while innerhalb der do while...geht sowas?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelt hochzählen in do while
10.05.2017 12:55:21
Kliewe
for
next
gelöst :-)
AW: doppelt hochzählen in do while
10.05.2017 12:57:39
Jürgen
Hallo Kliewe,
dass ist recht einfach:
Sub ZeichnungenKopieren()
Dim i As Long, j as long
for i = 1 to 20
for j = 1 to 20
If Worksheets("Tabelle3").Cells(i, 2) = Worksheets("Tabelle4").Cells(j, 2)  Then
Worksheets("Tabelle4").Cells(j, 3).Copy
Worksheets("tabelle3").Cells(i, 3).PasteSpecial
Exit for    'Bricht die Suche auf der Tabelle4 ab!
End If
next j
next i
End Sub

Ich würde die Do-Loop durch For-Next ersetzten, dann muss die Variable nicht hochgezählt werden. Außerdem kann hier mit "Step -1" auch absteigend gesucht werden.
Durch das "Exit for" wird die zweite For-Next Schleife nach einem Treffer beendet und mit dem nächsten Wert von Tabelle3 fortgefahren.
Gruß
Jürgen
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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