Alternative Eingaben über InputBox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,
hier ein Vorschlag wie die die beiden Zellen prüfen und vie Input-Boxen die Eingabe der Werte steuern kannst. Dabei muss wenn beide Zellen leer sind zunächst die auszufüllende Zelle gewählt werden.
Ich hab den Ablauf so eingestellt, dass die Eingabe bei Klick auf Abbrechen wiederholt werden muss. Dies muss du ggf. ändern.
Gruß
Franz


Sub aatt()
Dim varEingabe
If IsEmpty(Range("G10")) And IsEmpty(Range("G12")) Then
'Beide nicht ausgefüllt
Eingabe01:
varEingabe = Application.InputBox(Prompt:="Eingabe in G10 oder G12 isterforderlich!" _
& vbLf & "Was wollen Sie eingeben?" & vbLf _
& "1 = maximale Korngröße in G10" & vbLf _
& "2 = Korngröße bei 80% Durchgang in G12", _
Title:="Kontrolle Eingabewerte", _
Default:=2, Type:=1)
Select Case varEingabe
Case 1
Eingabe02:
varEingabe = Application.InputBox(Prompt:="maximale Korngröße (mikrometer) in G10:", _
Title:="Kontrolle Eingabewerte", Default:=250, Type:=1)
If varEingabe > 0 Then
Range("G10").Value = varEingabe
Else
MsgBox "Unzulässige Eingabe, Abbrechen nicht zulässig. Bitte wiederholen!"
GoTo Eingabe02
End If
Case 2
Eingabe03:
varEingabe = Application.InputBox( _
Prompt:="Korngröße bei 80% Durchgang (mikrometer) in G12:", _
Title:="Kontrolle Eingabewerte", Default:=250, Type:=1)
If varEingabe > 0 Then
Range("G12").Value = varEingabe
Else
MsgBox "Unzulässige Eingabe, Abbrechen nicht zulässig. Bitte wiederholen!"
GoTo Eingabe03
End If
Case 0
'Eingabe wurde abgebrochen
MsgBox "Abbrechen der Eingabe nicht zulässig!"
GoTo Eingabe01
Case Else
MsgBox " Falsche Eingabe für Auswahl!"
GoTo Eingabe01
End Select
ElseIf Not (IsEmpty(Range("G10")) Or IsEmpty(Range("G12"))) Then
'beide Zellen ausgefüllt
Eingabe04:
varEingabe = Application.InputBox(Prompt:="Nur eine der Zellen G10 oder G12 darf ausgefüllt  _
sein!" & vbLf _
& "Welchen Wert wollen Sie verwenden?" & vbLf _
& "1 = maximale Korngröße in G10:               " & Range("G10").Value & vbLf _
& "2 = Korngröße bei 80% Durchgang in G12:  " & Range("G12").Value, _
Title:="Kontrolle Eingabewerte", _
Default:=2, Type:=1)
Select Case varEingabe
Case 1
Range("G12").ClearContents
Case 2
Range("G10").ClearContents
Case 0
'Eingabe wurde abgebrochen
MsgBox "Abbrechen der Eingabe nicht zulässig!"
GoTo Eingabe04
Case Else
MsgBox " Falsche Eingabe für Auswahl"
GoTo Eingabe04
End Select
End If
End Sub

Dim Korn, Korn2 As Variant Sub kornRe() Korn = InputBox("eingabe") Range("G10") = Korn If Range("G12") = "" Then Korn2 = InputBox("Eingabe2") Range("G12") = Korn2 If Korn2 = "" Then Exit Sub End If End Sub

Sub Alternativer_Wert() Dim Körner As Variant Do While Len(Range("G10")) * Len(Range("G12")) = 0 And Körner = Empty Körner = InputBox("Körner oder Quote eingeben") If StrPtr(Körner) = 0 Then Exit Do 'bei Abbrechen If MsgBox("Ist Wert Quote?", vbYesNo) = vbYes Then Range("G12") = Körner Else Range("G10") = Körner End If Loop If Körner= "" then Exit Sub End Sub

Hallo Franz,
die Fehlermeldung:
Laufzeitfehler 9 : Index außerhalb des gültigen Bereiches
kommt m.E. nur dann wenn es ein Objekt oder wie immer man das korrekt benennt nicht gibt.
Falscher Blattname ist klar, auch wenn ich in einem 100 Einträge großen Array den Wert von arrDaten(123) haben will ist auch kar daß dann dieser Fehler kommt.
Was ich nicht verstanden habe ist dieses:
******************************************************************
Manchmal kann auch die Übergabe von Zahlen als Text sein, wo Excel eine richtige Zahl erwartet. Kann
passieren, wenn man Zahlen via Textboxen/Inputboxen eingibt.
******************************************************************
Kommt denn da nicht die Fehlermeldung "Falscher Typ" o.ä.?
Danke ^ Gruß
Reinhard

Sub aaaTest() Dim Blattname Blattname = 12 Worksheets(Blattname).Select End Sub Sub bbbTest() Dim Blattname Blattname = "12" Worksheets(Blattname).Select End Sub Sub cccTest() Dim Blattname As String Blattname = 12 Worksheets(Blattname).Select End Sub

Beliebteste Forumthreads (12 Monate)

Alternative Eingaben über InputBox

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alternative Eingaben über InputBox

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread