Frage zu meinem Code
30.11.2015 16:30:08
Frank
Mittels folgendem Code soll beim Klick auf CheckBox3 der CheckBox Name in die Tabelle eingetragen werden und anschließend soll alle aufgeführten Felder, siehe Code geleert werden. Jedoch meckert er gleich los, "Typen unverträglich". Die TextBox soll dann laut Debugger bereits leer sein, aber warum?
Hier mein Code:
Application.ScreenUpdating = False
Dim lng As Long
Dim i As Integer
With frmDUZ
For lng = 5 To 370
If Sheets("eigener DUZ").Cells(lng, 1) = CDate(TextBox2) Then
Sheets("eigener DUZ").Cells(lng, 17) = CheckBox3.Caption
End If
Next lng
End With
For i = 2 To 13
Me("TextBox" & i) = ""
Next i
cbDienst = ""
cbsonst = ""
For i = 49 To 51
Me("TextBox" & i) = ""
Next i
cbDUZ_Auswahl.ListIndex = 0
For i = 23 To 47
Me("TextBox" & i) = ""
Me("TextBox" & i).BackColor = &H80000005
Next i
For i = 52 To 60
Me("TextBox" & i) = ""
Me("TextBox" & i).BackColor = &H80000005
Next i
CheckBox3 = False
Dim lng_A As Long
Dim lng_Z As Long
lng_A = Label54.Width
Label54.Width = 0
DoEvents
lng_Z = 1000
For i = 1 To lng_Z
With Label54
.Width = i / lng_Z * lng_A
.TextAlign = fmTextAlignCenter
.BackColor = RGB(0, 0, 256)
.Font.Bold = True
.Caption = Int(i / 10) & "%"
DoEvents
End With
Next
Application.ScreenUpdating = True
Ich hoffe jemand entdeckt meinen Fehler und kann mir helfen. Danke schon im Voraus!
Gruß Frank H.