Userform og label. kan man få vist en celle og noget tekst

Her er et eksempel:
Label1.Caption = Sheets(1).[A1]

Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").range.("D14")

Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").range("D14")

det virker som det skal tak for det

hvem skal have point. ?

det må være kabbak, da det var som jeg brugte

så får du et svar. ;-))

Men det ser ud til at der er en lille mangel, for jeg skal trykke på feltet for at den bliver opdateret. og det skulle gerne være sådan at den bliver opdateret, hvis der sker ændringer.

kan du ændre i arket, mens formen er aktiv, eller gør du det fra formen. ?

ja det kan jeg, for der er en række textboxe hvor der bliver sat nogle oplysninger ind, hvor efter at den regner bruttoarealet ud.

ok, sæt denne ind i ThisWorkbook modulet, ret userform navn og labelnavn til dine navne.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
UserForm1.Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").Range("D14")
End Sub

jeg ved ikke lige hvad det er jeg går forkert for der sker ikke noget

Public Sub huse()
uhusoversigt.Show
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
uhusoversigt.Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").Range("f14")
End Sub

der skulle helst ske noget, laver excel ikke en udregning, d.v.s. at du har en formel så arket laver udregningen. hvis du ikke har en formel, behøver arket jo ikke at regne, og så udføres subben ikke.

jeg syntes at du skriver F14 , har du flyttet celle. ?

når jeg køre min userform er der et blankt felt der hvor min label er, men når jeg trykker der hvor der er tomt så kommer det frem

Public Sub huse()
uhusoversigt.Show
uhusoversigt.Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").Range("f14")
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
uhusoversigt.Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").Range("f14")
End Sub


sådan, så skulle det være på plads.

husk at denne SKAL ligge i modulet ThisWorkbook, ellers virker den ikke.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
uhusoversigt.Label1.Caption = "Det samlede bruttoareal er " & Sheets("ark3").Range("f14")
End Sub

nu kommer det frem med det samme, men den bliver ikke opdateret når jeg ændre nogle tal, og den så laver en udregning. kan det være fordi at jeg har lavet udregningen i selve ark3?

kan det være at det er næmmer at lave det i en textbox og så bare slå tabstop fra?

Neh det skal virke, jeg har en test her, bare jeg ændrer et tal kommer den med den nye værdi.

Jeg har tekstbokse for længede og bredde og så en formel i D14, der udregner arealet.

, så det virker fint her.

det kan jeg ikke forstå. men hvis du har tid så laver jeg lige et nyt spørsmål

du kan også lave det hele i formen

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' længde
If TextBox1 <> "" And TextBox2 <> "" Then
Label1.Caption = "Det samlede bruttoareal er " & TextBox1 * TextBox2
End If
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' bredde
If TextBox1 <> "" And TextBox2 <> "" Then
Label1.Caption = "Det samlede bruttoareal er " & TextBox1 * TextBox2
End If
End Sub

prøv at sende arket.

sendtil#kabbak@tiscali.dk

fjern sendtil#

jeg tror at jeg har forklaret det lidt klosset, for det som jeg har er 8 textboxe hvor der bliver skrevet bruttoarealet, som så bliver lagt sammen, ved at de bliver ført ind i ark3 hvorefter de bliver lagt sammen. grunden til at jeg gør det på den måde er at oplysningerne skal bruges flere gange i nogle andre ark.

ok, men du må stadigvæk gerne sende

det er sendt

du har lagt koden i modul1 den SKAL være i ThisWorkbook modulet

er sendt retur

de er bare super jeg laver lige et nyt spørsmål til den samme userform