txtfelt i formular. Hent værdi fra sidst udfyldte celle.

Jeg fandt løsningen på første del af problemet,
txtBruger.Text = Range("D11").End(xlUp)

så er der bare tilbage, hvis D11 er udfyldt, er der ikke plads til flere navne ??

Kan du bruge denne:

Dim rng As Range
Dim rw As Integer

rw = Range("D12").End(xlUp).row

Select Case rw
    Case 11
        MsgBox "Ikke plads"
    Case 10
        txtBruger.Text = Range("D10").Text
    Case 9
        txtBruger.Text = Range("D9").Text
End Select

Skal du ikke bruge værdien i D11?

Du kan evt lave det sådan:

  Case 11
    txtBruger.Text = Range("D11").Text
    Msgbox "Ikke yderligere plads"
  Case ...

Jeg prøver: jo jeg skal bruge D11, men ikke D12.

Der skal være luft mellem hvor du starter din søgning. Derfor D12. Bruger du D11 finder den D9!

Jeg bruger denne til at indsætte navn i arket. jeg kan ikke se hvodan jeg placerer dit forslag?

Worksheets("Ark1").Activate
C = 4
Do Until Worksheets("Ark").Cells(C, 4) = ""
C = C + 1
  Loop
Cells(C, 4) = NyBrugert.txtBruger.Value

Placer en button i din useform2 og smid koden ind i _Click proceduren. Det er jo den du oplyser skal bruge værdien!

Der bliver ikke sat navn ind nogen steder!
Det jeg anvendte var,

Dim rng As Range
Dim rw As Integer

rw = Range("D12").End(xlUp).Row

Select Case rw
    Case 11
    txtBarvagt.Text = Range("D11").Text
    MsgBox "Ikke yderligere plads"
    Case 10
        txtBarvagt.Text = Range("D10").Text
    Case 9
        txtBarvagt.Text = Range("D9").Text
End Select

Jeg skal lige oplyse at D12 ikke er tom, har det betydning

Ja, det har betydning. Men prøv lige at sig om jeg har forstået dig rigtigt.

Det du kalder en formular har jeg tydet som en form. Du har en userform1 hvor du i en textbox indtaster et navn som herefter placeres i enten D9, D10 eller D11 og en userform 2 som du vil bruge til at hente den nederste værdi i D9 - 10 og placere i txtBruger (som er placeret i userform2). Korrekt?

Rigtigt

Med din hjælp lykkedes det, den tomme plads på D12 gjorde at det jg havde prøvet selv, nu virkede, der skal nogle gange småting til tak for hjælpen.

Userform2 kom til at se sådan ud

txtBarvagt.Text = Range("D12").End(xlUp)

Userform1 sådan

Dim C As Variant

Læg et svar de point er til dig.
If Range("D11") = "" Then

Worksheets("Kasse").Activate
C = 4
Do Until Worksheets("Kasse").Cells(C, 4) = ""
C = C + 1
  Loop
Cells(C, 4) = NyBarvagt.txtBarvagt.Value
Else
MsgBox "Ikke yderligere plads"
End If
txtBarvagt.Value = ""

Prøv denne i userform2 - button click proceduren. Regner med du har txtBarVagt i  userform2.

Dim rw As Integer

For rw = 11 To 9 Step -1
    If Cells(rw, 4).Value <> "" Then
        If rw = 11 Then
            txtBarVagt.text = Cells(rw, 4).Value
            MsgBox ("Ingen yderligere plads")
            Exit For
        Else
            txtBarVagt.text = Cells(rw, 4).Value
            Exit For
        End If
    End If
Next rw

læg et svar........, er ikke en del af koden :0)

Du skal ikke give point hvis du ikke er blevet hjulpet! Hvad er problemet!

Igen tak: prøver den imorgen (Sengetid), det er altid rart med flere muligheder. Om ikke andet så til en anden gang.
jeg skal gi´besked om den også virker.

Eller spørger du bare! Godnat!

Problemet er løst: løsningen du hjalp mig frem til er 22:28:58.

OK - du får så et svar :-)

Tak