Hallo VB FREUNDE,
Ich möchte aus einer Excel Tabelle einen bestimmten Wert suchen.
Da ich weiß, das der gesuchte Wert "TOTAL" sich immer in der ersten Zeile befindet, sollen auch nur die gesamten Spalten der Tabelle1 durchsgesucht werden.
EDIT 1
Danke in voraus!
Ich möchte aus einer Excel Tabelle einen bestimmten Wert suchen.
Da ich weiß, das der gesuchte Wert "TOTAL" sich immer in der ersten Zeile befindet, sollen auch nur die gesamten Spalten der Tabelle1 durchsgesucht werden.
EDIT 1
VB.NET-Quellcode
- Imports iExcel = Microsoft.Office.Interop.Excel
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim xlApp As New iExcel.Application
- Dim xlWorkbookRPO As iExcel.Workbook
- Dim xlWorksheetRPO As iExcel.Worksheet
- Dim xlZelleRPO As iExcel.Range
- xlWorkbookRPO = xlApp.Workbooks.Open("C:\TOTAL.xls")
- xlWorksheetRPO = CType(xlWorkbookRPO.Worksheets("Tabelle1"), iExcel.Worksheet)
- 'SucheTotal
- Dim intSpalte, SpaltenNrvonTotal As Integer
- Dim nSpalte As Boolean
- nSpalte = False
- intSpalte = 1
- xlZelleRPO = CType(xlWorksheetRPO.Rows(1), Excel.Range)' er soll alle Spalten durchsuchen, was soll ich in der Klammer schreiben
- While nSpalte = False
- If xlZelleRPO.Offset(1, intSpalte).Value = "TOTAL" Then ' Bekomme hier allerdingsFehlermeldung:
- nSpalte = True
- Debug.WriteLine("bin drin")
- SpaltenNrvonTotal = intSpalte
- Else
- intSpalte += 1
- End If
- End While
- TextBox1.Text = SpaltenNrvonTotal' Ausgabe zur Testzweck
- End Sub
- End Class
Danke in voraus!
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Akki“ ()