Re: Mindestwert?
10.01.2003 17:25:01
Bernd Held
Hallo Jürgen,also das würde funktionieren, indem Du wie folgt vorgehst:
Klicke mit der rechten Maustaste den Tabellenreiter an und wähle den Befehl Code anzeigen aus dem Kontextmenü. Erfasse daanch folgendes Ereignismakro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
Do Until Target.Offset(0, 2).Value = 10
Application.EnableEvents = False
Target.Value = Target.Value + 1
Application.EnableEvents = True
Loop
End Sub
Dabei wird die Zelle B3, nach der ersten eingabe soweit erhöht, bis in Zelle D3 der Wert 10 erreicht wird.
Viele Grüße
Bernd
MVP für Microsoft Excel
Jetzt neu: Excel-VBA in 21 Tagen, neue FAQs und Makros unter: http://held-office.de