Re: Mappe stürzt ab...
06.05.2003 16:02:13
Tobias
Hallo Mike,ich habe das störende Makro ausfindig gemacht. An diesem Ding liegt der Absturz aber was kann ich nun tun? Ich poste mal de´n Code gleich mit. Vielleicht fällt ja jemanden was dazu ein oder auf??? Ich hatte übrigens auch oft einen Laufzeitfehler der auch aus diesem Makro resultierte. Davon war folgende Zeile betroffen:
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=sVal
Hat jemand dazu 'n Tipp?
Hier der gesamte Code der die Mappe zum Absturz bringt:
Private Sub Worksheet_Activate()
Dim col As New Collection
Dim iRow As Integer
Dim sVal As String
'generieren der Gültigkeitsliste der MA
iRow = 2
On Error Resume Next
With Worksheets("Projekt_MA")
Do Until IsEmpty(.Cells(iRow, 1))
col.Add .Cells(iRow, 1).Value, .Cells(iRow, 1).Value
iRow = iRow + 1
Loop
End With
On Error GoTo 0
For iRow = 1 To col.Count
If iRow = 1 Then
sVal = col(iRow)
Else
sVal = sVal & "," & col(iRow)
End If
Next iRow
'Worksheets("Arbeitszeitnachweis").Unprotect
With Range("C8").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=sVal
.IgnoreBlank = True
.InCellDropdown = True
End With
'Worksheets("Arbeitszeitnachweis").Protect
End Sub