Frage: Hallo, wie die Überschrift schon sagt habe ich ein Problem zwei Zellen zu vergleichen. Mein Code sieht so aus: Dim suchstr As String Dim antwort As String Dim LetzteZeile_test LetzteZeile_test= Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1 suchstr = "Bild" For i = 1 To LetzteZeile_test If Sheets("Tabelle1").Cells(i, 1) = suchstr And Sheets("Tabelle1").Cells(i, 2) = "" Then antwort = "kein Bild vorhanden" msgbox antwort End If Next hat jemand ne Idee warum der Code nicht funktioniert?. 2 Kommentare, 184 mal gelesen.
↧