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

Matrix

Matrix
20.08.2007 08:42:03
Torsten
Moin Moin,
habe folgendes Problem, womit ich nicht weiterkommen.
In der Spalte A habe ich Versichertennummern hinterlegt und in der Spalte F sind ebenfalls Versichertennummern hinterlegt jedoch in einer anderen Reihenfolge. In den Spalten B+C+D sind Patientenummer+Name+Vorname abgelegt.
Nun möchte ich, dass Excel die Versichertennummer aus F1 nimmt, diese dann in der Spalte A sucht, wenn diese gefunden worden ist, soll Excel die dazugehörigen Werte aus B+C+D (Partientennr.+Name+Vorname) in die Spalten G+H+I eintragen.
Wie mache ich das sinnigerweise?
Vielen Dank im voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: Matrix
20.08.2007 08:44:40
ede
guten morgen,
dafür geht die funktion sverweis!
=sverweis(F1;A1:D99;2;0)
gruss

AW: Matrix
20.08.2007 09:09:31
Herby
Hallo Torsten,
oder wenns per Makro sein soll:

Sub suchenundkopieren()
Dim i As Long
Dim lZ1 As Long
Dim lZ2 As Long
Dim c
lZ1 = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
lZ2 = ActiveSheet.Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Row
For i = 2 To lZ2
With ActiveSheet.Range("A2:A" & lZ1)
Set c = .Find(ActiveSheet.Cells(i, 6), LookIn:=xlValues)
If Not c Is Nothing Then
ActiveSheet.Cells(i, 7) = c.Offset(0, 1)
ActiveSheet.Cells(i, 8) = c.Offset(0, 2)
ActiveSheet.Cells(i, 9) = c.Offset(0, 3)
End If
End With
Next i
End Sub


Viele Grüße
Herby

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige