nach langem Suchen und ausprobieren habe ich endlich einen passenden Programmcode gefunden der mich bei meinem Problem schon ein gutes Stück weitergebracht hat.
Mein Problem war das ich wenn man eine bestimmte Zahl eingibt er dann auf einer anderen Seite 2 Spalten ausliest. In der einen stehen die Zahlen die er auslesen soll in der anderen der Text den er rüber kopieren soll.
Das hab ich bereits schon:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 1 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Tab1").Columns("A:B"), 1, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Tab1").Columns("A:B"), 2, 0)
Rem Target.Offset(1, 1) = .VLookup(Target.Value, _
rem Worksheets("Tab1").Columns("A:B"), 2, 1)
End If
End With
End Sub
Das funktioniert auch echt super. Mein einziges Problem ist jetzt noch das wenn ich z.B. 102 eingebe, er mir nur den ersten Text mit der Nummer 102 ausgibt. Die anderen verheimlicht er mir.
Ich habe um dieses Problem zu lösen an eine Schleife gedacht allerdings hab ich keine Ahnung wie man die Programmieren könnte.
Daher meine Frage hatte jemand schon so ein Problem und kann mir dabei helfen?
Im voraus schon einmal vielen Dank für eure Bemühungen.