Checkbox mit MSG Box Verknüpfen?
22.02.2017 21:32:53
Andi
Hallo,
Mein "Suchmakro" habe ich soweit ganz gut zusammen.
Ist es möglich, wenn im Userform1 die Chekbox2 gesetzt ist, das im untenstehenden
Makro die MSG Box " If MsgBox("Soll ich ein Kabel bringen?", vbQuestion + vbYesNo) = vbYes Then _ " nicht aufgerufen wird?
Ist die Checkbox2 ohne Haken, dann soll die Msg Box- Abfrage wieder aktiv sein.
Option Explicit
Sub Kabelsucher() 'Suchen
Dim d As Range
Dim firstAddress As String
With Tabelle4.Range("Z58:Z69")
Set d = .Find(Tabelle4.Range("R4").Text, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
Select Case d.Column
Case Is = 26
If MsgBox("Soll ich ein Kabel bringen?", vbQuestion + vbYesNo) = vbYes Then _
Call bringe_Kabel_jetzt
Case Else
MsgBox "Halt kein gültiger Wert- Stopp"
Exit Sub
End Select
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address firstAddress
End If
End With
End Sub
Wie kann ich das einbinden?
Grüße Andi