Hallo VBA-ler,

meine Situation ist folgende:

durch eine Userform filtere ich nach einem Projekt. (es wird automatisch auf dem bildschirm angezeigt obwohl die userform noch offen ist).

Nun sollen die werte der letzten (oder auch ersten) Zeile in die textboxen der Userform übernommen werden! Eine weiteres kriterium ist, dass nicht die "3." Spalte in die Textbox übernommen werden soll, sondern die Spalte "Kunden" (namen wurden schon definiert).

Private Sub cboProjekt_Change()
Dim c As Long
Dim last As Long
Dim a As Long
Dim f As Long


    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    c = Range("Projekt").Column
    a = Range("Kunde").Column
     f = Range("SOP").Column
'.ListObjects("Projekt").Range.AutoFilter Field:=3, Criteria1 _
 '       :=cboProjekt.Value  'field: soll dynamisch sein
 ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=c, _
 Criteria1:=cboProjekt.Value
 

       ActiveSheet.Cells(last, a).Value = frmNe.cboKunde
         ActiveSheet.Cells(last, f).Value = frmNe.txtSOP 'die Userform ist frmNe
 
 

End Sub

Bis jetzt werden die werte leider nicht in die Userform übernommen.

Habt ihr Ideen, wie das gehen könnte?