PDA

Vollständige Version anzeigen : Like formulierung


Boums
12.03.2009, 10:32
Hallo ich benutze folgende Formulierung um Daten in Excel zu importieren.

With Sheets("1.1.1")
.Range("A5:A7002,B5:B7002,C5:C7002,D5:C7002,D5:D7002,E5:E7002,F5:F7002,G5:G7002,H5:H7002 ,I5:I7002").ClearContents
intCounter = 5
Do While Not DBS.EOF
.Cells(intCounter, 1).Value = DBS!DatePaiement
.Cells(intCounter, 2).Value = DBS!NDossier
.Cells(intCounter, 3).Value = DBS!LibelleDossier
.Cells(intCounter, 4).Value = IIf(DBS!LibelleDossier Not Like "*Recouvrement*", DBS!SommeDeMontant, 0)
.Cells(intCounter, 6).Value = IIf(DBS!LibelleDossier Like "*Recouvrement*", DBS!SommeDeMontant, 0)
DBS.MoveNext
intCounter = intCounter + 1
If intCounter > 7002 Then Exit Do
Loop
End With

In der rot markierten Zeile tritt ein Fehler auf, weil Not Like nicht angenommen wird. Wie muss ich diese Zeile denn formulieren, damit alle Datensätze berücksichtigt werden, welche nicht das Wort *Recouvrement enthalten*

Uwe Küstner
12.03.2009, 10:42
Hallo Daniel,

vielleicht einfach so?

.Cells(intCounter, 4).Value = IIf(DBS!LibelleDossier Like "*Recouvrement*", 0, DBS!SommeDeMontant)

Boums
12.03.2009, 11:03
manchmal liegt die Antwort doch so nahe:)
Danke für deine Hilfe