Hallo Gast, erstmal danke für den Ansatz! Ist sehr lehrreich zu sehen, wie das jemand mit mehr Ahnung machen würde. Ich selbst wäre mit meinem Wissensstand wahrscheinlich nie darauf gekommen.
Allerdings komm ich nicht ganz weiter.
Wenn ich nun bei den einzelnen Cases hinter das .Copy mein
Destination: = Sheets("Dringend") .Range ("a65536").End
setze, passiert nichts. Per
Cells.PasteSpecial habe ich es auch schon probiert, ich hab auch den Code aus dem Case Erledigt schon mal versucht. Führt leider alles zu nichts, das gewünschte Blatt bleibt leer :/
Ich hab an sich leider bisher noch nie mit Cases gearbeitet.
Übersehe ich etwas, oder bin ich schier zu dumm dafür..?
|