habe ein kleines Problem:
Ich habe in meinem Tabellenblatt (1) über VBA eine Farbe in einen Zellenbereich kopiert (wenn eine Bedingung erfüllt ist). Dieses funzt wunderbar. Nun habe ich genau den selben VBA-Code für Tabellenblatt (2)genommen und es geht nicht.
siehe unten VBA-Skript.
Hat einer eine Idee warum es nicht geht ?
While Not rsDaten.EOF
xlWB.worksheets(2).Cells(Zeile, Spalte) = rsDaten("Wert")
If Not IsNull(rsDaten("Status")) And rsDaten("status") "" Then
xlWB.worksheets(2).Range("R" & Zeile & ":R" & Zeile).Select
With xlApp.Selection.Interior
.Pattern = 1
.PatternColorIndex = -4105
.ThemeColor = 5
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End If
Zeile = Zeile + 1
rsDaten.MoveNext
Wend