Hallo @ all,
Wenn ich dieses Script ausführe, dann bekomm ich den Fehler:
„Typen unverträglich“
Das Prog. Soll eigentlich diejenigen Personen zählen dessen Datum vor dem aktuellen liegen. Eine Abkürzung der Personengruppe soll man in der Combobox auswählen können, z.B.: Olt.
Beispiel der Tabelle:
Olt Datum
PvP Datum
Olt Datum
Olt Datum
Olt Datum
PvP Datum
HAA Datum
Olt Datum
Private Sub cb1_Click()
cb1.Clear
cb1.AddItem („Olt“)
cb1.AddItem („FW“)
End Sub
Private Sub CommandButton1_Click()
Dim o As Integer
Dim i As Integer
Dim a As Integer
Dim Datum1
i = 1
a = 5
Datum1 = Date ’ Datum1 enthält das aktuelle Systemdatum.
Range(„B1“) = Datum1 ’ heutiges Datum wird in beliebeige Zelle geschrieben.
For i = 5 To 18 Step 1 ’ von der 5. zelle bis zur 18. geht die auflistung
If Datum1 > Cells(i, 2).Value Then ’ wenn das datum der person über den heutigen ist dann…
If cb1.Value = „Olt“ Then
For a = 0 To 13 Step 1
If Worksheets(Tabelle1).Cells(a, 1).Value = „Olt“ Then 'heir der fehlere
’ die Zelle (cells) hat ja in der eigenschaft text und value den typ string, warum inkompatibel?
o = o + 1
End If
Next a
Range(„K7“).Value = olt
End If
If cb1.Value = „FW“ Then
olt = o + 1
Range(„K9“).Value = olt
End If
Else: MsgBox („so ein misst“) 'nur zu testzwecken so geschrieben
End If
Next i
Range(„C1“).Value = ol
End Sub
Weis jemand wie ich den Fehler weg bekomme??
Danke, schonmal im voraus!