Microsoft Excel

Herbers Excel/VBA-Archiv

Case in Public verwenden wie?

Betrifft: Case in Public verwenden wie? von: Richi
Geschrieben am: 26.09.2020 13:00:45

Ciao Zäme
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

Betrifft: AW: Case in Public verwenden wie?
von: Hajo_Zi
Geschrieben am: 26.09.2020 13:07:10

in Deinem Code Fehlt das With

GrußformelHomepage

Betrifft: AW: Case in Public verwenden wie?
von: Richi
Geschrieben am: 26.09.2020 13:27:57

Danke Hajo funktioniert einwandfrei.

Liebe Gruess Richi