Hi Mackie,
sorry, falls es nicht ganz verständlich ist...
Ich habe 3 Makros, die heißen Erstelle_Agenda_TECH, Erstelle_Agenda_PRO und Erstelle_Agenda_TR. Sie sind alle vom Code her identisch, bis auf die Tabellenblatt-Bezeichnungen (Agenda_TECH, Agenda_PRO, Agenda_TR), um die Daten vom Blatt "Protokoll" auf das richtige zu kopieren.
Auf dem Blatt "Protokoll" werden die zu kopierenden Daten von einem Datumswert eingerahmt. Bspw. will ich Daten/Punkte/Themen für den 13.11.17 auf "Agenda_TECH" kopieren.
Dann steht in Zeile 1 des Bereichs in Spalte A "13.11.17" und in der letzten zu kopierenden Zeile ebenfalls "13.11.17".
Das ganze funktioniert mit dem Makro "Erstelle_Agenda_TECH" tadellos. Bei den anderen beiden Makros "Erstelle_Agenda_PRO" & "Erstelle_Agenda_TR" aber nicht.
Hier steigt das Makro an der Stelle:
If PRO_Start Is Nothing Then
MsgBox "Das Datum wurde nicht gefunden. Bitte erstellen Sie erst eine Protokollvorlage"
Exit Sub
aus... Genauso bei "TR_Start"...
Ich finde den fehler einfach nicht. Die Bezüge zwischen den Tabellenblättern stimmen, die Variablen sind definiert, aber Start_Datum und End_Datum werden mit "Nothing" deklariert. Zellenformat bzw. Zellwert stimmt...
Vllt. hilft das zum Verständnis weiter...
Danke und Grüße, Heiko
|