VBA Code für positive Zahlen

[Sofia_Bauer]

Hi liebe Excel Freunde,
Ich habe in meiner VBA ein Eingabefeld erstellt, wo die eingegebenen Werte nur positiv sind.
Wenn man über Datenüberprüfung das ganze einstellt, überschreibt die VBA trotzdem den Wert, daher benötige ich die passenden Code.

Ich möchte, dass NUR die Zahlen von 0 bis +100 eingegeben werden können.

Danke schon einmal im Voraus und einen schönen Sonntag euch :)

[redeagle56]

Hallo,
warum Eingabefeld mit VBA?
Eingabefeld mit Daten > Datenüberprüfung  > Benutzerdefiniert 
> Dezimal > Gültigkeitskriterien > OK
   

MfG Günter

[Sofia_Bauer]

So kann ich das auch einstellen, aber in meiner Excel ist eine VBA mit Button und Macro implementiert. Der Benutzer wählt den Button aus und kann darüber in eine vordefinierte Zelle einen von ihm eingebende Zahl eintragen.
Deshalb brauche in den Code für die VBA und nicht den Weg über die Datenüberprüfung.

[schauan]

Hallöchen,

wenn Du Deinen VBA-Code selber ändern willst dann sollte das eigentlich schon klar sein. Prinzip / Code:

If wert > 0 Then deincodezumeintragen

die roten Teile musst Du Durch Deine Variable bzw. Deinen Objektinhalt und den Code ersetzen und natürlich noch den "oder"-Teil für <=100 hinzufügen.

[knobbi38]

Hallo,

Der Benutzer wählt den Button aus und kann darüber in eine vordefinierte Zelle einen von ihm eingebende Zahl eintragen.

Das wirft eine Fragen auf. Ohne deinen konkreten Code  wird eine Hilfestellung schwierig.

[Gast 123]

Hallo

schauan hat bereits eine Lösung angeboten, die geht auch im Umkehr Modus.
Ohne den Code zu kennen kann man die Lösung von Schauan so einbauen:

Sub Dein Code()
If Wert > 0 And Wert < 100 Then
   'Hier der Code des Fragers
End If
End Sub

oder so, im Umkehr Modus mit Exit Sub

Sub Dein Code()
If Wert < 0 Or Wert > 100 Then Exit Sub
   'Hier der Code des Fragers
End Sub

mfg Gast 123

---

Nachtrag   wenn wir den Code kennen kann man ihm auch eine MsgBox mit Hinweis und Wiederholung einbauen
Dazu müssten wir den Code aber sehen, für uns ist das ein Klacks. Ihn könnte es ohne gutes VBA Wissen überfordern.

[snb]

Code:

combobox1.list=[row(1:101)-1]
combobox1.style=2

[Sofia_Bauer]

Ich habe euch mal meine Excel Datei angehangen.
Ich habe das ganze mit einen Screenshot angehangen. 
Wenn ein Betrag in das untere Feld eingegeben wird, darf der Betrag nur zwischen 0 und + 100 liegen.

Erklärung.

Niemand soll in ein freies Feld einen negativen Betrag eingeben dürfen. Außer in der "Bezahlt" spalte, dass wird dann aber von mir passwortgeschützt.

Ich hoffe ich versteht, was ich meine :)

[schauan]

Hallöchen,

wenn Du schon beim change Ereignis was tust, dann musst Du den Inhalt der textbox auch auf "" zurücksetzen. Wenn nach Exit Sub gleich End Sub kommt, na, übelreg mal
Also im Prinzip

Code:

If TextBox2 <= 0 Or TextBox2 > 100 Then
Eventuell zuerst eine Meldung an den Verursacher:
'MsgBox "Wert nicht im erlaubten Bereich"
TextBox2.Text = ""
'End If

Die Übernahme des Eintrages erfolgt beim Button Click. Dort müsstest Du auch eingreifen...
Auskommentiert hast Du
'Cells(1, last).Value = TextBox2

Nach meinem Prinzip sollte die Zeile so aussehen:

Code:

If TextBox2 > 0 Or TextBox2 <= 100 Then Cells(1, last).Value = TextBox2

[Kuwer]

Hallo,

das Or bei Andrés Vorschlag ist leider nicht so zielführend.

Mein Vorschlag wäre, einfach den Button2 nur bei richtigen Werten in der TextBox2 zu entsperren:

Code:

Private Sub TextBox2_Change()
  CommandButton2.Enabled = TextBox2 >= 0 And TextBox2 <= 100
End Sub

Gruß, Uwe