Typen unverträglich
08.08.2016 18:33:56
Frank
Ich habe folgendes Problem. Auf einer UF befinden sich mehrere TextBoxen, welche bei aktivem OptionButton gleich oder immer mit unterschiedlichen Werten gefüllt werden sollen. Beim Verlassen der TextBox21 in der ich ein Datum eingebe und aktivem OptionButton9 funzt alles. Öffne ich die UF und aktiviere OptionButton10, gebe dann ein Datum ein und verlasse die TextBox21 kommt die Fehlermeldung "Typen unverträglich". Kann jemand meinen Fehler erkennen im nachstehendem Code erkennen?
Bitte um Hilfe und danke im Voraus!
Dim lng As Long
TextBox22 = Format(TextBox21, "ddd")
For lng = 7 To 5850
If VarType(Sheets("DUZ").Cells(lng, 220)) = vbDate Then
If Sheets("DUZ").Cells(lng, 220) = CDate(TextBox21) Then
TextBox23 = Sheets("DUZ").Cells(lng, 222)
TextBox24 = Sheets("DUZ").Cells(lng, 223)
TextBox25 = Sheets("DUZ").Cells(lng, 224)
TextBox26 = Format(Sheets("DUZ").Cells(lng, 225), "hh:mm")
TextBox27 = Sheets("DUZ").Cells(lng, 226)
TextBox28 = Format(Sheets("DUZ").Cells(lng, 227), "hh:mm")
TextBox29 = Format(Sheets("DUZ").Cells(lng, 228), "0.00")
If OptionButton9 = True Then 'ab hier TextBoxen mit den Daten der eigenen Berechnung füllen
For i = 229 To 236
Me("TextBox" & i - 194) = Sheets("DUZ").Cells(lng, i)
Next i
End If
If OptionButton10 = True Then 'ab hier TextBoxen mit den Daten der Gehaltsabrechnung füllen
For i = 237 To 244
Me("TextBox" & i - 202) = Sheets("DUZ").Cells(lng, i)
Next i
End If
If OptionButton11 = True Then 'ab hier TextBoxen mit den Daten der vollen Anwesenheit füllen
For i = 245 To 252
Me("TextBox" & i - 210) = Sheets("DUZ").Cells(lng, i)
Next i
End If
End If
End If
Next lng
Gruß Frank H.