Ich spring hier, für die Erklärung mal ein:
1 2 3 4 5 6 7 8 | For x = 5 To 12
Select Case x
Case 5, 6
.Borders(x).LineStyle = xlNone
Case 7 To 12
.Borders(x).LineStyle = xlContinuous
End Select
Next x
|
Diese Zählschleife mit der Variable x läuft hier von Wert 5 bis 12.
Select Case x leitet eine Fallunterscheidung ("Fall" im engl. "case") ein.
Wenn x den Wert 5 oder 6 annimmt, dann wird der Border-LineStyle auf xlNone gesetzt.
Hat x den Wert 7 bis 12, dann wird der Border-LineStyle auf xlContinious gesetzt.
Grüße
PS: Du kannst im VBA Editor bei Anweisungen (statements) den Textcursor setzen und F1 drücken. Dann sollte ein neues Fenster, mit einer detailierten Beschreibung, dazu angezeigt werden. Setzt du den Textcursor also auf das Wort Case und drückst F1, landest du auf dieser Seite.
|