Fehler im VBA Code ?
31.01.2007 06:17:53
Josef
Ich habe von Rudi Maintaire eine VBA Lösung bekommen und wollte diese jetzt bei einem anderen Sheet anpassen.
Userform:
Private Sub CommandButton39_Click()
Dim dblSUM20 As Double
Anzahl = [E65536].End(xlUp).Row
For n = 2 To Anzahl
If Cells(n, 5).Value <> "" Then
If Cells(n, 5).Value = UserForm1.cboLesen3.Value Then
dblSUM20 = dblSUM20 + Workbooks("Gesundheitswesen Wien.xls").Worksheets("Vergütung").Cells(n, 18)
End If
End If
Next n
UserForm1.einBox1.Value = dblSUM20
End Sub
In der Spalte E im Arbeitsblatt "Vergütung" steht in den Zeilen 1,252,503,754,1005 usw. das Datum 02.01.2007.
Wenn jetzt in der ComboBox cboLesen3 der Wert 02.01.2007 aktiviert wird, dann sollen die eingetragenen Werte aus der Spalte R (18) als Summe in die Textbox einBox1 eingelesen werden.
Obwohl ich einen Wert von 500 in der Zelle R2 (n, 5)stehen habe, bekomme ich als Ergebnis 0. Wo mache ich hier bitte den Fehler?
Danke
Josef