Hallo,
ich hab folgendes Problem.
ich möchte eine Tabelle(BelegKunde) durchlaufen und überprüfen in jeder zeile, ob das Datum kleiner ist als ein Jahr und dann in eine andere Tabelle einfügen.
nur wird mir der Fehler "Typ unverträglich" angezeigt und ich weis nicht warum.
'ist in BelegKunde leer? wenn nein gehe runter bis eine leere Zelle gefunden ist
While Not IsEmpty(BelegKunde.Cells(zeileQuelle, spalteQuelle))
Dim datum As Date
Dim aktuellDate As Date
Dim diff
aktuellDate = Date
'datum differez aktuell zu datum in BelegKunde
datum = BelegKunde.Cells(zeileQuelle, 1).Value
diff = DateDiff("d", datum, aktuellDate)
'Ist das Datum das aktuelle? wenn ja kopiere aus Tabelle1 in 2
If diff < 366 Then
Angebotsliste.Cells(zeileZiel, spalteziel).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle)
Angebotsliste.Cells(zeileZiel, spalteziel + 1).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 1)
Angebotsliste.Cells(zeileZiel, spalteziel + 2).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 2)
Angebotsliste.Cells(zeileZiel, spalteziel + 3).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 3)
Angebotsliste.Cells(zeileZiel, spalteziel + 4).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 4)
Angebotsliste.Cells(zeileZiel, spalteziel + 5).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 5)
zeileZiel = zeileZiel + 1
End If
zeileQuelle = zeileQuelle + 1
Wend
Hoffe mir kann Jemand helfen.
Grüße
Nicole
ich hab folgendes Problem.
ich möchte eine Tabelle(BelegKunde) durchlaufen und überprüfen in jeder zeile, ob das Datum kleiner ist als ein Jahr und dann in eine andere Tabelle einfügen.
nur wird mir der Fehler "Typ unverträglich" angezeigt und ich weis nicht warum.
'ist in BelegKunde leer? wenn nein gehe runter bis eine leere Zelle gefunden ist
While Not IsEmpty(BelegKunde.Cells(zeileQuelle, spalteQuelle))
Dim datum As Date
Dim aktuellDate As Date
Dim diff
aktuellDate = Date
'datum differez aktuell zu datum in BelegKunde
datum = BelegKunde.Cells(zeileQuelle, 1).Value
diff = DateDiff("d", datum, aktuellDate)
'Ist das Datum das aktuelle? wenn ja kopiere aus Tabelle1 in 2
If diff < 366 Then
Angebotsliste.Cells(zeileZiel, spalteziel).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle)
Angebotsliste.Cells(zeileZiel, spalteziel + 1).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 1)
Angebotsliste.Cells(zeileZiel, spalteziel + 2).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 2)
Angebotsliste.Cells(zeileZiel, spalteziel + 3).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 3)
Angebotsliste.Cells(zeileZiel, spalteziel + 4).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 4)
Angebotsliste.Cells(zeileZiel, spalteziel + 5).Value = BelegKunde.Cells(zeileQuelle, spalteQuelle + 5)
zeileZiel = zeileZiel + 1
End If
zeileQuelle = zeileQuelle + 1
Wend
Hoffe mir kann Jemand helfen.
Grüße
Nicole