Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenvergleich und Spalten kopieren

Betrifft: Tabellenvergleich und Spalten kopieren von: Oliver
Geschrieben am: 19.10.2020 08:00:50

Guten Morgen,

ich versuche jetzt schon seit Längerem erfolglos ein Makro zu kreieren das folgendes erledigen soll;
in Tabelle 2 mit ca 150 Zeilen und 8 Spalten soll ab Zeile 2 festgestellt werden, ob sich in Tabelle 1 eine Zeile (auch ab Zeile 2) mit den gleichen Werten in Spalte A und Spalte F vorhanden ist.
Ist dies der Fall, soll aus Tabelle 2 die Werte aus den Spalte B + C in Tabelle 1 in die entsprechenden Spalten B + C kopiert werden

Ich hoffe auf Eure Hilfe und bedanke mich schon vorab für Eure Mühe

Grüße Oliver

Betrifft: AW: Tabellenvergleich und Spalten kopieren
von: ralf_b
Geschrieben am: 19.10.2020 09:19:22

versuch mal das, ungetestet
sub test()
dim x  as Range, l as long, l2 as long

With Tabelle1

for l = 2 to 150

if .cells(l,"A") & .cells(l,"F") <> vbNullstring then 

  for  l2= 2 to 150 
     if .cells(l, "A") & .cells(l,"F") = Tabelle2.cells( l2, "A") & Tabelle2.cells( l2, "F")  _
then
       .cells(l, "B").value = Tabelle2.cells(l2, "B").value
       .cells(l, "C").value = Tabelle2.cells(l2, "C").value
     end if  
  next
next
end with

end sub
 


Betrifft: ups, da fehlt noch was
von: ralf_b
Geschrieben am: 19.10.2020 09:21:35

next
next

da muß noch ein "end if" zwischen

Betrifft: AW: ups, da fehlt noch was
von: Oliver
Geschrieben am: 24.10.2020 10:37:03

Hallo Ralf,



vielen Dank für deine schnelle Antwort,

und sorry für meine späte Antwort.

Bin im Moment leider nicht in der Lage an der Tabelle weiter zu arbeiten.

Melde mich hoffentlich nächste Woche mit einem Ergebnis.

Danke für deine Mühe



Grüße Oliver

Beiträge aus dem Excel-Forum zum Thema "Tabellenvergleich und Spalten kopieren"