Moin Moin,
ich habe mir eine Tabelle gebastelt in der die Anzahl der Zellen gezählt werden soll, die eine bestimmte Hintergrundformatierung haben. Die Formatierung der Zellen erfolgt ebenso über VBA mittels einer UserForm.
Mit folgenden VBA-Code möchte ich nun die Zellen zählen und den Wert in eine Zelle schreiben:
Private Sub CommandButton100_Click()
Worksheets("Januar").Activate
zn = 7
For i = 23 To 38
zn = zn + 1
If Cells(23, zn).Interior.Color = RGB(118, 147, 60) Then
zellenN = zellenN + 1
End If
Next i
Worksheets("Urlaub").Activate
Range("j23").Value = zellenN
End Sub
Die erste Zelle in der "nachgeschaut " werden soll ist in diesem Fall H23, die letzte AL23, irgendwo habe ich einen Denkfehler und find es nicht. Wenn ich den Wert "ZellenN" mit 1 definiere bekomme ich auch die 1 in meine Zelle j23 geschrieben, nur zählen tut er nix ;(
|