Private Sub CommandButton2_Click() 'Suche über Aktenzeichen Dim Suchen As String Dim firstAddress Dim i As Integer
'Datensatz suchen
If TextBox2.Text = "" Then MsgBox "Geben Sie bitte ein Aktenzeichen ein !" Exit Sub
Else Suchen = TextBox2.Text Set rngFind = Columns("B:B").Find(what:=Suchen, lookat:=xlWhole, LookIn:=xlValues) If rngFind Is Nothing Then If MsgBox("Dieses Aktenzeichen existiert noch nicht !" & vbCrLf & vbCrLf & " Möchten Sie das Aktenzeichen anlegen ?", vbQuestion + vbYesNo, "Nachfragen") = vbNo Then TextBox2.Text = "" TextBox2.SetFocus Exit Sub
Loop While Not rngFind Is Nothing And rngFind.Address <> firstAddress
End If End If
If ListBox1.ListCount = 1 Then TextBox1.Text = rngFind.Offset(0, -1).Value TextBox24.Text = rngFind.Offset(0, -1).Value
...
End If End Sub
kann ich mittels Aktenzeichen eine konkrete Zeile suchen und alle Werte entsprechend in Textboxen anzeigen lassen. Kann ich mir auch eine Zelle via Checkbox anzeigen lassen? Den umgekehrten Weg bekomme ich hin. Also wenn ich ein Häkchen gesetzt habe, dann schreibt er mir "wahr" in eine bestimmte Zelle nur beim Suchen tue ich mich schwer.
Ne... das war noch nicht ganz die Lösung. Funktioniert nur, wenn die Zelle noch leer ist. Sobald ich ein erstes mal ein Häkchen gesetzt habe, ist bei einer folgenden Abfrage immer ein Häkchen gesetzt. Vielleicht hat doch noch wer eine Idee!?
eine Checkbox hat doch nur zwei Zustände: Wahr und Falsch. Bei deinem letzten Code-konstrukt dürfte die Checkbox nur in den (wahrscheinlich seltenen) Fall aktiv sein, wenn in rngFind.Offset(0, 6 + Wahr) der Text Wahr steht.
so ist es aber richtig (glaube ich), es sei denn du siehst eine bessere Möglichkeit. Vorher hab ich an der Stelle ein Textfeld gehabt. Der Nutzer hat ein X eingegeben und beim Suchen gab es wieder ein X im Textfeld. Ginge theoretisch auch, find aber die Checkbox eleganter und die Daten sind dann einheitlich. Ich glaube du bist an meiner Formulierung "alle Werte" hängengeblieben. Da hab ich mich falsch ausgedrückt. Meinte wirklich nur eine Spalte und dort jeweils eine Zeile mit zwei konkreten und immer gleichen Werten "X" oder " " bzw. "Wahr" oder "Falsch".
Vielleicht eine Frage zur Checkbox. Die ist bei mir ja bei der Suche gesperrt. Kann ich das Häkchen irgendwie richtig schwarz anzeigen lassen. Das Grau ist ja schwer zu erkennen. Hab ich da eine Einstellungsmöglichkeit übersehen?
