|
Hallo zusammen,
Ich habe folgendes Problem:
Das Ganze bezieht sich auf Excel VBA auf Windows 11.
Ziel ist es, zwei Spalten aus zwei seperaten Datenblaettern zu vergleichen.
Diese Spalten in jedem Datenblatt sind jeweils nur Hilfsspalten, die ihc erstellt habe um zwei anderen Spalten zusammenzufuehren.
Wenn die Hilfsspalten im beiden Blaettern gleich sind, dann sollen Werte aus dem Datenblatt der vorherigen Woche in das neueste Datenblatt kopiert werden ( es handelt sich hierbei um eine Prognose).
Ich waere das Ganze mit der Kombination aus einer If-Anweisung und einem SVerweis angegangen, also:
If Worksheets("WIP").Columns("AA") = Worksheets("s").Columns("AK") Then
Do Until k = r + 1 // da ich unterschiedlich viele Reihen habe, soll das Ganze dynamisch sein
Cells(k, 7) = "=vlookup(" & k & "," & s & "!C:H,6,0)" // hier soll die Spalte 7 mit der Prognose aus der vorherigen Woche befuellt werden
Cells(k, 1) = "=Index(" & s & "!C:C,Match('WIP'!C" & k & "," & s & "!C:C,0))" // hier bin ich leider etwas ueberfordert
k = k + 1
Loop
k = 3
End If
Zur Hintergrundinfo:
Hab den fast fertigen Code erhalten und sollte einen Vergleich von zwei Spalten einfuegen und wenn diese uebereinstimmen, dann eben die Inhalte kopieren.
Waere praktisch, wenn mir jemand dabei helfen koennte :-)
P.S.: Habe keine Umlaute auf meiner Tastatur, da ich in Amerika arbeite
|