Hjælp til indtastning via VBA
Bruger office 2016Har 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
Range("A8").Select
With ActiveCell
.Value = txtDagsDato
.Offset(0, 1).Value = txtTidspunkt
.Offset(0, 2).Value = txtVenstreAkk
.Offset(0, 3).Value = txtVenstreMax
.Offset(0, 4).Value = txtVenstreMin
.Offset(0, 5).Value = txtHøjreAkk
.Offset(0, 6).Value = txtHøjreMax
.Offset(0, 7).Value = txtHøjreMin
.Offset(0, 8).Value = txtUndersteAkk
.Offset(0, 9).Value = txtUndersteMin
.Offset(0, 10).Value = txtUndersteMin
.Offset(0, 11).Value = txtMaterialer
.Offset(0, 12).Value = txtDiverse
.Offset(0, 13).Value = txtDronning
.Offset(0, 14).Value = txtSygdom
.Offset(0, 15).Value = txtBistyrke
End With
MsgBox ("OK")
End Sub