nachdem ich nun auch einige Schritte weiter gekommen bin hab' ich ein neuse Problem!
Bei folgendem Code steigt VBA immer wieder mit der Fehlermeldung:
438 Object unterstützt diese Methode nicht!? aus!
Sub FEHLCOPY()
Dim actcell As Integer
ureihe = Range("b65536").End(xlUp).Row
Range("a1:ac" & ureihe).Select
Selection.AutoFilter Field:=1, Criteria1:="0", Operator:=xlOr, _
Criteria2:="=#NV"
Range("B2:B" & ureihe).Copy
Range("B" & ureihe + 50).Select
Selection.Paste Application.CutCopyMode = False
Range("C" & ureihe + 5).Select
actcell = Selection.Row
ureihe = Range("b65536").End(xlUp).Row
ureihe = ureihe - actcell
ActiveCell.FormulaR1C1 = "=oderstring(RC[-1]:R[" & ureihe & "]C[-1])"
End Sub
Das versteh ich leider nicht!
Hat jemand eine Idee?!
Vielen Dank im Vorraus für die Hilfe!
Gruß
Lothar