Wichtig: Makro - Code überspringen
17.08.2005 20:48:00
Oliver
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