Print side | Luk vindue

VBA - simpel kode hjælp

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4220
Udskrevet den: 03.Maj.2024 kl. 00:19


Emne: VBA - simpel kode hjælp
Besked fra: RingoStarLight
Emne: VBA - simpel kode hjælp
Posteringsdato: 28.Mar.2020 kl. 21:06

Hej Forum,

Jeg har ikke mulighed for at vedhæfte det originale ark, derfor en kopi af som viser eksempel på mit mine to Problemer og en hjælp.

Min simple kode ser således ud:

Private Sub CommandButton1_Click()

Range("Ark1!C2") = Format(tbFstart, "MM-DD-YYYY")
Range("Ark1!E2") = Format(tbFslut, "MM-DD-YYYY")
Range("Ark1!C3") = Format(tbKurs, standard)
Range("Ark1!C4") = Format(tbAfgift, standard)
Range("Ark1!C5") = Format(tbPbank, standard)
Range("Ark1!C6") = Format(tbUbank, standard)

'Indsæt værdi fra celle B9 i tekstboks: GRANDDATO
'Indsæt værdi fra celle B11 i tekstboks: GRANDBANK

End Sub

Formularen hedder: UserForm1.

Problem 1: Decimaltal (tbPbank og tbUbank)

Tastes der et helt tal f.eks. 123, så fungere alt OK. Taster jeg derimod decimaler f.eks. 123,12 så virker det ikke. Cellen i selve regnarket anser tallet som tekst.

Jeg er ikke interesseret i at der kommer valutasymbol f.eks. ’Kr.’

Problem 2: Procent (tbKurs og tbAfgift)

Jeg her bekendt med at Format(XXX, Percent), men den ganger det indtastede med 100. Skrives 2  fremkommer værdien 200 i celle C3/C4.

Hjælpen: Trække data fra ARK til formular

I formularen har jeg 2 Textbokse – Jeg tror det er det jeg skal bruge.

I de to textbokse (GRANDDATO og GRANDBANK) ønskes at værdien fra celler celle B9 og B11.

På forhånd tak for hjælpen.

uploads/1637/Userform.xlsm" rel="nofollow - uploads/1637/Userform.xlsm




Svar:
Besked fra: nsv
Posteringsdato: 29.Mar.2020 kl. 10:53
Ang. punkt 1, så falder det mig ind, at arket måske er sat op til decimalpunktum.
Har du prøvet 123.45 i stedet for 123,45?

NSV


Besked fra: RingoStarLight
Posteringsdato: 29.Mar.2020 kl. 11:12
Tak for din interesse.

Decimalpunktum - Jeg vil sige nej (tænker jeg).

Windows 10 = 
, (komma) som decimaltegn
. (punktum) som ciffergruppeseparator

Excel 2016 =

Indstillinger --> Avanceret

Brug systemseparatorer

Hm! - Andet du/andre kan hjælpe med...?



Print side | Luk vindue