Eingabe von negativen Zahlen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich habe eine Eingabemaske in VBA und möchte nun, dass nur positive Zahlen eingegeben werden können.
Bsp.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 5 And Target.Row >= 6 And Target.Row = 6 And Target.Row

2

Hallo Mika!

Reagiere doch auf das, was eingegeben wird, in Deiner Eingaberoutine:

NeuerWert = Application.InputBox(„Bitte Wert eingeben“,
„Eingabe“, , Type:=1)

 If NeuerWert

Nicht wirklich schön, aber wenn's funktioniert: Warum anders machen?

Gruß, Manfred