|
Hallo Leute =)
Ich bitte um eure Hilfe. Ich habe eine Excel Datei mit 2 Registerblättern Datenblatt und Matrix. Der Aufbau ist bei beiden gleich nu der Inhalt ist unterschiedlich. Der Header sind die ersten 3 Zeilen, was bedeutet dass in Zeile 4 die Werte starten. In der Matrix sind jedoch in manchen Zellen "1" drin. Und genau die Zelle wo in Matrix eine 1 ist soll im Datenblatt farbig markiert sein.
Mein Lösungsansatz:
Sub x()
flagge = 0
For rowCNT = 4 To 65535 Step 1
If (Matrix.Cells(rowCNT, 1).Value = 0) Then
Exit For
End If
For colCnt = 1 To 37 Step 1
If (Matrix.Cells(rowCNT, colCnt).Value = 1) Then
With Datenblatt.Cells(rowCNT, colCnt - 1).Interior
.ColorIndex = 3
.Pattern = xlSolid
flagge = 1
End With
Else
Datenblatt.Cells(rowCNT, colCnt - 1).Interior.ColorIndex = xlNone
End If
Next
Next
Sheets("Datenblatt").Select
Cells(1, 1).Select
Dim output As String
output = rowCNT - 4
MsgBox ("Die Datenprüfung wurde nach der Überprüfung von " + output + " Datensätzen beendet.")
If (flagge = 1) Then
Datenblatt.Cells(7, 1).Interior.ColorIndex = 3
Else
Datenblatt.Cells(7, 1).Interior.ColorIndex = 4
End If
End Sub
Zeigt aber irgendwie Fehler: "Objekt erforderlich", könnt ihr mir weiterhelfen?
Lieben Gruß
floe
|