Hallo zusammen,
ich als blutiger VBA-Anfänger brauche unbedingt Hilfe für ein sicherliches banales Problem:
Mit einem erweiterten Filter filtere ich "Tabelle 2". Soweit so gut. Nun möchte ich die ersten gefilterten Ergebnisse aus Spalte C vergleichen. Wenn die erste sichtbare Zelle in Spalte C den gleichen Namen hat wie die zweite sichtbare Zelle, dann soll die zweite Zelle aus Spalte C in "Tabelle 1" in das Feld B30 kopiert werden. Mein Problem ist, dass ich nur die Zelle unter der ersten sichtbaren Zelle kopiert bekomme, aber nicht die zweite sichtbare Zelle.
Über jegliche Hilfe bin ich dankbar, denn ich verzweifel mittlerweile an diesem Problem
Hier mein Code, der leider nicht so wie gewünscht funktioniert:
Sub Zellen_vergleichen_und_kopieren()
Sheets("Tabelle2").Select
If Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1) = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(2)
Then Range("C1").Value = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(3).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Gruß Mark
|