Excel/VBA Beløbformat og listindex første post lig med 1 og ikke nul

1) Dette svar hjælper også om natten, når vi andre sover :-)
Funktioner / Makro / Indspil ny makro
Vælg en tilfældig celle, og lave den ønskede formatering - STOP båndoptageren og check koden. Det virker 8 ud af 10 :-)

2) Første emne i en listbox har listværdien 0 - du starter sikkert med et eller andet lignende    For 1 To 10    Start ved 0

OK, og (naturligvis!) men vent lige lidt med at gå i seng.
Første emne i listboksen er en tekst. Vælg
sovedyr: 1. bamse, 2 dukke, osv. Jeg vil ikke reducere bamse til et nul.
Har du et forslag til, så prøver jeg lige en
makro imens.

Kan du ikke kopiere din kode her ind, så kan jeg lure lidt på den ! Det er noget nemmere.

Private Sub UserForm_Initialize()
    ListBox1.AddItem \"1. Bamse\"
    ListBox1.AddItem \"2. Dukke\"
End Sub

Nu ved jeg jo ikke, om det er på en userform du har din listbox og om du laver listen som vist eller du indlæser fra nogle celler.

Private Sub UserForm_Activate()
With ComboBox1
.RowSource = \"Fryns\"
.ListIndex = 0
End With
TextBox2.Text = FormulaR1C1 = \"2,125.25\"
With ListBox3
.RowSource = \"Mednavne\"
.ListIndex = 0
End With
End Sub
Beløbet er ikke eksakt det, som jeg skal bruge.
Ideen er, at når jeg åbner formen, skal der stå
et beløb som default, men jeg skal også have
mulighed for at arbejde med ører, blot i andre
tekstbokse.
I ovenstående får jeg en fejl: \"Jeg har ikke
dim\'et en variabel.\"
Hvis dette er meget svært, forhøjer jeg naturlig-
vis gerne poientene. Det undrer mig, at andre
ikke har haft samme problemer?!
Jeg har ikke prøvet med listbox1.additem osv. og
ved ikke om dit forslag løser mit problem. Jeg har lavet Bamse og dukke, men det er på en
alm. listboks. Nu kan jeg prøve dit forslag.

Dine områder \"Fryns\" og \"Mednavne\" starter selvfølgelig ikke med en to celle, vel !!

Du kan umiddelbart ikke formatere dit tal inden i en tekstboks. Der skal noget leg til.

2125,25 vil komme af sig selv, men ikke tusindetalsseperatoren.

Fryns starter i ark2 celle b1 og mednavne i
ark2 celle c1. Er en tocelle en sammeflettet
celle?
Jeg prøvede at sætte værdien af tekstboksen
til format(2.500, \"0.00,00\") men fik vistnok
enten 2,5 eller 2,5000, og det kan jeg ikke bruge
til noget.
Noget leg, siger mig intet.
Men hvis 30 eller 40 point (hva\' ved jeg?) kan være medvirkende til at få løst disse spørgsmål,
er det en aftale.
til

undskyld - m kan betyde meget, når der skal stå \"en TOM celle\" og ikke \"en to celle\" - hehe - DU HAR VEL INGEN TOMME CELLER ØVERST I DINE NAVNGIVNE OMRÅDER ?

Noget leg.... Det er noget skrammel, for tusindetalsseperatoren skal indsættes af dig(vba-koden). Lad os nu antage, at der står 2.125,24 som standard, og jeg så sletter 125 og indsætter 456789 så står der 1.456789,25 i tekstboksen, og det er svær at gøre noget ved, for der kan være rigtig mange kombinationsmuligheder, og du kan ikke tage højde for dem alle. Jeg ville kun vise 2125,25. Er det et krav, så brug Access.

Det er ligemeget med fryns. Fryns er kun en opregning af frynsegoder, fri bil, fri telefon mv.
Mednavne er navne på mennesker, og jeg kan ikke
kalde Hannibal for medarbejder nr. 0, vel?
2.500 er et forslag, fx gældende sats. Det kan
lykkes, når jeg skriver 2500. Men senere, skal
jeg bruge decimaltal, og dem savner jeg en formel for. I VB kan man vist bruge cdec(og et eller andet). Hva\' bruger jeg i VBA? Ikke til denne
konkrete tekstbox, men generelt, hvis jeg vil
have rigtige kroner og ører?
Millioner af mennesker må have brug for at
udtrykke noget i kroner og ører!

PS Nej, ingen tomme celler!

Det lyder underligt - jeg får ingen blanke listpunkter, når jeg bruger RowSource med et navn. Excel2000

Jeg håber du får hjælp i morgen - jeg skal i seng - 12 timer igen i morgen.

PPS Sov godt! Finn Ekberg Christensen betroede mig, da jeg skrev til ham, at jeg ville begynde
at lære VB, at man godt kunne drømme om program-
mering. He he!

Godmorgen flemmingdahl se lige her
TextBox2.Value = Format(2500, \"#,##.00\")
Dette virker hos mig. Og indtastning 2500.25 giver
korrekt svar på øreproblemet.
Tilbage er nu problemet: Listindex skal starte med
1 og ikke med nul. Stadig 15 point for hjælp.

du kan sende mig dit regneark på fd@win-consult.com - så skal jeg lige lure det.

Jeg har også lige set denne her et andet sted - til brug med en dato.
TextBox1.Value = Format(Range(\"C3\").Value, \"yyyy-mm-dd\")

Skal jeg kigge på listbox\'en for dig ?

Ellers tak, der er vist ikke noget at se på.
Jeg mente at have læst, at hvis man ikke gad at
have 0 til at være \"første mulighed\" men i stedet
foretrak at listindex 1 skulle være første og ikke
anden mulighed, kunne man bare gøre sådan og sådan. Jeg kan ikke finde det, så jeg forveksler
nok dette med noget andet.
Men for din i øvrigt store indsats, giver jeg
dig point. Tak for hjælpen.
PS Du kan få dem for den formel, du viste mig her.

God fornøjelse

>Flemmningdahl
Jeg fandt det. Men det var når man erklærer variabler i arrays. For at undgå at nul også har en værdi,kan man vælge at arrays skal starte med element 1 og ikke 0. Sådan kan det gå, men jeg kan nok ikke huske det, når jeg skal bruge det.

Ja, du kan selv definere et array til at starte med 1 - men en listbox er et Microsoft-defineret array, og det starter med 0, uanset hvad du ønsker at gøre ved det.