Laufzeitfehler 91 - wieder mal...
08.05.2005 16:53:37
Russi
kurz folgendes Problem. Ich bekomme einen Laufzeitfehler 91 und kann ihn nicht identifizieren bzw. abstellen. Vielleicht habt Ihr einen Ansatz...
Danke
Andreas
Code in der Userform:
Private Sub UserForm_Initialize()
Dim arr
On Error GoTo Errorhandler
arr = Array("JANUAR", "FEBRUAR", "MÄRZ", "APRIL", "MAI", "JUNI", "JULI", "AUGUST", "SEPTEMBER", "OKTOBER", "NOVEMBER", "DEZEMBER")
Me.cbo_monate.List = arr
Call aktualisieren
Me.Show
Exit Sub
Errorhandler:
MsgBox "Fehler"
Exit Sub
End Sub
Code im Modul, der aus der Userform aufgerufen wird...
Sub aktualisieren()
Dim monat, i, intcol, intvertrieb, introw, intcounter As Integer
Dim restA, restB, restC As Double
monat = KontingenteVT.cbo_monate.ListIndex
introw = 3 + monat 'Jeder weitere Vertriebspartner + 12 Zeilen
'Füllen der Textboxen
For intvertrieb = 1 To 8
If KontingenteVT.ob_A = True Then intcol = 3
If KontingenteVT.ob_B = True Then intcol = 7
If KontingenteVT.ob_C = True Then intcol = 11
For intcounter = 1 To 4
KontingenteVT.Controls("tb_" & intvertrieb & intcounter).Value = CDbl(Sheets("Datenhaltung").Cells(introw, intcol).Value)
intcol = intcol + 1
Next intcounter
KontingenteVT.Controls("total" & intvertrieb).Value = CDbl(KontingenteVT.Controls("tb_" & intvertrieb & "1").Value) + CDbl(KontingenteVT.Controls("tb_" & intvertrieb & "2").Value) + _
CDbl(KontingenteVT.Controls("tb_" & intvertrieb & "3").Value) + CDbl(KontingenteVT.Controls("tb_" & intvertrieb & "4").Value)
introw = introw + 12
Next intvertrieb
'Ermitteln und Anzeigen von Restkapazitäten
restA = CDbl(Sheets("Eckdaten").Cells(2, monat + 2).Value)
restB = CDbl(Sheets("Eckdaten").Cells(3, monat + 2).Value)
restC = CDbl(Sheets("Eckdaten").Cells(4, monat + 2).Value)
KontingenteVT.tb_restA.Value = CDbl(restA)
KontingenteVT.tb_restB.Value = CDbl(restB)
KontingenteVT.tb_restC.Value = CDbl(restC)
End Sub