tabellen übergreifend kopieren
06.10.2003 13:03:10
chris
kann mir wer helfen?
ich möchte, wenn ich in tabelle2 irgend eine zelle der spalte B anklicke,
den inhalt dieser mit den inhalten der spalte B aus tabelle1 vergleichen
und bei übereinstimmung diese zeile aus tabelle1 in die tabelle2 herüberkopieren
etwa so (hab ich mir gedacht)
If ActiveCell.Row = 2 Then
vergl = ActiveCell.Value 'aktive zelle in tabelle2
lz = Worksheets("tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
'letze zeile, hab ich aus dem wunderbaren forum
For i = 1 To lz
Worksheets("tabelle1").Cells(i, 2).Select
If ActiveCell.Value = vergl Then
Worksheets("tabelle2").Range(Cells(i, 2), Cells(i, 11)).Copy
Destination:=Worksheets("tabelle1").Range("B4:K4")
End If
Next
End If
tut nix.
hab den verdacht das ich (ungeachtet möglicher fehler) auch nicht genau weiss wo dieser code hinsoll. sprich in welches vba Objekt und welches Sub.
mit Dankeschön im Voraus