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