Label i UserForm opdateres ikke!

Hvor har du placeret koden "lblADato.Caption = "Seneste ...." ?

Under UserFormen

I Private Sub UserForm_Initialize()

prøv at sætte den under

Private Sub UserForm_Activate()

Jamen, så udføres handlingen jo kun når userformen initialiseres, dvs, når formen åbnes!

Hvornår har du tænkt dig at opdateringen skal ske ? Du kan gøre det på mange forskellige måder!

JEg vil gerne have at den skal opdatere hver gang jeg foretager ændringer til de informationer der står på formen.

Eksempelvis har jeg en periode der kan ændres 1, 2, 3, 6 eller 12 mdr.

Jeg har indsat en ComboBox med valgmulighederne i og som standard sat Comboboxen til at være Enabled = False (ikke aktiv). Ved at klikke på en CommandButton ved siden af foretages følgende handling:

Public SkiftGem as String

Private Sub cmdSkift_Click()
If SkiftGem = "Skift" Then
    CbbPeriode.Enabled = True
    cmdSkift.Caption = "Gem"
    SkiftGem = "Gem"
End If

If SkiftGem = "Gem" Then
    CbbPeriode.Enabled = False
    cmdSkift.Caption = "Skift"
    SkiftGem = "Skift"
End If
End Sub

Jeg tager hjem nu men vender tilbage når jeg er kommet hjem fra arbejde.

Tak for hjælpen til nu.

Det kunne måske være logisk hvis du opdaterede cellen når du foretog et valg i comboboxen. Men du kan jo placere koden der udløser handlingen forskellige steder.

Lav først en sub i et modul fx:

Sub Tidspunkt()
    ActiveSheet.Range("ADato").Formula = "=NOW()"
End Sub

Koden der udløser ovennævnte kan som nævnt placeres forskellige steder  og ved forskellige handlinger. Herunder vist når du ændrer valg i comboboxen:

Private Sub ComboBox1_Change()
    Tidspunkt
End Sub

Det ku' også være i en knap:

Private Sub CommandButton1_Click()
    Tidspunkt
End Sub

Hej brynil

Jeg har vist ikke helt forklaret mig godt nok.

Jeg har indsat nedenstående kode i den makro der foretager en kørsel i arket. Det er tidspunktet for den seneste kørsel jeg vil have vist i min UserForm.

Range("ADato").Value=Now() 'det er ikke funktionen NU() den indsætter men datoværdien

Mit problem er at den dato som indgår i min:
lblADato.Caption = "Seneste kørsel blev foretaget den " & vbCrLf & Range("ADato").Value

Ikke opdateres når jeg har foretaget en ny kørsel. Den viser den dato som UserFormen første gang blev åbnet med.

Kan man ikke resette alle varialber i en UserForm, så de efterfølgende kan blive ajourført/opdateret?

Problemet er, at din opdatering af arket ikek trigger en hændelse i Userformen. Du er derfor nok nødt til at lade makroen, der udfører pdateringen af arket, opdatere userformen også.  Fx noget i stil med

Userform1.lblADato.Caption = "Seneste kørsel blev foretaget den " & vbCrLf & Range("ADato").Value

Efter at du har opdateret Adato.

-> jkrons

Det virker!!!!

Jeg har indsat

Userform1.lblADato.Caption = "Seneste kørsel blev foretaget den " & vbCrLf & Range("ADato").Value

i sub'en og nu virker det som det skal - TAK

Smider du et svar?

Velbekomme!