If-Anweisung erweitern?
11.08.2002 14:37:07
PaulR
ist es möglich, die nachfolgende Routine mit weiteren "If"-Bedingungen nach dem gleichen Schema wie die vorliegende zu erweitern und lediglich die Zellbezeichnung [c6] und den Ausdruck "ABC" zu verändern? Ich habe versucht, vor der "End IF"-Zeile weitere If's einzubauen, aber das hat irgendwie nicht geklappt.
Sub fett_wenn()
Dim z As Long, lZ As Long
lZ = [a65536].End(xlUp).Row
If [c6] = "ABC" Then
For z = 6 To lZ Step 22
Range(Cells(z, 1), Cells(z, 9)).Font.Bold = True
Next
End If
End Sub
Danke,
Gruß,
Paul