Code optimieren

Forumthread: Code optimieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Code optimieren

Code optimieren

10.04.2008 19:06:08

Herbert

Hallo, einen wunderschönen guten Abend
ich habe mir den Code gebastelt, aber ich würde gern wissen ob man den nicht noch optimieren kann.
Es werden zwei textboxen addiert in einem Formular (access) aber ist ja eig. auch vba
deshalb könnt ihr das besitmmt auch!
'Wohneinheiten Privat & Gewerbe werden addiert
Dim WE, WEGewerbe, AnzahlWE As Integer
If IsNull(Me.Objekt_WE) Or Me.Objekt_WE = "" Then
WE = 0
Else
WE = Me.Objekt_WE
End If
If IsNull(Me.Objekt_WEGewerbe) Or Me.Objekt_WEGewerbe = "" Then
WEGewerbe = 0
Else
WEGewerbe = Me.Objekt_WEGewerbe
End If
AnzahlWE = CDbl(WE) + CDbl(WEGewerbe)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code optimieren

10.04.2008 21:57:28

Reinhard
AW: Code optimieren

10.04.2008 22:04:00

Herbert

AW: Code optimieren

10.04.2008 21:57:28

Reinhard

Hi Herbert,
ungetestet, klappt das nicht:


Sub tt()
' wieso hast du anzahlWE als Integer definiert wenn du doch später Doublewerte addierst?
Dim AnzahlWE As Double
AnzahlWE = CDbl(Me.Objekt_WE) + CDbl(Me.Objekt_WEGewerbe)
End Sub

Gruß
Reinhard

AW: Code optimieren

10.04.2008 22:04:00

Herbert

mhh da hast du recht, mir geht es nur da drum die IF Konstruktionen umzubauen.
Eigentlich benötige ich nur die letzte Zeile. Aber da der bei einem leeren Feld abbricht muss ich den ganzen Wust davor setzten...

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!