opdater label på userform

du kan vel bare sætte opdatering af labels ind i den sub der skriver til arket
fx i bunden af din Sub CmdAdd_Click

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Medlemmer")

'find  første tomme row i database'
iRow = ws.Cells(ws.Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check for  part nummer'
If Trim(Me.txtPart.Value) = "" Then
  Me.txtPart.SetFocus
  MsgBox "Indtast et id nr"
  Exit Sub
End If

'copy de data til database'
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtNavn.Value
ws.Cells(iRow, 3).Value = Me.txtEfternavn.Value
ws.Cells(iRow, 4).Value = Me.txtAdresse.Value
ws.Cells(iRow, 5).Value = Me.txtPostnr.Value
ws.Cells(iRow, 6).Value = Me.txtBy.Value
ws.Cells(iRow, 7).Value = Me.txtCprnr.Value
ws.Cells(iRow, 8).Value = Me.txtMailAdresse.Value

'clear textboxe data'
Me.txtPart.Value = ""
Me.txtNavn.Value = ""
Me.txtEfternavn.Value = ""
Me.txtAdresse.Value = ""
Me.txtPostnr.Value = ""
Me.txtBy.Value = ""
Me.txtCprnr.Value = ""
Me.txtMailAdresse.Value = ""
Me.txtPart.SetFocus
Me.Label10.Caption = Application.WorksheetFunction.Large(Sheets("Medlemmer").Range("A2:A170"), 1)
Me.Repaint  'måske unødvendig
End Sub

Hej bak

man skal ikke bare kigge til sin næse tip.
jeg stirret mig blind på label,
og tænkte ikke på at man kunde sætte det ind et andet sted.
men jeg har et problem når jeg går fra userform1 til userform2,
jeg har nogle label på userform2 jeg gerne vil have tændt når jeg åbner userform2 fra
userform1, jeg har prøvet at sætte
Me.Label10.Caption = Application.WorksheetFunction.Large(Sheets("Medlemmer").Range("A2:A170"), 1) ind
ved den knap jeg oppen userformen med.
det virker ok vis knappen sider på den userform hvor label er.
og når jeg starter excelfilen starter en userform op hvor der er label på, der har jeg lavet en opdater knap for at få hændet fra ark
kan man sætte noget ind når man starter userformen

mvh

mvhansen

prøv at indsætte denne sub under UserForm2

Private Sub UserForm_Activate()
Me.Label10.Caption = Application.WorksheetFunction.Large(Sheets("Medlemmer").Range("A2:A170"), 1)
End Sub

Fint bak
jeg hade en anden Private Sub under userform2
så jeg hade prøvet at sætte dette ind
i den jeg hade
Me.Label10.Caption = Application.WorksheetFunction.Large(Sheets("Medlemmer").Range("A2:A170"), 1)
End Sub

jeg trode ikke at man kunde have
flere Private Sub under userform2
jeg ved ikke hvad jeg tænkte på
men det virker nu
smid et svar
så får du mange tak for hjælpen

mvh

mvhansen

ok :-)