|
ich möchte das ganze in einen vorhandenen Code einpassen. Zur Zeit rufe ich über eine Suchmaske Datensätze auf. Die Spalte 4 soll nun über die Checkbox abgefragt werden und geändert werden können.
Ich habe den Testcode mal eingefügt
Private Sub CommandButton1_Click()
Dim WkSh As Worksheet
Dim rZelle As Range
Dim i As Integer, Qe As Long
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
If TextBox1.Value <> "" Then
For i = 1 To 3 Step 2
With WkSh.Columns(i)
Set rZelle = .Find(TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox2.Value = WkSh.Cells(rZelle.Row, 1).Value
TextBox3.Value = WkSh.Cells(rZelle.Row, 2).Value
TextBox4.Value = WkSh.Cells(rZelle.Row, 3).Value
Qe = MsgBox("Möchten Sie weitersuchen ?", vbYesNo, "Suche")
If Qe = vbYes Then
Do Until Qe = vbNo
Set rZelle = .FindNext(TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox2.Value = WkSh.Cells(rZelle.Row, 1).Value
TextBox3.Value = WkSh.Cells(rZelle.Row, 2).Value
TextBox4.Value = WkSh.Cells(rZelle.Row, 3).Value
Qe = MsgBox("Möchten Sie weitersuchen ?", vbYesNo, "Suche")
End If
Loop
End If
End If
End With
Next i
End If
End Sub
|