Thema Datum  Von Nutzer Rating
Antwort
25.04.2014 09:51:58 Ender
NotSolved
Blau Spalten vergleichen
 25.04.2014 13:57:49 Gast58825
Solved
29.04.2014 15:06:26 Gast48229
NotSolved
29.04.2014 17:52:15 Gast81547
Solved

Ansicht des Beitrags:
Von:
Gast58825		 Datum:
25.04.2014 13:57:49		 Views:
794		 Rating:
     
Antwort:
 Nein
Thema:
Spalten vergleichen

Option Explicit

Sub Vgl()
Const qTab As String = "Tabelle1"   'Blattname Quelle
Const zTab As String = "Tabelle2"   'ditto Ziel
                                    'beides in EINER Datei !
                                    
Const qSp As Long = 1               'Quellspalte Nr. ( 1- Const qSp As Long = 1)
Const zSp As Long = 2               'Zielspalte ditto

Dim qRng As Range                   'Quelle beschriebener Bereich
Dim zRng As Range                   'Ziel ditto
Dim c As Range, z As Range

  Set qRng = Sheets(qTab).Cells(1, qSp)       'Beginn Quelle
  Set qRng = Range(qRng, qRng.End(xlDown))    ' bis kein Wert mehr in Quellspalte
 
  Set zRng = Sheets(zTab).Cells(1, zSp)       'Ziel ditto
  Set c = Sheets(zTab).Cells(Rows.Count, zSp)
  Set z = c.End(xlUp)                         'letzer Wert Zielspalte
  Set zRng = Range(zRng, z)                   ' Zielspalte untersuchen
 
  For Each c In qRng
    If zRng.Find(c.Value) Is Nothing Then
    ' Möglichkeit2: Befindet sich der Wert von Spalte1 NICHT in Spalte2
    
      Set z = z.Offset(1, 0)                  ' und unten drunter in Spalte 2
      c.Copy Destination:=z                   'kopiert wird (mit Eigenschaften!)
      'oder
      'z.Value = c.Value                      'kopiert wird (nur Werte)
    End If
  Next c                                      'Danach soll es den nächsten Wert von Spalte1 nehmen
 
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.04.2014 09:51:58 Ender
NotSolved
Blau Spalten vergleichen
 25.04.2014 13:57:49 Gast58825
Solved
29.04.2014 15:06:26 Gast48229
NotSolved
29.04.2014 17:52:15 Gast81547
Solved