Hallo,
Ich habe folgendes Problem. Ich habe eine UserForm mit Textboxen. Der Inhalt der Textfelder ist der Inhalt bestimmter Zellen in einer Excel Tabelle. Für jedes Textbox wird verglichen ob der Wert in der Textbox gleich dem Wert in der entsprechenden Zelle ist. Wenn der Wert nicht gleich ist, dann wird die Schriftfarbe in der Excel-Tabelle auf rot gesetzt.
Der Code sieht folgendermaßen aus:
For i = 2 To 44
On Error Resume Next
If Me.Controls("TextBox" & i).Value ws1.Cells(UserForm5.TextBox1.Value, ws2.Cells(52 + i - 1, 4).Value).Value Then
ws1.Cells(UserForm5.TextBox1.Value, ws2.Cells(52 + i - 1, 4).Value).Value = Me.Controls("TextBox" & i).Value
ws1.Cells(UserForm5.TextBox1.Value, ws2.Cells(52 + i - 1, 4).Value).Font.ColorIndex = 3
ws1.Cells(UserForm5.TextBox1.Value, ws2.Cells(60, 4).Value).Value = Date
End If
On Error GoTo 0
Next
Das Problem dabei ist, dass das bei allen Zellen funktioniert, nur bei zwei funktioniert es nicht. Das Bedeutet, die Schriftfarbe dieser beiden Zellen wird auf rot gesetzt, obwohl sie nicht verändert wurden. Woran könnte das liegen? Ich hoffe meine Erklärung ist verständlich. Wäre toll wenn mir wer helfen könnte.
Grüße
Bernhard