Hi, folgendes Problem:
Ich überprüfe in ListBox1, ob der gewählte Wert dem der Zelle (lindex/3) entspricht und weise der Zelle (lindex/4) bis dato mit TextBox1 den Wert "x" zu, da ich die Größe von Kontrollkästchen ja leider nicht verändern kann. Da mir das eintippen des Wertes "x" aber zu umständlich ist wollte ich aus dem
Sub TextBox1_Change()
...
If ListBox1.Text = Trim(CStr(Sheets(1).Cells(lindex, 3).Value)) Then
Sheets(1).Cells(lindex, 4).Value = TextBox1
...
End Sub
ein
SubTextBox1_Click()
...
If ListBox1.Text = Trim(CStr(Sheets(1).Cells(lindex, 3).Value)) Then
Sheets(1).Cells(lindex, 4).Value = "x"
...
End Sub
machen. Der Wert wird aber bei einem Mausklick nicht übernommen. Kann mir jemand sagen wieso? Danke im Voraus! |