Daten aus zwei Excel vergleichen (Tab1spalte N mit Tab2spalte N) färben

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RyoSaki.

    Daten aus zwei Excel vergleichen (Tab1spalte N mit Tab2spalte N) färben

    Ich kann nicht mehr...
    Normalerweise soll er in der Tabelle 1 die 2 Zeile in Spalte N überprüfen was zb. die Nummer 12345678 ist ob es diese Nummer in Tabelle 2 Spalte N auch zu finden ist WENN JA soll er in beiden Tabellen dieses Feld makieren und nochmals den Preis makieren der in spalte AC ist bei beiden Tabellen

    Das Problem ist alles wird grün gemacht und in der einen wird dann die hälte wieder blau gemacht...ich weiß nicht mehr woran es liegen kann

    VB.NET-Quellcode

    1. ​Imports Excel = Microsoft.Office.Interop.Excel
    2. Imports System.Drawing
    4. Public Class Form1
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. ' Öffne Dialogfenster, um die beiden Excel-Dateien auszuwählen
    8. Dim openFileDialog1 As New OpenFileDialog()
    9. openFileDialog1.Filter = "Excel-Dateien (*.xlsx)|*.xlsx"
    10. openFileDialog1.Multiselect = True
    12. If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    13. ' Speichere die ausgewählten Dateinamen
    14. Dim file1 As String = openFileDialog1.FileNames(0)
    15. Dim file2 As String = openFileDialog1.FileNames(1)
    17. ' Öffne Excel-Anwendung und Dateien
    18. Dim xlApp As Excel.Application = Nothing
    19. Dim xlWorkbook1 As Excel.Workbook = Nothing
    20. Dim xlWorkbook2 As Excel.Workbook = Nothing
    21. Dim xlWorksheet1 As Excel.Worksheet = Nothing
    22. Dim xlWorksheet2 As Excel.Worksheet = Nothing
    24. Try
    25. xlApp = New Excel.Application()
    27. xlWorkbook1 = xlApp.Workbooks.Open(file1)
    28. xlWorkbook2 = xlApp.Workbooks.Open(file2)
    30. ' Vergleiche die Spalten in den Tabellen
    31. xlWorksheet1 = CType(xlWorkbook1.Worksheets(1), Excel.Worksheet)
    32. xlWorksheet2 = CType(xlWorkbook2.Worksheets(1), Excel.Worksheet)
    34. Dim lastRow1 As Integer = xlWorksheet1.Cells(xlWorksheet1.Rows.Count, "N").End(Excel.XlDirection.xlUp).Row
    35. Dim lastRow2 As Integer = xlWorksheet2.Cells(xlWorksheet2.Rows.Count, "N").End(Excel.XlDirection.xlUp).Row
    37. For i As Integer = 2 To lastRow1 ' Schleife durch alle Zeilen in Tabelle 1
    38. Dim searchValue As String = xlWorksheet1.Range("N" & i).Value
    39. Dim searchRange As Excel.Range = xlWorksheet2.Range("N2:N" & lastRow2)
    41. Dim foundValues As Excel.Range = searchRange.Find(searchValue, LookIn:=Excel.XlFindLookIn.xlValues, MatchCase:=False, SearchFormat:=False)
    43. If foundValues IsNot Nothing Then ' Wenn die Sendungsnummer gefunden wurde
    44. For Each foundValue As Excel.Range In foundValues ' Schleife durch alle gefundenen Zeilen in Tabelle 2
    45. Dim foundRow As Integer = foundValue.Row
    46. Dim price1 As Double = xlWorksheet1.Range("AC" & i).Value
    47. Dim price2 As Double = xlWorksheet2.Range("AC" & foundRow).Value
    49. If price1 = price2 Then ' Wenn die Preise übereinstimmen
    50. xlWorksheet1.Rows(i).Interior.ColorIndex = 4 ' Makiere Zeile in Tabelle 1
    51. xlWorksheet2.Rows(foundRow).Interior.ColorIndex = 4 ' Makiere Zeile in Tabelle 2
    52. xlWorksheet1.Range("N" & i & ":AC" & i).Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Blue)
    53. End If
    54. Next
    55. End If
    56. Next
    58. ' Speichere Änderungen und schließe Excel-Anwendung und Dateien
    59. xlWorkbook1.Save()
    60. xlWorkbook2.Save()
    61. xlWorkbook1.Close()
    62. xlWorkbook2.Close()
    63. xlApp.Quit()
    65. Catch ex As Exception
    66. MessageBox.Show("Ein Fehler ist aufgetreten: " & ex.Message)
    67. End Try
    68. End If
    70. End Sub
    71. End Class

    Bei Übereinstimmung der Artikel(?)nummer und Preis werden die betroffenen Zeilen aus Tabelle1 und 2 im Ganzen grün. Steht ja so in Zeile#50 und #51.
    Und der Bereich von Spalte#14 bis #29 in jenen Zeilen soll dunkelblau werden. Steht in Zeile#52. Was pass daran jetzt genau nicht?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    OMG ich bin Dumm...nicht nur das sonsdern hab auch grade realierst ich vergleiche die gleich tabelle miteinander...klar das sich alles grün färbt....
    Konnte weil Excel keine andere excel datei erstellen...und hatte nur die eine

    Trotzdem danke das du mir geholfen hast auf meinen "Fehler" zu kommen

Facebook
Telefonspende