Excel: ZellenInhalt + dazugehörige Zeilennummer merken/speichern (kein VBA code)

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Akki.

    Excel: ZellenInhalt + dazugehörige Zeilennummer merken/speichern (kein VBA code)

    Hallo VB FREUNDE,

    Ich möchte aus einer Excel Tabelle eine bestimmten Zelleninhalt und die dazugehörige Zeilennummer speichern, z.B. in einem ArrayList.
    In dem gewählten Bereich sind Zahlen, diese Zahlen sortiere ich auch mit der (sort funktion).

    Das Auslesen des Inhalts aus der Excel-DAtei und das speichern in einem Arraylist klappt wunderbar. Nur benötige ich auch die dazugehörige Zeilennummer.

    Um ein besseres Bild zur meiner Fragestellung zu erhalten, habe ich meine Exceldatei und ein Pic angehängt. Siehe Anhang.

    (Selbstverständlich habe ich auch alleine rumprobiert, allerdings ohne Erfolg)

    Das ist mein Code zum Auslesen und Speichern in meinem ArrayList: Vielen DANK im Voraus!!!!

    VB.NET-Quellcode

    1. Imports iExcel = Microsoft.Office.Interop.Exce
    2. Public Class Form1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim xlApp As New iExcel.Application ' Erstelle ein neues Excel Objekt
    7. '--------------Beginn: Variablendeklaration: Um mit Excel zu arbeiten----------------
    8. Dim xlWorkbookUrsprung As iExcel.Workbook
    10. Dim xlWorksheetUrsprung As iExcel.Worksheet
    11. Dim xlZelle As iExcel.Range
    14. '--------------Beginn: Variablendeklaration für Zeilenanzahl zu finden ----------------
    15. Dim intZeilen, iZeile As Integer
    16. Dim nZeile, xZeile As Boolean
    17. iZeile = 0
    18. intZeilen = 0
    19. nZeile = False
    20. xZeile = False
    21. Dim letzteZeile As Integer
    22. '--------------Ende: Variablendeklaration für Zeilenanzahl zu finden----------------
    24. xlWorkbookUrsprung = xlApp.Workbooks.Open("C:\ExcelInhalt.xls") ' Oeffne die angegebene Datei
    27. xlWorkbookUrsprung.Sheets(1).Activate()
    28. xlWorksheetUrsprung = CType(xlWorkbookUrsprung.Worksheets(1), iExcel.Worksheet)
    30. '--------------Beginn: Funktion Anzahl der belegten Daten in Spalte C1 festzustellen----------------
    31. xlZelle = xlWorksheetUrsprung.Range("C1")
    32. While nZeile = False
    34. If xlZelle.Offset(intZeilen, 0).Value = "" Then
    35. nZeile = True
    36. letzteZeile = intZeilen
    37. Else
    38. intZeilen += 1
    40. End If
    41. End While
    42. '--------------Ende: Funktion Anzahl der belegten Daten in Spalte C1 festzustellen----------------
    44. Dim pufferListe As New ArrayList 'Mein Array zum Befüllen des Zelleninhalts
    45. ListBox1.Items.Clear()
    46. ListBox2.Items.Clear()
    47. pufferListe.Clear()
    48. Dim k, l As Integer
    51. For k = 1 To letzteZeile
    52. pufferListe.Insert(l, xlWorksheetUrsprung.Cells(k, 3).Value)'Fuelle mein Arraylist mit Hilfe einer Schleife
    53. Next k
    58. 'Ausgabe zur Testzwecke, um zu sehen um im Arraylist auch tatsächlich der Inhalt kopiert wurde
    61. Dim b As String
    62. Dim x As Integer
    64. b = "Spalte C vorher: "
    65. For x = 0 To pufferListe.Count - 1
    66. b &= pufferListe(x) & " "
    67. Next
    68. ListBox1.Items.Add(b)
    72. pufferListe.Sort() ' Hier Sortiere ich die Zahlen und gebe sie anschließend nur aus zur Testzwecken
    74. Dim a As String
    75. Dim u As Integer
    77. a = "Spalte C nach Sortierung: "
    78. For u = 0 To pufferListe.Count - 1
    79. a &= pufferListe(u) & " "
    80. Next
    81. ListBox2.Items.Add(a)
    84. End Sub
    85. End Class
    Bilder

    • ExcelInhaltPIC.jpg

      176,13 kB, 1.111×542, 179 mal angesehen
    Dateien

    • ExcelInhalt.xls

      (17,41 kB, 159 mal heruntergeladen, zuletzt: )

    Akki schrieb:

    Nur benötige ich auch die dazugehörige Zeilennummer.

    Du benötigst also von jeder Excel-Zelle 2 Werte: Zeilennummer und Wert.

    in eine Arraylist kann man aber nur eines tun: Zeilennummer oder Wert. Oder noch was anneres.

    also programmiere dir zuerst eine DatenObjekt-Klasse, mit den Properties Zeilennummer und Wert.

    Davon kannst du dann in die Arraylist tun - problem solved.

    übrigens: Arraylist ist Crap.
    Nimm List(of DatenObjekt)

    ErfinderDesRades, Kannst du mir vllt Beispiel geben, wie ich es impelementieren soll.
    Ich habe jetzt es so gemacht, aber habe keine ahnung ob es das war was du meintest ?(

    VB.NET-Quellcode

    1. Private Shared Function pufferListe(ByVal ZeilenNummer, ByVal ZeilenInhalt) As List(Of String)
    2. 'Dim pufferListe1 As New List(Of String)
    4. pufferListe.Clear()
    5. Dim k, l As Integer
    8. For k = 1 To 5
    9. pufferListe(ZeilenNummer, ZeilenInhalt).Insert(l, xlWorksheetUrsprung.Cells(k, 3).Value)
    10. Next k
    12. pufferListe(ZeilenNummer, ZeilenInhalt).Sort()
    18. Return (was soll ich zurück geben)
    19. End Function

    scheinbar weißt du nicht, was eine Klasse ist, und was eine Property.

    Hat imo keinen Zweck, dich mit Fertiglösungen zu bedienen, die du nicht verstehst.
    Auch kein Zweck, die fehlenden Grundlagen per Foren-Posts nun nachzuholen.

    Ich empfehle: dieses Buch Lesen und kein anneres.

Facebook
Telefonspende