Mindre end, lig med, større end
I koden bliver 2 tekstbokse brugt til at sammenligne forskellige værdier, den ene tekstboks er den fra ovenstående kode. Der har været tilfælde, hvor tallet har været større i tekstboks1, men koden er "kommet ud med at tallet er minde. Resultatet af sammenligningen passer åltså ikke.Sammenligningen går i sin enkelthed ud på, mindre end, lig med, større end. Kan det evt. skyldes formateringen af disse???
Flg makroer bruges:
Sub DataMindre()
If IndlæsNyeAflæsninger.AktuelAflæsning.Value < IndlæsNyeAflæsninger.SenesteAflæsning.Value Then
'Exit Sub
DataTjekMindre.Show
Else
'Exit Sub
Application.Run "'Energi- og vandaflæsning.xlsm'!DataLig"
End If
End Sub
Sub DataLig()
If IndlæsNyeAflæsninger.AktuelAflæsning.Value = IndlæsNyeAflæsninger.SenesteAflæsning.Value Then
' Exit Sub
DatatjekLig.Show
Else
'Exit Sub
Application.Run "'Energi- og vandaflæsning.xlsm'!DataStørre"
End If
End Sub
Sub DataStørre()
If IndlæsNyeAflæsninger.AktuelAflæsning.Value > IndlæsNyeAflæsninger.SenesteAflæsning.Value Then
'Exit Sub
DataTjekStørre.Show
Else
'Exit Sub
Application.Run "'Energi- og vandaflæsning.xlsm'!GemmeData"
End If
End Sub
