Hallo
Ich kopiere mittels Makro neue Zeilen von Tabelle 1 nach Tabelle 2. Die kopierten Zellen enthalten z.T. Kontrollkästchen (Formularsteuerelemente). Diese Kontrollkästchen haben wiederum ein Makro, das drei Zellen links von der Zelle, in der sich das jeweilige Kontrollkästchen befindet ein Datum hineinkopiert.
Das Ganze sieht so aus und Funktioniert auch super:
Sub Makro7()
ActiveSheet.Range("J3").Select
Selection.Copy
ActiveSheet.Cells(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row, ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column + 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Problem ist nun das in Tabelle 1 Filter gesetzt werden und wenn nun eine Zelle die ein Kontrollkästchen enthält weggefiltert wird, bleibt das Kästchen erhalten, da es, per Steuerelement formatieren, nicht an nicht an die Zelle gebunden werden kann!
Da man das bei ActiveX Kontrollkästchen kann, wollte ich nun diese verwenden, dann funktioniert allerdings das erkennen des gerade geklickten Kästchens per Application.Caller nicht mehr!!
Suche jetzt schon seit Stunden per Google nach einer Lösung, habe aber noch nichts gefunden. ! :(
|