Ergänzen bzw. verbessern Makro
01.08.2006 09:29:51
achim
Wer kann ergänzen bzw. verbessern
Private Sub weiterGemischt_Click()
If Sheets("Prüfungsbogen1").Range("E7").Value = 3 'Wert prüfen
.Range("E8").Value = 3'Wert prüfen
.Range("E9").Value = 3 'Wert prüfen
Then
Sheets("Prüfungsbogen1").Range("F7") = 9 'Wenn Wert E7,E8,E9 ok dann F7 eine 9 eintragen
Wenn aber die Bedingungen nicht erfüllt sind dann mache nichts sondern weiter bei Unload STVO_OV1003 usw.
Unload STVO_OV1003
STVO_OV1031.Show
End If
End Sub
Danke
achim h.