Office: (Office 2010) in der InputBox Eingabe Werte begrenzen

Hallo ich benötige mal eure Hilfe, ich suche eine Lösung für mein erstes Programm. Ich weiß
nicht, wie ich in der Inputbox einen Wert begrenzen kann. Das heißt, wenn der Wert zwischen
O und 0,29, oder 1 u. 2 oder 0 und 3,5 oder 0 und 7 ist, dann soll der Eingabewert in der Zelle E11
gespeichert werden. Wenn der Wert größer oder kleiner ist, dann erscheint in der MsgBox „Falscher Wert“
und springt zurück in die Inputbox, damit man eine erneute Eingabe machen kann. Diesen Vorgang will
ich noch 9 mal wiederholen. Im Anhang mein Test-Programm.
Code:
Sub ueberPrüfung_vom_Wert()
ThisWorkbook.Worksheets("Scan").Activate
Dim Eintrag As String
If Range("D11") = "Eintrag" Then
Eintrag = InputBox("Bitte Wert Eintragen zwischen L1 0 u.0,29 Ohm")
Range("E11").Value = Eintrag
'Else
'If Eintrag = 0.3 Then
'MsgBox ("Falscher Wert")
End If
If Range("D11") = "" Then
Range("D12").Activate
End If
If Range("D12") = "Eintrag" Then
Eintrag = InputBox("Bitte Wert Eintragen zwischen L2 0 u.0,29 Ohm")
Range("E12").Value = Eintrag
'Else
'If Eintrag = 0.3 Then
'MsgBox ("Falscher Wert")
End If
If Range("D12") = "" Then
Range("D13").Activate
End If

:)

 

Moin,

verknüpfe n-Bedingungen miteinander.


Bspw: Wert zwischen 1 und 2

Code:

 

Moin, Marco
Ich habe mein Programm umgeschrieben, wie Sie es mir vorgeschlagen haben.
Nun habe ich noch eine Schwierigkeit, ich keine mich mit Schleifen nicht aus. Nun möchte ich wenn eine falscher Wert in die Inputbox eingetragen würde, dann kommt die Msgbox (Eingabe wiederholen). Wenn ich auf Ok klicke möchte wieder die Inputbox (Eintrag) ansprechen um erneut einen Wert in die Inputbox ein zutragen. Vielleicht können Sie mir helfen.
Danke
Gruß Klaus-Peter
Option Explicit
Sub BedinungenZelle_2()
ThisWorkbook.Worksheets("Scan").Activate
Dim Eintrag As String
Dim Wert As String
If Range("D11") = "Eintrag" Then
Eintrag = Application.InputBox("Bitte Wert Eintragen zwischen L1 0 u.0,29 Ohm")
Select Case Eintrag
Case Is >= 0.3
MsgBox ("Eingabe wiederholen")
Case 0 To 0.3
Range("E11") = Eintrag
Case Else
End Select
End If
If Range("D11") = "" Then
Range("D12").Activate
End If
If Range("D12") = "Eintrag" Then
Eintrag = InputBox("Bitte Wert Eintragen zwischen L2 0 u.0,29 Ohm")
Select Case Eintrag
Case Is >= 0.3
MsgBox ("Eingabe wiederholen")
Case 0 To 0.3
Range("E12") = Eintrag
Case Else
End Select
End If
If Range("D12") = "" Then
Range("D11").Activate
End If
End Sub

 

Hi,

die erste Schleife könnte so ausschauen.
Die zweite und weitere Schleifen können dann von diesem Muster abgeschaut werden.
Code:

 

Moin, Marco
Danke für die schnelle Lösung, es funkuniert so wie ich mir es vor gestellt habe.
Gruß Klaus-Peter

 

Moin, Marco
Ich bräuchte noch mal deine Hilfe, ich suche nach einer Lösung meines Problems.
Ich möchte eine Eingabe Inputbox als ID Nr. erstellen die folgtest leisten soll.
1. Prüfe ob die ID Nr Zahl schon einmal in der Tabelle Ergebnis vorhanden ist,
in Spalte A
2. Wenn nein dann soll geprüft werden ob die ID Nr Zahl nicht als größer 100 ist,
und anschließend in die Tabelle Scan in Range C4 geschrieben wir.
3. Wenn vorhanden dann soll gesprungen werden in die Eingabe zur Inputbox ,
so, dass ich einen neuen Eintrag machen kann
Die Inputbox sollte nur Zahlen zulassen, keine leere Box oder kein Abrechen.
Vielleich kann du mir helfen. Danke Gruß Klaus-Peter
Mein kleines Programm sieht so aus:
Option Explicit
Sub Eingabesuchen()
ThisWorkbook.Worksheets("Scan").Activate
'Dim wsSource As Worksheet
'Dim wbDestination As Worksheet
Dim Eingabe As Variant
Dim c As Range
Dim wb As Variant
Dim x1Values As Variant
Dim X1Whole As Variant
'Set wsSource = Worksheets("Scan")
' Set wbDestination = Worksheets("Ergebnis")
If Range("B4") = "Eingabe" Then
Do
Eingabe = Application.InputBox("Bitte ID Nr Eintragen ", " Eingabe")
'Set Eingabe = Worksheets(2) Prüfe ob die ID Nr schon eingetragen wurde
Eingabe = Replace(Eingabe, ".", ",")
Select Case CDbl(Eingabe)
Case Is < 101
MsgBox ("Eingabe wiederholen")
Case 0 To 100
Range("C4") = Eingabe
Case Else
End Select
Loop Until Eingabe < 101
End If
'Set c = wb.Range("A:A").Find(Eingabe, LookIn:=x1Values, LookAt:=X1Whole)
'If Not c Is Nothing Then
'MsgBox "Wert ist vorhanden " dann zurück springen die Eingabe Inputbox
' Else
'MsgBox "Wert ist nichtvorhanden!" dann zurück springen die Eingabe = Replace(Eingabe, ".", ",")
'End If
' wb.Close.savechanges = False

End Sub