Microsoft Excel

Herbers Excel/VBA-Archiv

Spalten Vergleichen in 2 Arbeitsblättern und farbi | Herbers Excel-Forum


Betrifft: Spalten Vergleichen in 2 Arbeitsblättern und farbi von: meik
Geschrieben am: 07.02.2012 19:40:23

Hallo zusammen,

nachfolgend ein Makro von dieser Seite, klappt alles ganz gut, wenn ich Spalte A von Tabellenblatt 1 und
Spalte A von Tabellenblatt 2 vergleiche.

Ich bekomme es einfach nicht hin, wenn ich z.B. Spalte H von Tabellenblatt 2 mit Spalte B von Tabellenblatt
vergleichen will, kann mir jemand helfen?

Vielen Dank für eure Hilfe.

Sub Vergleich()
   Dim rng As Range
   Dim lRow As Long, lRowT As Long
   Dim iCol As Integer
   Dim bln As Boolean
   Set rng = Worksheets("Tabelle2").Range("A1").CurrentRegion
   For lRow = 1 To Range("A1").CurrentRegion.Rows.Count
      bln = True
      For lRowT = 1 To rng.Rows.Count
         For iCol = 1 To 4
            If Cells(lRow, iCol) <> rng(lRowT, iCol) Then
               bln = False
               Exit For
            End If
         Next iCol
         If bln = True Then
            Exit For
         ElseIf lRowT < rng.Rows.Count Then
            bln = True
         End If
      Next lRowT
      If bln = False Then
         Range(Cells(lRow, 1), Cells(lRow, 4)).Interior.ColorIndex = 6
      End If
   Next lRow
End Sub
Gruß Meik

  

Betrifft: AW: Spalten Vergleichen in 2 Arbeitsblättern und farbi von: JoWE
Geschrieben am: 07.02.2012 19:47:15

Halo Meik,

Schau Dir mal diese Seite an:
http://www.digital-inn.de/excel-l-sungsarchiv/31323-vba-tabellen-vergleichen-einmal-anders-excel-als-isam-datenquelle-datenbank.html

habe damit nur gute Erfahrungen gemacht.
Gruß
Jochen


  

Betrifft: AW: Spalten Vergleichen in 2 Arbeitsblättern und farbi von: meik
Geschrieben am: 07.02.2012 19:54:14

Hallo Jochen,

danke für den Link, ist aber glaube ich nicht was ich mir vorstelle.

Trotzdem Danke

Gruß Meik


Beiträge aus den Excel-Beispielen zum Thema "Spalten Vergleichen in 2 Arbeitsblättern und farbi"