Habe in meiner Vorlage die Möglichkeit, schon einmal eingegebene und gespeicherte Werte wieder aufzurufen. Seitdem ich das Auswahlkriterium von Projektname in Position umgewandelt habe geht leider nichts mehr. Kann eigentlich nur an dieser Zeile hängen. Find aber einfach nicht meinen Fehler. Hat ja vorher auch funktioniert. Hoffe andere Augen finden meinen kleinen Fehler.
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