VBA: Suche Wert in Datei1,prüfe ob Wert in Datei2,Zeile anhä

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Georg

da stellt sich mir eine wichtige Frage: - sind die Zeilen in Tabelle1 + 2 genau gleich identisch??
Wenn du schreibst, das ein Wert NICHT vorkommen kann, wird es auch Zeilenversatz geben. Oder??
Sind die Werte in Spalte S Unikate, die nur einmal vorkommen, oder kommen sie mehrfach vor??

Ich denke mit einer For Next Schleife und 1:1 Zeilenvergleich wird das nicht hinhauen!
Ich schicke dir mal ein Makro mit For Next und Find Such-Methode. Das wird eher klappen.

mfg Piet

Option Explicit

Dim AC As Range, lz1 As Long

Dim rFind As Range, lz2 As Long





'Vergleich über Find Methode



Sub Spalte_S_vergleichen()

Dim Tb2 As Worksheet, Txt, n, m

Set Tb2 = Worksheets("Tabelle2")

lz2 = Tb2.Cells(Rows.Count, "S").End(xlUp).Row + 1



With Worksheets("Tabelle1")   'Spalte S=19

     lz1 = .Cells(Rows.Count, "S").End(xlUp).Row

     For Each AC In .Range("S2:S" & lz1)

         Set rFind = Tb2.Columns("S").Find(What:=AC, After:=Tb2.Range("S1"), LookIn:=xlFormulas, _

             LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

         If Not rFind Is Nothing Then

            If rFind.Offset(0, 1) = Empty Then

               AC.Offset(0, 1).Resize(1, 3).Copy

               rFind.Offset(0, 1).PasteSpecial xlPasteValues

               n = n + 1   'Zeilen T-V ausgefüllt

            End If

         ElseIf rFind Is Nothing Then

            .Rows(AC.Row).Copy

            Tb2.Rows(lz2).PasteSpecial xlPasteValues

            lz2 = lz2 + 1:  m = m + 1  'Zeilen angehangen

         End If

     Next AC

     Application.CutCopyMode = False

     

     If n > 0 Then Txt = n & "  Zeilen T-V ausgefüllt" & vbLf

     If m > 0 Then Txt = Txt & m & "  Zeilen inten angehangen"

     MsgBox Txt

End With

End Sub

Sub Spalte_S_vergleichen() Dim ws As Worksheet Dim Z As Range 'Z wie Zelle Dim Dat2_Tvoll Dim Dat2_Tleer Dim Cnt(2) As Long Set Dat2_Tleer = CreateObject("Scripting.Dictionary") 'Besser wäre: "Extras", "Verweise..", Haken bei "Microsoft Scripting Runtime" Set Dat2_Tvoll = CreateObject("Scripting.Dictionary") 'Populating the dictionaries Set ws = Worksheets("Tabelle2") For Each Z In Range(ws.Range("S2"), ws.Cells(Rows.Count, "S").End(xlUp)) If Z.Offset(0, 1).Value = "" Then Dat2_Tleer(Z.Value) = Z.Row Else Dat2_Tvoll(Z.Value) = Z.Row End If Next 'Checking Tabelle1 With Worksheets("Tabelle1") For Each Z In Range(.Range("S2"), .Cells(Rows.Count, "S").End(xlUp)) If Dat2_Tleer.exists(Z.Value) Then ws.Cells(Dat2_Tleer(Z.Value), "S").Resize(1, 4).Value = Z.Resize(1, 4).Value 'Werte übertragen. S,T,U,V: 4 Spalten Cnt(0) = Cnt(0) + 1 ElseIf Not Dat2_Tvoll.exists(Z.Value) Then ws.Cells(Rows.Count, "S").End(xlUp).Range("A2:D2").Value = Z.Resize(1, 4).Value 'A2:D2 ist relativ zu der letztbefüllten Zelle in S Cnt(1) = Cnt(1) + 1 Else Cnt(2) = Cnt(2) + 1 End If Next End With 'Statistics MsgBox Cnt(0) & " Zeilen ergänzt," & vbLf _ & Cnt(1) & " Zeilen hinzugefügt," & vbLf _ & Cnt(2) & " Zeilen bereits vorhanden." Set Dat2_Tleer = Nothing Set Dat2_Tvoll = Nothing End Sub

Hallo Piet,

vielen Dank für Deinen Lösungsvorschlag!
Da brauche ich einige Zeit um alles zu verstehen / nachvollziehen zu können.

Zu Deinen Fragen:
1. Nein, ausser den Spalten-Überschriften sind die Tabellen nicht gleich. Daher wollte ich auch fehlende Zeilen unten anhängen.
Die einzelnen Werte in Spalte S, sind die jeweiligen Indikatoren, ob es diese Zeile in der Datei 2 schon gibt.
2. Einen Zeilenversatz wollte ich damit aus dem Weg gehen, in dem ich die fehlende Zeile "einfach" unten anhänge.
3. Ja, die Werte in Spalte S sind und dürfen nur Unikate sein.
Wenn es den Indikatorwert der Spalte S in Tabelle2 gibt, muss nur in Spalte T der Tabelle2 geschaut werden, ob da schon ein Wert eingetragen ist. Wenn das der Fall ist, ist keine weitere Aktion in dieser Zeile nötig (ansonsten halt von T bis V aus Tabelle1 kopieren).

Daher war mein Gedanke mit einer for / next- Schleife die Werte der Spalte S in Tabelle1 zu durchlaufen und zu schauen, ob es in Tabelle2 den Wert (auch Spalte S) schon gibt, um dann in Spalte T zu schauen, ob da was eingetragen ist. Dazu müsste vorher die Zeile in Tabelle2 ermittelt werden, wo der Wert (Suchbegriff) in Spalte S steht, damit man da was in die Spalten T bis V kopieren kann.
Das entspricht dem, was Du als "For Next und Find Such-Methode" betitelst :-)

Ich werde mich mit Deinem Lösungsvorschlag weiter beschäftigen, weiss aber noch nicht, ob ich das umgesetzt bekomme (s.o.).
Daher lasse ich die Frage noch offen und schliesse sie dann, wenn ich es hinbekommen habe.

Viele Grüsse
Georg

Beliebteste Forumthreads (12 Monate)

VBA: Suche Wert in Datei1,prüfe ob Wert in Datei2,Zeile anhä

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Suche Wert in Datei1,prüfe ob Wert in Datei2,Zeile anhä

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread