Dieses Programm habe ich in Herbers Beispielsammlung gefunden und auf meine Bedürfnisse abgeändert.
Sub FilternUndKopieren()
Dim rngAct As Range
With Worksheets("Tabelle1").Range("A8")
.AutoFilter Field:=20, Criteria1:=Range("U1")
Set rngAct = Range("C8:C1000")
rngAct.Copy Worksheets("Tabelle2").Range("B8")
End With
ActiveSheet.AutoFilterMode = False
End Sub
Der in Tabelle1 Zelle U1 eingegebene Wert wird in Spalte 20 gefiltert. Aus diesen gefilterten Zeilen übertrage ich lediglich die entsprechenden Daten aus Spalte C nach Tabelle2 ab Spalte B8. Dies klappt prima.
Mein Problem: In Tabelle2 Spalte B stehen bereits Daten, die erhalten bleiben müssen bzw. nicht überdeckt werden dürfen. Das heisst, es dürfen aus dem gewählten Filterbereich Tabelle1 Spalte C nur diejenigen Daten in Tabelle2 ab Spalte B übertragen werden, die dort nicht schon vorhanden sind.
Ist dies lösbar? Es wäre super!
Freundlich grüsst
Peter