Text Box in anhängigkeit zu ComboBox füllen
02.12.2016 12:16:50
Raphael
ich habe da mal ein Problem, bzw. vor einiger Zeit habe ich hier das folgende Makro im Internet gefunden....
leider bekomme ich jetzt die Meldung:
Objekt Erforderlich... und das Marko häkt hier an:
TextBox62.Text = .Cells(varTMP, 2).Value
Die Text Box 62 habe ich aber!? wo ist der Fehler? könnt ihr mir helfen?
Private Sub ComboBox3_Change()
Dim varTMP As Variant
With EVENTS
varTMP = Application.Match(ComboBox3.Text, Sheets("EVENTS").Range("A:A"), 0)
If Not IsError(varTMP) Then
Me.Tag = varTMP
TextBox62.Text = .Cells(varTMP, 2).Value
TextBox31.Text = .Cells(varTMP, 3).Value
TextBox32.Text = .Cells(varTMP, 4).Value
TextBox33.Text = .Cells(varTMP, 5).Value
Else
Me.Tag = ""
TextBox62.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
End If
End With
End Sub
Anzeige