Hallo zusammen,
ich bräuchte Hilfe beim Vergleichen mit einem Datum.
In meiner Excel Liste stehen in einer Spalte von Zeile 15 bis 7000 mehrere Datums drin und ich möchte nun rausfinden welche in der Zeitspanne zwischen 01.01.03 und 31.03.03 liegen.
Folgenden Code hab ich dazu geschrieben, aber es kommt die Fehlermeldung Typen unverträglich.
Dim test As Date
For i = 15 To 7000
test = Worksheets(6).Cells(i, 12).Value ‚hier ist Laufzeitfehler‘
If (test > „01.01.05“ And test
Hallo Johanna,
um Dir das komplett in VBA zu machen habe ich davon zu wenig Ahnung und auch kein’s zum Testen. Dein Problem schreit aber förmlich nach select Case! 
In VB6 sieht das so aus …
Option Explicit
Private Sub Command1\_Click()
Dim Datum As String
Datum = "05.04.2006"
Select Case Datum
Case "01.01.2006" To "30.06.2006"
MsgBox "Das Datum liegt im ersten Halbjahr 2006"
Case "01.07.2006" To "31.12.2006"
MsgBox "Das Datum liegt im zweiten Halbjahr 2006"
Case Else
MsgBox "Das Datum ist nicht in 2006"
End Select
End Sub
Wie Du in Select Case Datum Deine Zelle statt ‚Datum‘ schreiben mußt, weiß ich nicht. Der Datentyp ist aber String, nicht Datum. VB interpretiert das bei Select Case von allein als Datum und verarbeitet es richtig.
Gruß, Rainer
ich bräuchte Hilfe beim Vergleichen mit einem Datum.
In meiner Excel Liste stehen in einer Spalte von Zeile 15 bis
7000 mehrere Datums drin und ich möchte nun rausfinden welche
in der Zeitspanne zwischen 01.01.03 und 31.03.03 liegen.
Folgenden Code hab ich dazu geschrieben, aber es kommt die
Fehlermeldung Typen unverträglich.
Hi Johanna,
probiers mal so:
Sub tt()
Dim test As Date, i As Long
For i = 15 To 7000
test = CDate(Worksheets(1).Cells(i, 12).Value) 'hier ist Laufzeitfehler'
If test \> CDate("01.01.05") And test Gruß
Reinhard