Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere Spalten mit ein Spalte vergleichen

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

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

Betreff
Datum
Anwender
Anzeige
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


Anzeige
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

Anzeige
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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige