Hallo ich bekomme immer beim öffnen von Excel die Fehlermeldung 438
Hängt mit der der Anweisung Worksheet_activate zusammen.
Dias Makro (Schalter) füllt eine Combobox (Combobox3) unterschiedlich.
Das Programm (Schalter) läuft ausser bei Excelstart immer einwandfrei.
Nur wenn ich die erste Füllung der Combobox, bzw. die Tooglebox1 anspreche(die dann später das Makro(Schalter) immer wieder aufruft,
kommt die Fehlermeldung 438.
Ich möchte nur noch schaffen das die Combobox bei Excelstart einmal "vorbefüllt" wird.
Hier mein Code
Private Sub worksheet_activate()
Worksheets("Jornal").ToogleButton1 = False
Call Schalter
End Sub
Sub Schalter()
'On Error Resume Next
ActiveSheet.Unprotect
'Füllt Combobox 3
Dim Bereich As Range
Dim Zelle As Range
'Achtung frägt nur bis Auftragszeile 2000 ab!!!!
Set Bereich = Worksheets("Auftraege").Range("F2:F2000")
' Auswahl von Akutellen Aufträgen
Worksheets("Jornal").ComboBox3.Clear
If ToogleButton1 = True Then
For Each Zelle In Bereich
If Zelle.Offset(0, -5).Value >= 1000 Then
If Zelle.Offset(0, 1).Value = 1 Then Worksheets("Jornal").ComboBox3.AddItem Zelle.Value
End If
Next Zelle
With Worksheets("Jornal").ComboBox3
.AddItem ""
.MatchRequired = True
End With
Else
For Each Zelle In Bereich
If Zelle.Offset(0, -5).Value >= 1 Then
If Zelle.Offset(0, -5).Value < 1000 Then
If Zelle.Offset(0, 1).Value = 1 Then Worksheets("Jornal").ComboBox3.AddItem Zelle.Value
End If
End If
Next Zelle
With Worksheets("Jornal").ComboBox3
.AddItem ""
.MatchRequired = True
End With
End If
ActiveSheet.Protect
End Sub
|