SVerweis Suchkriterium im Zeilenumbruch

Hallo zusammen,
ich habe im Internet schon etwas nachgelesen, allerdings das ganze nicht so sehr geschnallt.
Ich habe eine einzelne Zeller, in der mehrere Dinge stehen - die Dinge werden durch einen Zeilenumbruch voneinander getrennt.
Das passiert mittels VBA Code zuvor (& vbCrLf &)
Jetzt würde ich gerne einen SVerweis daraus bilden - also die einzelnen Zeilen der Zelle sind meine Suchkriterien ... Sprich in der Zelle C2 Soll dann das dafür passende Ergebnis der ersten Zeile der Zelle A2:B10 stehen.
In der Zelle C3 dann dementsprechend das passende Ergebnis der zweiten Zeile aus der Zelle A2:B10 ....
Ich bin leider nicht so sehr fit in Excel - leider kapiere ich das nicht. Ich weiß nicht mal ob das so einfach möglich ist.
Bin um jeden Tipp dankbar :-)
LG Kevin
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim i As Integer With UserForm1.ListBox_Auswahl For i = 0 To .ListCount - 1 If .Selected(i) Then If Cells(last, 3).Value = "" Then Cells(last, 3).Value = .List(1) Else Cells(last, 3).Value = Cells(last, 3).Value & " / " & vbCrLf & .List(i) End If Else 'fertig End If Next i End With

Dim i As Long With UserForm1.ListBox_Auswahl For i = 0 To .ListCount - 1 If .Selected(i) Then With Worksheets("DeinTabellenblatt") .Cells(.Cells(.Rows.Count, 3).End(xlUp).Offset(1).Row, 3) = _ UserForm1.ListBox_Auswahl.List(i) End With End If Next i End With

Dim i As Long With UserForm1.ListBox_Auswahl For i = 0 To .ListCount - 1 If .Selected(i) Then With Worksheets("Tabelle2") .Cells(.Cells(3, Columns.Count).End(xlToLeft).Offset(1).Column, 4) = _ UserForm1.ListBox_Auswahl.List(i) End With End If Next i End With

Public Sub aaa() Dim i As Long With UserForm1.ListBox_Auswahl For i = 0 To .ListCount - 1 If .Selected(i) Then With Worksheets("Tabelle2") .Cells(3, .Cells(3, .Columns.Count).End(xlToLeft).Offset(, 1).Column) = _ UserForm1.ListBox_Auswahl.List(i) End With End If Next i End With End Sub

Sorry, ich nochmal :-D
Erstmal besten Dank - das hilft mir schon super weiter! :-)
Nur habe ich jetzt das Problem, dass er in der Zeile weiter schreibt wenn ich die Listbox nochmal ausführe.
Ich hätte gerne, dass er dann in die nächste Zeile springt.
Stimmt das dann wenn ich das davor schreibe? bzw. na welche Stelle muss das dann?

Dim last As Integer
Worksheets("Tabelle2").Activate
last = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1


Dim i As Long
With UserForm1.ListBox_Artikel
Worksheets("Auswahl").Activate
last = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
For i = 0 To .ListCount - 1
If .Selected(i) Then
With Worksheets("Tabelle2")
.Cells(3, .Cells(3, .Columns.Count).End(xlToLeft).Offset(, 2).Column) = _
UserForm1.ListBox_Auswahl.List(i)
End With
End If
Next i
End With

Habe das so getestet, aber funktioniert leider nicht - er schreibt immernoch hintereinander
Danke dir
Gruß
Kevin

Dim i As Integer Dim Ze as long Dim Sp as long '--- Startzelle festlegen: C4 (Spalte C = 3) Ze = 4 Sp = 3 With UserForm1.ListBox_Auswahl For i = 0 To .ListCount - 1 If .Selected(i) Then Cells(Ze, Sp).Value = .List(i) 'Ze = Ze + 1 'nächste Zeile Sp = Sp + 1 'nächste Spalte End If Next i End With

Beliebteste Forumthreads (12 Monate)

SVerweis Suchkriterium im Zeilenumbruch

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVerweis Suchkriterium im Zeilenumbruch

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread