ich werde noch irre. unten seht ihr meinen code eines commandbuttons. der funktioniert auch wunderbar. wie ihr seht, werden hier alle sheets, die in einer listbox aufgeführt sind, markiert und am ende zwei weitere sheets der gruppierung hinzugefügt. nun kann ich aber irgendwie keine vernünftige commandozeile hinzufügen, die mir die markierten blätter z.b. in eine andere mappe verschiebt. also
selection.move before:=woorkbooks("?").sheets("?")
funktioniert nicht.
With ListBox1
.ListIndex = 0
Sheets(.Value).Select
For i = 0 To .ListCount - 1
Sheets(.List(i, 0)).Select False
Next
End With
Sheets(Array("Allgemeines", "Bericht")).Select False
grüße hans