Hallo Karin
vorab nochmals vielen lieben Dank für deine Unterstüzung.
Habe es mit F9 und F8 Taste hin bekommen und er zeigt mir dann den Laufzeitfehler 1004 in besagter Zeile an. Ferner habe ich festgestellt, wenn ich auf
strSpiel gehe zeigt er mir
strSpiel=""
Cells gehe zeigt er mir
('Cells(lngEZeile,lngSpalte)=< Fehler Meldung Anwendungsoder Objekdefinerter Fehler
lngEzeile - 3
lngEzeile=0
lngSpalte gehe zeigt er mir
lngSpalte =12
Len(Cells(lngEZeile - 3 gehe zeigt er mir
lngEzeile=0
lngSalte gehe zeigt er mir
lngSpalte = 12
Das ist nochmals der Befehl:
'Nun Zeile für Würfe suchen
'dazu die Nr des Spiel herausfinden und damit Suchstring erstellen
strSpiel = "Sp" & Right(Cells(lngEZeile - 3, lngSpalte), Len(Cells(lngEZeile - 3, lngSpalte).Value) - 6)
'Zeile für Spiel suchen
For lngZeile = 18 To 200
If Cells(lngZeile, 1).Value = strSpiel Then
lngSZeile = lngZeile
Exit For
End If
Next lngZeile
Das ROTE (CELLS wird der Fehler 1004 angezeigt.
Vielleicht hilft das weiter und kannst dazu eventuell eine Lösung erstellen.
Lieben Gruß und einen schönen 1. Mai
Adde