---

Hallo liebes Forum,

ich steh aufm Schlauch.

Via Ilogic wird eine externe Excel angesteuert, die Werte werden dann in die Multivaluelist eingetragen. Das funktioniert mit direkten Spaltenbezug super.

Nun beiß ich mir an etwas wahrscheinlich ganz banalen die Zähne aus:

Es soll in Spalte "E" nach "x" gesucht werden, wenn "x" vorhanden dann den dazugehörigen Wert aus Spalte "B" in eine Multivaluelist packen.

Mein Code dazu sieht bis jetzt so aus:

GoExcel.Open(ThisDoc.WorkspacePath() & "\Templates\Excellisten\Kreditoren.xlsx","Kreditoren")

For rowNumber = 2 To 100
    If GoExcel.CellValue("E" & rowNumber) = "x" Then
        Dim nameValue As String

        nameValue = GoExcel.CellValue("B" & Rownumber) 'assuming the "Name" column is column B   
MultiValue.List("Kreditorname").Add(nameValue)

'MessageBox.Show(nameValue)
    End If

Next

Die Messagebox ist nur zur Info und spuckt auch die richtigen Einträge aus.
Die Nummerierung 2 to 100 kann auch gern nach dem umgeschrieben werden sodass nach Wertende in der Spalte Schluss ist.

Ich hoffe Ihr könnt mir helfen. Merci im voraus .

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In einem anderen Forum wurde mir geholfen. Das in eine Regel und
es funktioniert super.

Dim sFile As String = ThisDoc.WorkspacePath() & "\NAME EURER EXCEL.xlsx"
Dim sList As New ArrayList

GoExcel.Open(sFile, "NAME EURER LISTE")
MultiValue.SetValueOptions(True, DefaultIndex :=0)

For iRow As Integer = 2 To 50
If GoExcel.CellValue(sFile, "SHEET NAME", "E" & iRow) = "x" Then
sList.Add(GoExcel.CellValue(sFile, "SHEET NAME", "B" & iRow))
End If

Next

MultiValue.List("NAME EURER LISTE") = sList

GoExcel.Close() 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP