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

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige