Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten suchen und kopieren

Daten suchen und kopieren
25.10.2005 15:13:37
Waechter
Hallo,
folgendes Problem:
im Sheet1 gebe ich in eine Zelle (A1) eine Zahl ein. Jetzt soll diese Zahl in Spalte A des Sheet2 gesucht werden. Der dazugehörige Wert aus Spalte B (gleiche Zeile wie der gefundene Wert) soll in Sheet1 in A2 eingetragen werden. Das Ganze nochmal für Spalte C Sheet2 nach Sheet1 A3 usw.
Habe im Forum nichts wirklich Passendes gefunden.
Danke für Hilfe.
Gruss
Stefan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten suchen und kopieren
25.10.2005 16:04:29
Beni
Hallo Stefan,
kopiere diesen Code in das Modul des Sheet1.
Gruss Beni

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wert As Variant
If Not Target.Address(False, False) = "A1" Then Exit Sub
Wert = Cells(1, 1)
Set c = Sheets("Sheet2").Columns(1).Find(What:=Wert, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
Cells(2, 1) = c(1, 2)
Cells(3, 1) = c(1, 3)
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige