Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte vergleichen und in anderes Blatt kopieren

Forumthread: Werte vergleichen und in anderes Blatt kopieren

Werte vergleichen und in anderes Blatt kopieren
19.10.2004 11:07:52
Dirk
Hallo Excelisten,
ich möchte per VB Werte kopieren wenn bestimmte Zahlen sich gleichen.
z.B. Wenn Wert A1 in Blatt1 = Wert A1 in Blatt2 dann kopiere Text aus A2 Blatt1 in A2 Blatt2 usw. Bin eher VB ahnungslos...
Gruß
Dirk
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte vergleichen und in anderes Blatt kopieren
19.10.2004 19:16:16
Beni
Hallo Dirk,
so würde das gehen.
Gruss Beni

Sub Dirk()
If Sheets(1).Cells(1, 1) = Sheets(2).Cells(1, 1) Then
Sheets(1).Cells(2, 1).Copy Sheets(2).Cells(2, 1)
End Sub

AW: Werte vergleichen und in anderes Blatt kopieren
20.10.2004 08:42:01
Dirk
Hi Beni,
Danke für den Tip. Allerdings können im Sheet in das kopiert wird, Werte mehrfach vorkommen. Ich hab mal ein Beispiel angehängt.

Die Datei https://www.herber.de/bbs/user/12345.xls wurde aus Datenschutzgründen gelöscht

Gruß
Dirk
Anzeige
AW: Werte vergleichen und in anderes Blatt kopieren
20.10.2004 18:21:48
Beni
Hallo Dirk,
Gruss Beni


Sub Dirk()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Wert = Cells(i, 1)
Set c = Sheets("Ausgangsdaten").Cells.Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("Zieldaten").Cells(i, 2) = c(1, 2)
Sheets("Zieldaten").Cells(i, 3) = c(1, 3)
End If
Next i
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige