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

Tabellen vergleichen

Tabellen vergleichen
10.11.2003 20:51:16
Erich M.
Hallo zusammen,

habe aus dem Forum ein Makro kopiert (weiss
aber nicht mehr welcher Beitrag) und habe folgendes Problem.

Das Makro läuft wenn ich im Modul nicht mit "Option Explicit"
beginne. Wenn ich "Option Explicit" voranstelle (was ich
generell mache, da ich meistens mehrere Makros in einem Modul
habe), find ich nicht heraus wie ich "c" definieren muss
(As ...) --> Objekt erforderlich?

Wie muss ich "c" bezeichnen?


Sub Tabelle_vergleichen()
Dim lastrow As Integer, i As Integer, Wert As Integer, c As ??
Sheets("T1").Activate
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Wert = Cells(i, 1).Value
With Sheets("T2").Columns(1)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If Cells(i, 2) = c(1, 2) Then
Cells(i, 3) = c(1, 3)
End If
End If
End With
Next i
End Sub


Besten Dank für eine Hilfe!

mfg
Erich

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen vergleichen
10.11.2003 20:54:30
Hajo_Zi
Hallo Erich

As Range

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


DANKE - Hajo; schnelle Antwort und perfekt! o.T.
10.11.2003 21:14:18
Erich M.
.
AW: Dim c As Range - oT
10.11.2003 21:13:54
FP
.
DANKE zum 2.!! (o.T.)
10.11.2003 21:15:32
Erich M.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige