Domino 9 und frühere Versionen > ND6: Entwicklung

Einträge aus Notes in Excell überführen

<< < (2/2)

TMC:
Du machst das über eine Schleife.

Dim intLBound as Integer
Dim intUBound as Integer
Dim i as Integer
Dim intCounter as Integer

intLBound = lBound(DeinFeldArray)
intUBound = uBound(DeinFeldArray)

For i = intUBound to intLBound Step -1

intCounter = intCounter + 1

'hier vergleichst Du nun
If DeinFeldArray(i) = "Begriff" Then
  Msgbx "Treffer"
  Exit For

Next i

D.h. hier fängst Du von unten an, und sobald Du den Begriff gefunden hast, machst Du irgendwas. intCounter kannst Du auswerten, d.h. damit berechnest Du den Index des 2. Arrays.

eknori:
schaue dir generell zum Export einmal http://www.atnotes.de/index.php?topic=15203.0 an.
Mit ein paar Änderungen solltest du auch die von dir gewünschte Selection einbauen können.

pumpernickel:
Danke für die Hilfe :)

Werd mich hier noch weiter umschauen :)

Gruß Robo

pumpernickel:
Das mit der Schleife hört sich gut an.:)

Ich werd es ausprobieren.
 :)

Greetz Robo

Navigation

[0] Themen-Index

[*] Vorherige Sete