wie kann ich via Userform einen Bestimmten Wert in der gesamten Arbeitsmappe suchen!?
Userform ertsellen ist kein Problem, aber der Code!?
Danke für die Hilfe
Gruß
Norbert
Private Sub cb1_Click()
Const cIDPos As String = "D3"
Dim ws As Worksheet
Dim bFound As Boolean
For Each ws In ThisWorkbook.Worksheets
If ws.Range(cIDPos).Text = tb3 Then
MsgBox "ID gefundnen in " & ws.Name & "!" & cIDPos
bFound = True
End If
Next ws
If Not bFound Then MsgBox "ID " & tb3 & " nicht gefunden!", vbCritical
End Sub
Gruess Hansueli
Set rF = .Find(TextBox1, ws.UsedRange(1, 1), _
ComboBox3.List(ComboBox3.ListIndex, 1), _
(CheckBox2.Value + 2), , xlNext, CheckBox1.Value)