Hallo,
ich habe ein Problem wo ich im Moment nicht weiterkomme. Folgende Aufgabe will ich erledigen:
Über eine Windows Forms sollen 2 unterschiedlichen TextBox-Eingaben, nämlich Begriff (Column A) und Definition (Column B), in eine Excel-Tabelle übertragen werden.
Zu jedem Begriff, kann es unterschiedliche Definitionen geben, die dann die Reihe nach eingetragen werden sollen.
Bspl: Begriff 1 (Zelle A1); Definition 1 (Zelle B1) und weitere Definitionen zum Begriff 1 sollen B2, B3, .....Bn belegen
Also sobald der User einen Begriff überträgt, soll erstmal danch in der Spalte A gesucht werden und dann die Definition eingetragen.
Das Übertragen funzt bei mir aber die Definitionen werden bei mir immer in die erste Row geschrieben -.-
hier mein Code:
vielleicht ist meine Heransweise falsch ?
Danke und Gruß,
ich habe ein Problem wo ich im Moment nicht weiterkomme. Folgende Aufgabe will ich erledigen:
Über eine Windows Forms sollen 2 unterschiedlichen TextBox-Eingaben, nämlich Begriff (Column A) und Definition (Column B), in eine Excel-Tabelle übertragen werden.
Zu jedem Begriff, kann es unterschiedliche Definitionen geben, die dann die Reihe nach eingetragen werden sollen.
Bspl: Begriff 1 (Zelle A1); Definition 1 (Zelle B1) und weitere Definitionen zum Begriff 1 sollen B2, B3, .....Bn belegen
Also sobald der User einen Begriff überträgt, soll erstmal danch in der Spalte A gesucht werden und dann die Definition eingetragen.
Das Übertragen funzt bei mir aber die Definitionen werden bei mir immer in die erste Row geschrieben -.-
hier mein Code:
Quellcode
- Dim ColumnNumber As Integer = 1
- Dim RowNumber As Integer = 1
- Dim currentFind As Excel.Range = Nothing
- Dim Test As Excel.Range = oSheet.Range("A1", "A300")
- currentFind = Test.Find(Begriff.Text, ,
- Excel.XlFindLookIn.xlValues,
- Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)
- If currentFind IsNot Nothing Then
- For Each xCell In oSheet.Rows(1).cells
- If xCell.Value = "" And currentFind(ColumnNumber, RowNumber).Value <> "" Then
- xCell.Value = Definition.Text
- Exit For
- End If
- Next
- End If
- If currentFind(ColumnNumber, RowNumber).Value Is Nothing Then
- For Each xCell In oSheet.Columns(1).cells
- If xCell.Value = "" Then
- xCell.Value = Begriff.Text
- xCell.Offset(0, 1).Value = Definition.Text
- Exit For
- End If
- Next
- End If
vielleicht ist meine Heransweise falsch ?
Danke und Gruß,