Hallo, ich suche eine Lösung für mein Problem. Ich muss falls der Wert in folgendem Code nicht gefunden werden kann einen Teil überspringen und wo anders weiter machen. Kann mir dabei jemand helfen?
For Each zeile In Range("A4:A301")
' Fläche auswählen
zeile.Select
If ActiveCell.Value = KNT Then
For Each spalte In Range("A2:O2")
spalte.Select
If ActiveCell.Value = KST Then
ActiveCell.Offset(zeile, spalte).Select
ActiveCell.Value = wert3
...... Befehel der alles überspringt falls Wert nicht gefunden/eingesetzt!
End If
Next spalte
End If
Next zeile
..... Hierher muss gesprungen werden, wenn WERT eingesetzt werden konnte.
Sheets("Tabelle1").Select