Code optimieren
21.02.2016 11:06:06
PQuest:-)
ich erstelle gerade eine Kalenderübersicht für versch. europäische Standorte. Hier sollen die Kalendertage, die in einem der Länder gesetzliche Feiertage sind mit einem Kommentar hinterlegt werden. Wie das funktioniert ist soweit klar, aber:
Im Code der Datei habe ich einen Teil eingefügt, der
1. die jeweils letzte Zelle aus dem "Länderbereich" ermittelt und
2. die Range für diesen "Länderbereich" festlegt.
With wsPH
PHNlLast = .Cells(Rows.Count, ColNl).End(xlUp).Row
Set rngNl = .Range(.Cells(PHStartRow, ColNl), .Cells(PHNlLast, ColNl))
PHUkLast = .Cells(Rows.Count, ColUk).End(xlUp).Row
Set rngUk = .Range(.Cells(PHStartRow, ColUk), .Cells(PHUkLast, ColUk))
PHHunLast = .Cells(Rows.Count, ColHun).End(xlUp).Row
Set rngHun = .Range(.Cells(PHStartRow, ColHun), .Cells(PHHunLast, ColHun))
PHSzLast = .Cells(Rows.Count, ColSz).End(xlUp).Row
Set rngSz = .Range(.Cells(PHStartRow, ColSz), .Cells(PHSzLast, ColSz))
PHAusLast = .Cells(Rows.Count, ColAus).End(xlUp).Row
Set rngAus = .Range(.Cells(PHStartRow, ColAus), .Cells(PHAusLast, ColAus))
PHGerLast = .Cells(Rows.Count, ColGer).End(xlUp).Row
Set rngGer = .Range(.Cells(PHStartRow, ColGer), .Cells(PHGerLast, ColGer))
End With
Kommt jetzt noch ein Land hinzu, muss das Ganze wieder um 2 Zeilen ergänzt werden. Gleiches gilt dann später für die Überprüfung, ob es sich um einen Feiertag handelt und wenn ja, in welchem Land.
Frage:
Wie kann ich den Code so vereinfachen, dass ich die Codezeilen nicht immer neu schreiben muss?
Spontan fällt mir da das Array ein, aber damit habe ich mehr als nur ein Problem.
Kann mir jemand Hilfestellung geben?
Gruß,
PQuest:-)
Link zu Datei: https://www.herber.de/bbs/user/103747.xlsm