27. juli 2017 - 16:39Der er
9 kommentarer og 1 løsning
Hjælp til indtastning via VBA
Bruger office 2016
Har et excelark hvor der skal indtastes nogle værdier, på Excel arket hvor værdierne bliver indsat er der nogle betingede formateringer, og en af de betingede formateringer er "større end 36", og cellefarven bliver herefter blå.
Jeg har lavet en Userform hvor indtastningerne foretages, men når Userformen indsætter talværdier bliver farven på cellerne blå der hvor den før omtalte betingede formatering er. Jeg har læst at det er noget med at Excel opfatter det som om der før tallene er en apostrof (') Hvis jeg manuelt indtaster en apostrof (') bliver resultatet det samme.
Er der en eller anden som kan hjælpe mig af med det problem ?
Koden på min Userform som indsætter data ser således ud:
Private Sub cmdOk_Click() 'Indsætter ny række på excelark IndsætNyRække
#3 Jeg ved ikke hvad det du foreslår gør, men det virker hvis der er værdier i Userformens textfelter, men hvis et textfelt er tomt melder VBA fejl når det når til koden vedr. det tomme textfelt. Var det bedre og starte med og lægge alle værdierne i en variabel ?
Som udgangspunkt er alle værdier i vba tekst Så uanset disse er datoer, tal eller andet så opfattes disse som tekst Så når du skal levere værdier til et excel-ark/celle skal værdierne omdannes til tal eller dato eller tider m.v. her kommer cdbl og cdate ind
Fejlen du får kan fx fikses via en err-handler fx On error goto eller .Offset(0, 1).Value = txtTidspunkt
retters til
if txtTidspunkt<>"" then .Offset(0, 1).Value = txtTidspunkt
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.