Kopieren wenn
16.03.2016 09:48:31
Alex
so langsam komme ich zum Abschluss meines Projektes.
Mit die letzte Funktion die mir noch fehlt ist:
Ich würde gerne eine "Druckseite" aus einer Liste erstellen, im Prinzip ja ganz einfach mit folgenden Code, wenn alles kopiert werden soll:
Set rng = Worksheets("PM").UsedRange.Columns(1).Resize(, 2)
Set rng1 = Worksheets("Druckseite").Cells(Rows.Count, "A").End(xlUp)(2)
rng.Copy Destination:=rng1
Das ganze wird jetzt etwas kniffeliger ,da NUR kopiert werden soll, wenn der Eintrag durch eine Checkbox angeklickt/aktiviert ist:
With ActiveSheet.CheckBoxes.Add(cell.Left, _
cell.Top, cell.Width, 1)
.LinkedCell = cell.Offset(, 1).Address(External:=True)
.OnAction = "CheckboxClick" 'damit klick auf Checkbox change event auf dem Worksheet auslö _
_
st
.Interior.ColorIndex = xlNone
.Caption = ""
.Value = xlOff
End With
Das Problem: Die Liste kann gut über 1000/2000 Zeilen lang werden und jede einzelne kopieren macht sich doch in der Laufzeit bemerkbar.
Gibt es da einen Trick oder eine smarte Lösung?
Meine Idee/Umsetzung wäre jetzt:
1. Kopiere alles
2. Schleife im Worksheet"Druckseite", wenn nicht True, dann lösche Zeile
Effizienter Möglich?
Gruß ALex
Anzeige