Ich habe folgenden VBA Text:
Private Sub CommandButton16_Click()
Dim wks As Worksheet
Set wks = Workbooks("Adressbuch.xls").Worksheets("Spielplan")
If wks.Cells(3, 2) = "1. KW" And wks.Cells(3, 3) = "Mo" Then
TextBox229.Text = wks.Cells(3, 5)
End If
End Sub
Mit diesem Makro wird der Wert nicht in die TextBox229 aus der Tabelle "Spielplan" eingetragen.Mit folgendem Makro wird der Wert aus der Tabelle "Spielplan" richtig in die TextBox229 eingetragen:
Private Sub CommandButton16_Click()
Dim wks As Worksheet
Set wks = Workbooks("Adressbuch.xls").Worksheets("Spielplan")
If wks.Cells(3, 2) = "1. KW" Then
TextBox229.Text = wks.Cells(3, 5)
End If
End Sub
Wo mache ich hier bitte den Fehler?Danke
Josef