Zellen suchen und kopieren

Hallo zusammen!
Ich möchte anhand einer Versicherungsnummer einen Kunden in einer Liste suchen.
Rechts und links der Nummer stehen weitere Daten des Kunden.
Beispiel:
Die ersten Versicherungsnummern stehen in der Spalte C.
Die übrigen Daten der Kunden stehen in den Spalten A, B, und D bis G.
Weitere Versicherungsnummern stehen in der Spalte L.
Die übrigen Daten der Kunden stehen in den Spalten J, K und M bis P.
Gefundene Daten aus A bis G sollen in ein Formular kopiert werden.
Das gleiche soll geschehen, wenn Daten aus J bis P gefunden werden.
Am besten wäre es, wenn man ein Userform verwenden könnte.
Ich habe über suchen und kopieren was gefunden. Die Möglichkeiten dort lösen aber leider nicht mein Problem. Meine zu durchsuchenden Daten stehen ja nicht alle untereinander.
Ich hoffe, jemand kann helfen.
Danke schon mal vorab!
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
normalerweise werden Verweise auf Zellen automatisch geändert, wenn die Zellen verschoben wurden.
Ich glaube, es ist auf Dauer auch "sauviel Arbeit", diese Tabellenstruktur so zu erhalten.
Naja, ein Ansatz:


Sub Finden()
Dim a, z As Range
a = InputBox("Kundennummer:")
Set z = Union(Range("C:C"), Range("L:L")).Find(What:=a, LookAt:=xlWhole)
If z Is Nothing Then MsgBox "Kundennummer nicht gefunden!": Exit Sub
MsgBox "S1: " & z.Offset(0, -2) & vbLf & _
"S2: " & z.Offset(0, -1) & vbLf & _
"S4: " & z.Offset(0, 1) & vbLf & _
"S5: " & z.Offset(0, 2) & vbLf & _
"S6: " & z.Offset(0, 3) & vbLf & _
"S7: " & z.Offset(0, 4)
End Sub

Gruß Matthias

Sub xyz() Dim I&, J&, LetzteZeile& Dim ZuSuchen& LetzteZeile = Cells.SpecialCells(xlCellTypeLastCell).Row ZuSuchen = 12345 For I = 1 To LetzteZeile If Cells(1, 3) = ZuSuchen Then UserForm1.TextBox1 = Cells(I, 1) UserForm1.TextBox2 = Cells(I, 2) UserForm1.TextBox3 = Cells(I, 4) UserForm1.TextBox4 = Cells(I, 5) UserForm1.TextBox5 = Cells(I, 6) UserForm1.TextBox6 = Cells(I, 7) Exit For End If If Cells(1, 12) = ZuSuchen Then UserForm1.TextBox1 = Cells(I, 10) UserForm1.TextBox2 = Cells(I, 11) UserForm1.TextBox3 = Cells(I, 13) UserForm1.TextBox4 = Cells(I, 14) UserForm1.TextBox5 = Cells(I, 15) UserForm1.TextBox6 = Cells(I, 16) Exit For End If End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen suchen und kopieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread