farbliche Zellen sollen gezählt werden
22.10.2008 15:37:00
Andreas
ich hab folgendes Problem:
Ich hab Dateien, die sehr umfangreich sind, wo Zellen mit Texten, mit Zahlen und leere Zellen vorkommen. Zudem sind die Zellen sehr unterschiedlich von der farblichen Gestaltung.
Die Aufgabe soll sein, dass ich eine MsgBox erhalte mit den Informationen zu den weißen Feldern, welche Zahlen enthalten die ungleich 0 sind. Des Weiteren soll das gleiche Zählen auf die lila gefärbten Zellen angewendet werden.
Folgendes habe ich mir bereits gedacht, funktioniert aber nicht ist irgendwie eine Endlosschleife, glaub ich zumindest. (siehe unten)
Vielleicht kann mir ja jemand weiter helfen oder hat sogar einen noch einfacheren Weg das Problem zu lösen.
Gruß
Andreas
' Klicken des Starten-Buttons
Private Sub CommandButton1_Click()
Dim DateiName As Variant
Dim Datei As String
Dim c As Integer
Dim ausgabebox As Variant
' Datei, die zum Zählen benötigt wird
DateiName = Application.GetOpenFilename("Microsoft Excel-Tabelle (*.xls), *.xls", , "Bitte _
wählen Sie die Datei aus!")
If DateiName False Then
Workbooks.Open DateiName
Datei = ActiveWorkbook.Name
End If
On Error Resume Next
c = 0
For b = 1 To Sheets.Count
For s = 1 To Columns.Count
For z = 1 To Rows.Count
If Workbooks(Datei).Sheets(b).Cells(z, s).Interior.ColorIndex = 2 _
And Workbooks(Datei).Sheets(b).Cells(z, s).Value = 2 Then c = c + 1
Next
Next
Next
ausgabebox = MsgBox(c, vbOKOnly, Ausgabe)
' Schließen des Auswahlfensters
End
End Sub