Ich habe ein Problem, bei dem ich nicht weiterkomme: Beim Ausführen eines Macros soll eine Yes/No MsgBox eingeblendet werden, bei der der Benutzer aufgefordert wird, gewisse Excel-Zellen auf mehreren Tabellenblättern zu überprüfen. Je nach Inhalt der Zellen soll der Benutzer dann Ja oder Nein klicken (leider ist diese Entscheidung rein durch die in Excel vorliegenden Daten nicht möglich, deswegen die manuelle Überprüfung). Um alle nötigen Zellen zu sehen, muss der Benutzer also scrollen und Tabellenblätteranwählen können.
Dass ich dazu eine Userform (mit vbModeless) anstatt einer Messagebox verwenden muss, habe ich bereits herausgefunden. Nun läuft das Makro allerdings einfach weiter, ohne die Eingabe abzuwarten. Gibt es dazu eine Lösung?
Mein momentaner Code:
If Appr = True Then
AprMsgBox.UFcaption.Caption = "Do you want to approve batch " & wsziel.Cells( _
iii, 1) & " to " & wsziel.Cells(iii, 2) & " of " & ModelName & "?"
AprMsgBox.Show vbModeless
Select Case AprMsgBox.Tag
Case 1
wsziel.Cells(iii, 10).Value = Date
If AprName = "" Then
AprName = InputBox("Please input your name", "Approved by")
End If
wsziel.Cells(iii, 9).Value = AprName
Case 0
wsziel.Cells(iii, 10).Value = InputBox("Why do you not want to approve _
_
this batch?")
End Select
End If
Besten Dank für jede Hilfe
Jonas