mehrere Spalten mit ein Spalte vergleichen

Forumthread: mehrere Spalten mit ein Spalte vergleichen

27.06.2007 14:06:15

Karel

Hallo,
mochte gerne mehrere Spalten Tabelle (vergleich) mit einen Spalte A Tabelle(Bestand) vergleichen, und alle Fehlende werten in 3 Tabelle (Fehlende) schreiben.
Spalten im Tabelle (vergleich) sind variabel.
Sehe Bespiel (muster von Klaus Dieter)
https://www.herber.de/bbs/user/43628.xls
Grusse
Karel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrere Spalten mit ein Spalte vergleichen

27.06.2007 16:14:45

Peter

Hallo Karel,
ich habe dir ein Makro "Abgleich" geschrieben, dass den Abgleich auf fehlende Daten macht,
so, wie ich deine Schilderung verstanden habe.
Ich geben zur Zeit das Ergebnis in der Spalte J des Blattes Fehlende aus, um deine Daten nicht
zu überschreiben.
Schau mal, ob es das ist, was du suchst.
Gruß Peter

Option Explicit
Public Sub Abgleich()
Dim WkSh_Q     As Worksheet
Dim WkSh_V     As Worksheet
Dim WkSh_Z     As Worksheet
Dim lLetzte_Q  As Long
Dim lLetzte_V  As Long
Dim lZeile_Q   As Long
Dim lZeile_Z   As Long
Dim rZelle     As Range
   Application.ScreenUpdating = False
   Set WkSh_Q = Worksheets("Bestand")
   Set WkSh_V = Worksheets("vergleich")
   Set WkSh_Z = Worksheets("Fehlende")
   lLetzte_Q = IIf(WkSh_Q.Range("A65536") <> "", 65536, _
      WkSh_Q.Range("A65536").End(xlUp).Row)
   lLetzte_V = IIf(WkSh_V.Range("A65536") <> "", 65536, _
      WkSh_V.Range("A65536").End(xlUp).Row)
   lZeile_Z = 6
   With WkSh_V.Range("A4:D" & lLetzte_V)
      For lZeile_Q = 5 To lLetzte_Q
         Set rZelle = .Find(WkSh_Q.Range("A" & lZeile_Q).Value, _
            LookIn:=xlValues, Lookat:=xlWhole)
         If rZelle Is Nothing Then
            If Application.WorksheetFunction.CountIf _
               (WkSh_Z.Columns(1), WkSh_Q.Range("A" & lZeile_Q).Value) = 0 Then
               WkSh_Z.Range("J" & lZeile_Z).Value = WkSh_Q.Range("A" & lZeile_Q).Value
               lZeile_Z = lZeile_Z + 1
            End If
         End If
      Next lZeile_Q
   End With
   Application.ScreenUpdating = True
End Sub

AW: mehrere Spalten mit ein Spalte vergleichen

27.06.2007 17:07:00

Karel

Hallo Peter,
makro lauft aber nicht wie ich wollte,
1. jede einzele spalte im Tabelle "vergleich" muss gepruft werden
(Anzahl Spalten ist variable kan als 4 Spalte sein.)
2. jede fehlenden wert in Spalte, muss in Tabelle "Fehlende" geschrieben werde ab spalte B, Spalte für Spalte
3. in Spalte A Tabelle "Fehlende" müssen alle fehlende werte onhe Duplikaten geschrieben werden.
Habe zur erklärung nochmal hochgeladen mit logische Daten.

Die Datei https://www.herber.de/bbs/user/43637.xls wurde aus Datenschutzgründen gelöscht

viele dank
Karel

AW: mehrere Spalten mit ein Spalte vergleichen

27.06.2007 17:51:50

Peter

Hallo Karel,
ich hoffe, dass ich deine Beschreibung jetzt verstanden habe.
Gruß Peter
https://www.herber.de/bbs/user/43639.xls

AW: perfekt danke

29.06.2007 17:05:00

Karel

Hallo Peter,
Danke genau so
Grüsse
Hans

Beliebteste Forumthreads (12 Monate)

mehrere Spalten mit ein Spalte vergleichen

Forumthread: mehrere Spalten mit ein Spalte vergleichen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

mehrere Spalten mit ein Spalte vergleichen

Forumthread: mehrere Spalten mit ein Spalte vergleichen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread