einen habe ich noch :))
Ich fülle Zellen mit der folgenden Funktion
If .Cells(iCntRows, 1) "" Then
.Cells(iCntRows, 22) = "a"
Else
.Cells(iCntRows, 22) = "b"
End If
Leider werden die Gitterlinien dabei entfernt, was für die Lesbarkeit nicht förderlich ist.
Gibt es da eine Möglichkeit?
Danke.