Inputbox abfrage

Hallo zusammen,
ich habe da ein Problem, welches ich einfach nicht gelöst bekomme.
Ich möchte, dass sich automatisch eine Inputbox öffnet, sobald die Zelle S207 den Wert 1 erhält.
In dieser Inputbox möchte ich dann nach dem gewünschten Radius gefragt werden, welcher nach Eingabe des selbigen in Zelle T207 erscheint.
Wenn bei Start des Makros direkt eine 1 in Zelle S207 stehen sollte, so soll ebenfalls die Inputbox erscheinen und den gewünschten Radius abfragen.
Anschließend soll sich eine MsgBox öffnen, in welcher gefragt wird: Ist der Radius "X" korrekt. Klickt man auf ja trägt sich der wert, wie ob schon gesagt in Zelle T207 ein, klickt man auf nein, so öffnet sich erneut die Inputbox welche den Radius erneut abfragt.
Hoffe Ihr könnt mit helfen.
Ich verzweifle seit gestern an diesem Code.
Gruß
Timo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim meldung, Titel, Antwort, Stil meldung = "Radius OK?" Titel = "Radiusabfrage" Stil = vbYesNo If Cells(207, 19) = "1" Then Cells(207, 20) = Application.InputBox("gewünschter Radius") Antwort = MsgBox(meldung, Stil, Titel) If Antwort = vbNo Then Cells(207, 20) = Application.InputBox("gewünschter Radius") Else Exit Sub End If End Sub

Ok. Ich konfiguriere mit der Tabelle eine CAD Datei.
Wenn sich jetzt jemand dazu entscheidet, dass seine Scheibe einen Radius und keine 90°Ecke haben soll, dann kann er dies über ein Userform Optionsfeld abhacken. Dieses Userform ist mit der Zelle S207 verbunden, und erzeugt hier eine 1 in der Zelle, sobald es ausgewählt wurde. Standartmäßig steht in dieser Zelle eine 2 für 90° Ecke. Sobald aber Radius ausgewählt wird, soll eine Inputbox aufgehen, in welcher man seinen Gewünschten Radius eingeben kann. Wenn er das getan hat, kommt eine MsgBox, welche sich nochmal vergewissert. Bei ja, wert in Zelle T207. Bei Nein erneut Inputbox.
Sollte jetzt widererwartend schon bei Beginn des MAkros eine 1 in Zelle S207 stehen, soll dieser Vorgang auch ausgeführt werden.
Hoffe Ihr versteht mich.
Ich bin euch aber auch schon jetzt echt dankbar, dass Ihr euch die Mühe macht mir zu helfen.
Vielleicht noch kurz. im Workbook steht bereits dieser Code:

Private Sub Workbook_Open()
Dim varEingabe As Variant
varEingabe = Application.InputBox(prompt:="Gewünschte Scheibendicke.", Title:="Eingabe Zahl",   _
_
Default:=Zahl, Type:=1)
If VarType(varEingabe) = vbBoolean Then Exit Sub
If varEingabe  0 Then
ThisWorkbook.Worksheets("Tabelle1").Range("S201").Value = varEingabe
End If
End Sub

Und in Tabelle 1 dieser:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim rgBereich As Range
Dim zaehler As Range
Set rgBereich = Worksheets("Tabelle1").Range("B5,D5,B7,B10")
For Each zaehler In rgBereich
If zaehler = "" Then
zaehler.Select
Exit For
End If
Next zaehler
Application.EnableEvents = True
ActiveSheet.Rows("100:106").AutoFit
End Sub

Vielleicht ändert das was an dem neuen Code.
Gruß Timo

Private Sub Workbook_Open() Dim varEingabe As Variant varEingabe = Application.InputBox(prompt:="Gewünschte Scheibendicke.", Title:="Eingabe Zahl", _ Default:=Zahl, Type:=1) If VarType(varEingabe) = vbBoolean Then Exit Sub If varEingabe 0 Then ThisWorkbook.Worksheets("Tabelle1").Range("S201").Value = varEingabe End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Application.EnableEvents = False Dim rgBereich As Range Dim zaehler As Range Set rgBereich = Worksheets("Tabelle1").Range("B5,D5,B7,B10") For Each zaehler In rgBereich If zaehler = "" Then zaehler.Select Exit For End If Next zaehler Application.EnableEvents = True ActiveSheet.Rows("100:106").AutoFit End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRadius If Not Intersect(Target, Range("S207")) Is Nothing Then If Target = 1 Then nochmal: MyRadius = InputBox("Bitte Radius angeben") If MsgBox("Ist der Radius [" & MyRadius & "] korrekt?", vbYesNo) = vbYes Then Range("T207") = MyRadius Else GoTo nochmal End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inputbox abfrage

20 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)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread