Martin
https://www.herber.de/bbs/user/88367.xlsm
'Jetzt in Datenbank suchen, welche Position gewählt wurde und die anderen Werte anzeigen
Dim wsD As Worksheet
Set wsD = Worksheets("Datenbank")
Dim wsW As Worksheet
Set wsW = Worksheets("Wandmaße")
LoLetzte2 = wsD.Cells(Rows.Count, 2).End(xlUp).Row
a = 2
For a = 2 To LoLetzte2
If wsD.Cells(a, 2).value = PosComboBox.value Then
wsW.Cells(1, 4).value = wsD.Cells(a, 1).value 'Projekt
wsW.Cells(1, 10).value = wsD.Cells(a, 3).value 'Seite