Prozedur mit Übergabe von Objekten
04.01.2016 12:29:29
Objekten
Ich möchte in einem userform bei Klick auf eine Checkbox (von 4) jeweils eine zugehörige
Textbox füllen und den Text markieren. Um nicht so viel code zu produzieren und weil 4mal im
Prinzip das gleiche passieren soll, wollte ich eine Porzedur schreiben, der ich jeweils die
Objekte übergebe:
Private Sub pos_eintragen(cb As CheckBox, pos_typ As TextBox, pos_nr As String)
With pos_typ
If cb = True Then
.Enabled = True
.Text = pos_nr
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
Else
.Enabled = False
.Text = ""
End If
End With
End Sub
Private Sub cb_engineering_Click()
pos_eintragen Me.cb_engineering, Me.pos_engineering, "9200"
End Sub
cb_engineering ist eine Checkbox und pos_engineering eine Textbox
Ich bekomme aber beim Prozeduraufruf immer einen LZ-Fehler 13: Typen unverträglich. Was mache ich falsch?
VG Tom