Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vergleichen und überschreiben

vergleichen und überschreiben
24.06.2005 12:39:42
Alexander
hallo zusammen,
ich hoffe, daß mir hier jemand helfen kann.
folgendes problem:
ich habe 2 tabellen, möchte spalte "a" der tabelle1 mit spalte "c" der tabelle2 vergleichen.
falls eine übereinstimmung herrscht, so soll die ganze zeile, in der der wert von tabelle1 steht, mit dem von tabelle2 überschrieben werden.
hätte mir jemand einen rat, wie ich dies in VBA umsetzen kann?
grüße und evt. dank im voraus,
Alexander

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

Betreff
Datum
Anwender
Anzeige
AW: vergleichen und überschreiben
24.06.2005 14:32:13
IngGi
Hallo Alexander,
so zum Beispiel?

Sub kopieren()
Dim rngTab1 As Range, rngTab2 As Range
For Each rngTab1 In Sheets("Tabelle1").Range("A1:A" & Range("A65536").End(xlUp).Row)
Set rngTab2 = Sheets("Tabelle2").Columns("C:C").Find(What:=rngTab1, Lookat:=xlWhole)
If Not rngTab2 Is Nothing Then
rngTab2.EntireRow.Copy Destination:=rngTab1.EntireRow
End If
Next rngTab1
End Sub

Gruß Ingolf
AW: vergleichen und überschreiben
27.06.2005 17:10:04
Alexander
Hallo Ingolf,
vielen dank für den tip!
er hat mir sehr weitergeholfen!
merci!
Alexander!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige