Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenvergleich

Tabellenvergleich
21.01.2004 11:37:29
Detlef
Hallo Profis,
ich habe zwei Excelmappen die ich auf
genau identische Wörter jeweils in Spalte D
vergleichen möchte. Bei Übereinstimmung des
Textes in Spalte D, sollte dann in beiden Mappen
in Spalte A in der gleichen Zellreihe ein aufsteigende
Zahl angelegt werden. Die Zahl sollte in beiden Mappen
identisch sein. Bei der nächsten gefundenen übereinstimmung
sollte sich die Zahl in Spalte A immer um eins erhöhen.
Hat jemand eine Idee wie dies per VBA lösen kann ?
Gruss Detlef

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenvergleich
21.01.2004 13:04:52
Kladeb
Hallo Detlef,
vielleicht geht das mit diesem Makro:
*-- Schnipp
Option Explicit

Sub TextVergleich()
Dim rBlatt1 As Range, rBlatt2 As Range
Dim vText1 As Variant, vText2 As Variant
Dim nZaehler As Integer
Set rBlatt1 = ActiveWorkbook.Sheets("Tabelle1").Range("D1:D12")
Set rBlatt2 = ActiveWorkbook.Sheets("Tabelle2").Range("D1:D12")
nZaehler = 0
For Each vText1 In rBlatt1
For Each vText2 In rBlatt2
If vText1 = vText2 Then
nZaehler = nZaehler + 1
vText1.Offset(0, -3) = nZaehler
vText2.Offset(0, -3) = nZaehler
Exit For
End If
Next
Next
End Sub

*-- Schnapp
Gruss aus Hannover
Kladeb
http://www.Bieler.org
Anzeige
AW: Tabellenvergleich
21.01.2004 13:34:48
Detlef
Besten Dank,
funktioniert !

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige