Excel VBA: Zellen mit gleichem Inhalt in gesamter Arbeitsmappe suchen

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von surfer_01.

    Excel VBA: Zellen mit gleichem Inhalt in gesamter Arbeitsmappe suchen

    Hallo zusammen,

    ich habe folgendes Problem, bei dem ihr mir hoffentlich helfen könnt :)

    Ich habe eine Arbeitsmappe, die viele Tabellenblätter mit Artikeldaten enthält (pro Artikel eine Tabelle). Weiterhin eine Tabelle "PPR Report" diese enthält eine Liste mit Bestell-Nr. in Spalte A. Ich möchte prüfen, ob alle Bestell-Nr. aus derm Tabellenblatt "PPR Report" auch in den Arkikel-Tabellen vorkommen und die gefundenen Zellen jeweils farblich markieren. Schwierigkeit ist, dass eine Bestellnummer auf mehreren Artikel-Tabellen und auch mehrfach in einer Artikel Tabelle vorkommen kann.

    Ich habe mir hierzu folgenden VBA Code geschrieben / aus verschieden Post zusammengebastelt :-). Problem ist, dass ich die Bestell-Nr. aktuell in jeder Artikel-Tabelle nur 1mal finde, kommt sie mehfach vor, dann werden diese Positionen nicht gefunden.

    VB.NET-Quellcode

    1. Sub Test_PPR_finden()
    3. Dim wks As Worksheet, wks_PPR As Worksheet
    4. Dim rng As Range
    5. Dim sAddress As String
    6. Dim sFind As String, i As Integer
    7. Dim cr As Long, tarWks As String
    9. Set wks_PPR = Worksheets("PPR Report")
    10. wks_PPR.Select
    11. Ende = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    13. For i = 4 To Ende
    14. 'Suchbegriff definieren
    15. sFind = Cells(i, 1)
    16. If sFind = "" Then Exit Sub
    18. For Each wks In Worksheets
    20. 'Tabellenblätter die von der Suche ausgenommen werden
    21. If wks.Name = "PPR Report" Then GoTo NextStart
    23. Set rng = wks.Cells.Find(What:=sFind, _
    24. LookAt:=xlPart, LookIn:=xlFormulas)
    25. If Not rng Is Nothing Then
    26. sAddress = rng.Address
    27. Do
    29. For Each Zelle In rng
    30. If Zelle.Value = sFind Then
    31. Zelle.Interior.ColorIndex = 7
    32. wks_PPR.Cells(i, 1).Interior.ColorIndex = 7
    33. wks_PPR.Cells(i, 54) = wks_PPR.Cells(i, 54) & wks.Name & " / "
    35. End If
    36. Next
    38. Set rng = wks.Cells.FindNext(after:=ActiveCell)
    39. If rng.Address = sAddress Then Exit Do
    40. Loop
    41. End If
    42. NextStart:
    43. Next wks
    44. Next i
    45. End Sub


    Was muss ich ändern um alle Positionen in einem Artikel-Tabellenblatt zu finden?

    Vielen Dank im vorraus für eure Hilfe!

    Gruß
    Ralf

    Hallo zusammen,

    für alle denen es vieleicht weiterhilft, habe die Lösung selbst gefunden:

    Code aus vorherigem Post ab Zeile 22 ersetzen:

    VB.NET-Quellcode

    1. ' Bereich in dem die PPR Nummer gesucht werden soll
    2. Set rng = wks.Range("h1:h" & wks.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    4. For Each Zelle In rng
    5. If Zelle.Value = sFind Then
    6. Zelle.Interior.ColorIndex = 4 '4=gün
    7. wks_PPR.Cells(i, 1).Interior.ColorIndex = 4 '4=gün
    8. wks_PPR.Cells(i, Start_Spalte) = Zelle.Row
    9. wks_PPR.Cells(i, Start_Spalte + 1) = wks.Name
    10. check = 1
    11. Start_Spalte = Start_Spalte + 2
    12. End If
    13. Next
    15. NextStart:
    16. Next wks
    17. 'wenn PPR nicht gefunden wurde, wird die Zelle im PPR Report rot markiert
    18. If check = 0 Then wks_PPR.Cells(i, 1).Interior.ColorIndex = 3 '4=rot
    19. Next_PPR:
    20. Next i
    21. End Sub


    Gruß
    Ralf

Facebook
Telefonspende