Hallo Zusammen,
ich habe in Excel eine Testfalldatei in der einzelne Zellen rot markiert werden, wenn sie fehlerhaft sind. In der Spalte A steht die Testfallnummer.
Jetzt möchte ich gerne in meiner ListBox1 in der UserForm1 den Wert (also die Testfallnummer) ausgeben.
Das bedeutet wenn er in Zelle C3 einen Fehler findet soll er mir die Testfallnummer aus Zelle A3 (also: Nr. 2- da die Erste Zeile Überschriften enthält) wiedergeben. Sofern die zweite rot markierte Zelle in BH 25 steht, soll er mir in der Listbox unter die 2 die Nr. 24 schreiben. Wäre gut, wenn er das in einer Schleife macht. Eventuell in der Listbox Doppelte Ergebnisse löscht.
Mein Code bislang:
'Testfallnummern mit Fehlern ausgeben
Dim Zelle As Range
letztezeile = ThisWorkbook.Worksheets("TESTFÄLLE").Cells(1048576, 1).End(xlUp).Row
For Each Zelle In ThisWorkbook.Worksheets("TESTFÄLLE").Range(Cells(2, 1), Cells(letztezeile, 100))
If Zelle.Interior.ColorIndex = 3 Then
UserForm1.ListBox1.AddItem Zelle.Row
End If
Next Zelle
Leider gibt er hier den Wert aus der rot markierten Zelle aus.
Ich danke euch vorab für die Hilfe.
VG