ich hab folgendes Problem:
Ich muss 2 Datenblätter miteinander vergleichen und den Zellinhalt bei Übereinstimmung eines Datenblattes in das anderer kopieren.
FOlgendes Makro hab ich bereits entwickelt, erreicht aber leider nicht das gewünschte Ergebnis.
Sub Makro8()
z = 1 'Lesezeile
s = 3 'Lesespalte
pz = 1 'Prüfzeile
ps = 1 'Prüfspalte
ez = 2 'Einfügezeile
'Schleife durchläuft die erste Tabelle bis zum Ende
Do Until (Sheets("Tabelle2").Cells(z, s).Text = "") And (Sheets("Tabelle2").Cells(z, s + 1).Text = "")
'in der inneren Schleife wird immer wieder die zweite Tabelle durchsucht
Do Until (Sheets("Hilfstabelle").Cells(pz, ps).Text = "") And (Sheets("Hilfstabelle").Cells(pz, ps + 1).Text = "")
'sobald der Eintrag vorkommt wird abgebrochen
If ((Sheets("Tabelle2").Cells(z, s).Text) = (Sheets("Hilfstabelle").Cells(pz, ps).Text)) And ((Sheets("Tabelle2").Cells(z, s + 1).Text) = (Sheets("Hilfstabelle").Cells(pz, ps + 1).Text)) Then
Go
Sub vorhanden
End If
pz = pz + 1
Loop
'wenn keine Übereinstimmung dann wird der nächste Eintrag gefiltert
z = z + 1
vorhanden:
Sheets("Hilfstabelle").Cells(pz, 5).Copy
Sheets("Tabelle2").Paste Destination:=Sheets("Tabelle2").Cells(z, 8)
Sheets("Hilfstabelle").Cells(pz, 6).Copy
Sheets("Tabelle2").Paste Destination:=Sheets("Tabelle2").Cells(z, 9)
Application.CutCopyMode = False
Loop
MsgBox ("Fertig")
End Sub
KLeine Erläuterung: Wenn Zellinhalt "Tabelle2" Spalte 3+4 = "Hilfstabelle"1+2
dann soll Spalte 5+6 "Hilfstabelle" in Spalte 8+9 "Tabelle2" kopiert werden.
Problem: Es wird nur der erste Wert kopiert, DAnach passiert nichts mehr.
VIelen Dank im voraus
Kay Mertens