Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 438 bei Worksheet_activate
22.02.2017 09:31:24 Sedlmeier
NotSolved
22.02.2017 14:55:48 Sedlmeier
NotSolved

Ansicht des Beitrags:
Von:
Sedlmeier
Datum:
22.02.2017 09:31:24
Views:
225
Rating: Antwort:
  Ja
Thema:
Fehler 438 bei Worksheet_activate

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 438 bei Worksheet_activate
22.02.2017 09:31:24 Sedlmeier
NotSolved
22.02.2017 14:55:48 Sedlmeier
NotSolved