Zeile kopieren mit Bedingung?
Guten Morgen zusammen,
ich möchte gerne folgendes mit einem Marko lösen.
In einer Daten Tabelle sind sämtliche Werte vorhanden. Diese sollen in ein Tabellenblatt Tabelle 2 kopiert werden.
Die letzte Zeile bestimme ich über
' Bestimmung der Anzahl der ausgefüllten Zellen in Spalte 3
Sheets("DATEN").Select
FinalRow = Cells(Rows.Count, 3).End(xlUp).Row
Nun möchte ich folgendes in Tabelle2 umsetzten.
Daten Spalte B soll nach Tabelle2 Spalte C kopiert werden
Daten Spalte C soll nach Tabelle2 Spalte D kopiert werden
Daten Spalte D soll nach Tabelle2 Spalte E kopiert werden
Nun soll in Spalte F eine Unterscheidung stattfinden,
Wenn in Spalte D eine 1 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte F kopiert werden
Wenn in Spalte D eine 0 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte G kopiert werden
Wie könnte dieses mit einem Makro realisiert werden?
Vielen Dank für euere Unterstützung.
Tobias
1 Antwort
Die Letzte Zeile zu kennen ist da nicht wichtig
'Beginne bei Spalte 2 = B und ende bei 4 = D. Ersetze "Ziel" und "Quelle" mit den deinem Blattnamen.
For i = 2 To 4
Worksheets("Ziel").Range(Worksheets("Ziel").Cells(1, Spalte + 1), Worksheets("Ziel").Cells(1000000, Spalte + 1)) = _
Worksheets("Quelle").Range(Worksheets("Quelle").Cells(1, Spalte), Worksheets("Quelle").Cells(1000000, Spalte))
Next i