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

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

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
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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige