ich sitze seit einiger Zeit ratlos über meinem VBA Code und hoffe sehr, dass ihr mir helfen könnt.
Mein Problem: Es soll eine Übersicht pro Kalenderwoche über die Aufgaben verschiedener Mitarbeiter erstellt werden.
Ich habe in einem Excelsheet 12 Tabellenblätter, die mit den Monatsnamen benannt sind. Jeder Monat besteht aus einer Tabelle, in dem die Namen der Mitarbeiter in der ersten Spalte stehen. Daneben stehen die Aufgaben für jeden Tag des Monats. In der Zeile 7 jedes Blattes sind die KW angegeben. Ein weiteres Blatt nennt sich "Plan". Auf dieses Blatt sollen je nach Auswahl der KW die Namen der MA und die Aufgaben der jeweiligen KW kopiert werden. Prinzipiell funktioniert mein Code. Über eine InputBox (die sich in jedem Monat befindet) wird die gewünschte KW abgefragt. Allerdings funktioniert der Code nur, wenn ich eine KW aus dem aktuellen Blatt abfrage. Ich möchte jedoch, dass ich auch bspw. wenn ich im TB März bin den Plan für KW01 erstellen lassen kann. Meine Versuche sind bisher immer gescheitert, weil bei jeder Änderung des Codes erscheint: "Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt." Markiert wird: " gefundeneKW = Rows(7).Find(gesuchteKW).Select"
Anbei mein Original Code (noch für die Suche im aktuellen Blatt ausgelegt):
Sub Planerstellen()
Dim gesuchteKW As Integer
gesuchteKW = InputBox("KW eingeben", "Plan erstellen")
If gesuchteKW > 0 And gesuchteKW
Ich hoffe sehr, dass ich mich einigermaßen verständlich ausgedrück habe. Und hoffe auf eure Ratschläge.
Vielen Dank im Voraus! Grüße Nadja