Formatering af inputboxen

Så vidt jeg ved, kan du ikke formatere en inputbox. Du kan formatere resultatet, men ikek indtastningen.

Med denne kode kan man kun indtastet tal

intTal = Application.InputBox("Skriv tal", "TAL", Type:=1)

kontrol af 8 ciffer


While Len(intTal) < 8
  intTal = Application.InputBox("Skriv nr (min 8 ciffer)", "NR", Type:=1)
Wend

ikrons - det er ok at det er resultatet som formateres. Jeg skal have brugeren til at indtaste et telefonnummer, der skal formateres: xx xx xx xx

jlemming - kan du udbygge din formel så den kan ovenstående?

Findes der en tilsvarende inttal, som sikre at der kun indtastes tekst (altså ingen tal)?

N¨år du overfører til arket, kan du formatere, fx

While Len(inttal) < 8
  inttal = Application.InputBox("Skriv nr (min 8 ciffer)", "NR", Type:=1)
Wend
ActiveCell.Value = Format(inttal, "@@ @@ @@ @@")

Hvis du kun vil have tekst, så ret type til 2.

ikrons - det virker ikke hvis jeg ændre typen fra 1 til 2. Den acceptere stadig tal.
Kan man ikke sætte antallet af cifre til netop 8?

Den accepter tal, fordi tekst også kan være tal. Hvis du mener, at der kun må indtastes bogstaver bliver det sværere.
Denne giver dig kun mulighed for at indtaste præcis otte cifre:

Sub t()
While Len(inttal) <> 8
  inttal = Application.InputBox("Skriv nr (min 8 ciffer)", "NR", Type:=1)
Wend
ActiveCell.Value = Format(inttal, "@@ @@ @@ @@")
End Sub

Den sidste løsning virker fint, men hælder alligevel til at bruge en userform, da jeg tilsyneladende ikke kan få indflydelse på udformningen af inputboxen. Er det sidste korrekt opfattet?

Helt rigtigt set :-) En inputbox er et standardobjekt i VBA, og det kan du ikke ændre meget på. Hvis du ønsker selv at kontrollere så meget så nuligt ville jeg nok også vælge en userform.

Det er ok.
Hvis I begge lægger et svar, så deler jeg de 60 point.

Tak for jeres indsatsen, selvom jeg ikke kom helt i mål, så fik jeg da afklaret nogle ting. som jeg ikke vidste i forvejen :O)

Velbekomme :-)

velbekomme :o)