Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Format Label - "[hh]:mm"

 Besvar Besvar
Forfatter
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15-04-2014
Land: Danmark
Status: Offline
Point: 615
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte link til dette indlæg Emne: Format Label - "[hh]:mm"
    Sendt: 14-07-2019 kl. 23:33
Hej forum.

Jeg skal formatere en Label til at vise > 24 timer.

- Denne kode virker med en TextBox i stedet for en Label. men laver fejl på .text med rødt i koden.
Tider.Label102.Text = Application.WorksheetFunction.Text(Tider.Label102, "[hh]:mm")

- Hvis jeg fjerne .Text, laver den BUG på koden, da .Text findes ikke i forbindelse med en Label.
Tider.Label102 = Application.WorksheetFunction.Text(Tider.Label102, "[hh]:mm")

Hvordan kan jeg formatere Lablen til at vise > 24 timer ?


På forhånd tak

Ib
Excel 2010 Dk og 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top



Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08-11-2013
Status: Offline
Point: 86
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér icet Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 09:47
hvordan med denne medmindre jeg bare ikke fatter hat :-)

Private Sub CommandButton1_Click()
   

     UserForm1.TextBox1.Text = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")


    UserForm1.Label1 = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")


    UserForm1.Show


   
End Sub

Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08-11-2013
Status: Offline
Point: 86
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér icet Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 08:46
dette ser ud til at gøre arbejdet


Private Sub CommandButton1_Click()

    UserForm1.TextBox1 = Format(Sheets("Ark1").Range("A2"), "hh:mm")

    UserForm1.Label1 = Format(Sheets("Ark1").Range("A2"), "hh:mm")

    UserForm1.Show

End Sub

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15-04-2014
Land: Danmark
Status: Offline
Point: 615
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 09:13
Hej icet.

Formatet "hh:mm" kan kun vise op til 24 timer.
Derfor søger jeg en formel med formatet "[hh]:mm".

Prøv at lave en simpel sammentælling af to klokkeslæt i to celler.
F.eks. 20:00 + 10:00, = 30:00 timer

I facit bruger du først Brugerdefineret Formatet "tt:mm" (dansk format i cellerne).
Her vil det beregne 06:00 timer, da den først beregner op til 24:00 hvorefter den starter forfra op til 06.00.
24:00 + 06:00 = 30:00.

Næst ændre du formatet i facit til "[tt]:mm". og så vil det beregne rigtigt = 30:00.

Jeg har en Userform med over 200 Labels., der skal vise et facit, når nogle værdier ændres.
Dem vil jeg nødig lave om til Textboxe, som kan håndtere formatet [hh]:mm, men det kan være nødvendigt.

Tak for dit input Wink

Ib



Excel 2010 Dk og 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08-11-2013
Status: Offline
Point: 86
Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér icet Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 09:47
hvordan med denne medmindre jeg bare ikke fatter hat :-)

Private Sub CommandButton1_Click()
   

     UserForm1.TextBox1.Text = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")


    UserForm1.Label1 = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")


    UserForm1.Show


   
End Sub

Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15-04-2014
Land: Danmark
Status: Offline
Point: 615
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Ib Hansen Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 09:54
Hi icet.

Denne virker Thumbs Up
UserForm1.Label1 = Sheets("Ark1").Range("A2")
UserForm1.Label1 = Application.WorksheetFunction.Text(Sheets("Ark1").Range("A2"), "[hh]:mm")

Tusind tak Big smile

Ib
Excel 2010 Dk og 2016 Dk på samme computer.
Bruger dog stadig mest 2010, da jeg syntes 2016 mangler features..
Men sådan er der jo så majet :o)
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08-11-2013
Status: Offline
Point: 86
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér icet Citér  BesvarSvar Direkte link til dette indlæg Sendt: 15-07-2019 kl. 13:40
fedt at høre SmileThumbs Up
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2019 Dansk Regneark Forum - en del af Excel-regneark.dk