Case in Public verwenden wie?
26.09.2020 15:00:45
Richi
Habe eine grosse Anzahl von Cases die ich in unterschiedlichen Makros verwende. Bei einem Update muss ich alle Makros anpassen. Um dies etwas effizienter zu gestalten möchte ich diesen Code als Public anwenden und über Call aufrufen.. Das Problem ist, Select Case mit dem Aufruf einer Tabelle die ändert sich jeweils.
Liebe Gruess Richi
Select Case wsQ.Cells(zeileQ, "G") & wsQ.Cells(zeileQ, "C")
Case "1010" ' Schulferien
.Value = Val01
.Interior.ColorIndex = CI53
.Font.Size = 5
.Font.ColorIndex = CI02
Case "10107" ' Schulferien
.Value = Val01
.Interior.ColorIndex = CI53
.Font.Size = 5
.Font.ColorIndex = CI02
..........
.etc.........
Case Else ' undefinierter Code
.Value = Val99
.Interior.ColorIndex = CI16
.Font.Size = 5
.Font.ColorIndex = CI02
End Select
Anzeige