MsgBox dann UserForm
16.09.2016 14:10:35
Rob
Kann man nach eine MsgBox sobald das Ok eingedrückt ist, eine UserForm erscheinen?
Mein Code für MsgBox ist so:
Sub FIXM()
Dim igMsgBox As Boolean
Dim igMsgBox2 As Boolean
Dim igReg As Worksheet
Dim c00 As Variant
c00 = Split("nicht da|T wird zu gross, bitte TH oder TB ändern|T is to big, please change TH or TB|T est trop grand; changez TH svp|T e troppo grande; cambio TH per favore|T es muy grande, por favor cambie TH o TB", "|")(Val(Sheets("concepta").Cells(1, 17)) - 1)
Debug.Print c00
igMsgBox = False
For Each igReg In Sheets(Array("concepta", "concepta Connector 55", "concepta Connector 110", "Mauernische"))
With igReg
If .Cells(1, 16) = 1 And .Cells(4, 3) >= 1250 And .Cells(4, 3) 650 Then igMsgBox = True
If .Cells(1, 16) = 1 And .Cells(4, 3) > 1850 And .Cells(4, 3) 900 Then igMsgBox2 = True
End With
Next igReg
If igMsgBox = True Then MsgBox c00, vbOKCancel
If igMsgBox2 = True Then MsgBox c00, vbOKCancel
End Sub
Und sobald das Ok eingedrückt ist, sollte eine UserForm erscheinen, der hat der Code:
Private Sub CommandButton1_Click()
Sheets("concepta").Range("C5").Value = TextBox2.Text
Sheets("concepta").Range("C24").Value = TextBox3.Text
Sheets("concepta Connector 55").Range("C5").Value = TextBox2.Text
Sheets("concepta Connector 55").Range("C24").Value = TextBox3.Text
Sheets("concepta Connector 110").Range("C5").Value = TextBox2.Text
Sheets("concepta Connector 110").Range("C24").Value = TextBox3.Text
Sheets("Mauernische").Range("C5").Value = TextBox2.Text
Sheets("Mauernische").Range("C24").Value = TextBox3.Text
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Vielen Dank
FG
Rob
Anzeige