Hallo,

ich möchte folgendes unter vb.NET in Excel machen:

wenn für alle Zellen der Spalte P der Wert der Zelle > 2 ist, dann soll der Wert aus Spalte O derselben Zeile abgegriffen werden.

Ich habe so angefangen:

Dim rng As Microsoft.Office.Interop.Excel.Range

Dim xlsApp As Excel.Application

Dim xlsCell As Excel.Range

xlsApp = CType(GetObject(, "Excel.Application"), Excel.Application)

For Each rng In xlsApp.Range("O:O").SpecialCells(xlsApp.XlCellType).Cells

If rng(0, 1).Value > 2 Then

--> In der zeile oben drüber gibt es schon eine Fehlermeldung

End If

Next


Danke euch für die Hilfe!

Fehler: Exeption Nothing oder so ähnlich.

Ist das Konstrukt an sich wenigstens ansatzweise richtig?

Grüße

Hab schon verstanden, danke schön.