Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Spaltenabgleich kopieren
12.09.2022 21:45:54 Nicolai
NotSolved
13.09.2022 07:51:28 ralf_b
NotSolved
13.09.2022 15:00:41 Nicolai
NotSolved
13.09.2022 15:41:05 Mase
NotSolved
13.09.2022 22:33:26 Nicolai
NotSolved
13.09.2022 22:54:05 Mase
NotSolved

Ansicht des Beitrags:
Von:
Nicolai
Datum:
12.09.2022 21:45:54
Views:
323
Rating: Antwort:
  Ja
Thema:
Excel VBA Spaltenabgleich kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Spaltenabgleich kopieren
12.09.2022 21:45:54 Nicolai
NotSolved
13.09.2022 07:51:28 ralf_b
NotSolved
13.09.2022 15:00:41 Nicolai
NotSolved
13.09.2022 15:41:05 Mase
NotSolved
13.09.2022 22:33:26 Nicolai
NotSolved
13.09.2022 22:54:05 Mase
NotSolved