Hilfe bei Excel-Fehler

Hallo an alle,
ich wende mich heute an die Profis, da ich mit einem komischen Excel-Fehler nicht weiter komme.
Ich rufe über eine Userform ein ausgeblendetes Arbeitsblatt auf mit:
Unload UserForm1
Worksheets("Januar").Visible = True
Worksheets("Januar").Activate
Dieser einfache Code sollte problemlos funktionieren, tut er allerdings nicht auf allen verwendeten Systemen.
An den meisten Rechnern, an denen die Datei im Einsatz ist, funktioniert dies auch. Allerdings entsteht bei manchen Rechnern ein komischer Fehler:
Das Arbeitsblatt wird eingeblendet und ist sichtbar, aber reagiert nicht richtig. Eingaben werden verhindert wegen Blattschutz, obwohl die Zellen nicht geschützt sind. Es ist nicht möglich sich durch die Zellen mit Tastatur zu bewegen, lediglich auf Maus reagiert es. Selbst Excel kann nicht per "X-Schließen" beendet werden. Beim Versuch den Blattschutz komplett zu entfernen, reagiert Excel nicht auf das Aufheben. Wenn ich dann per Makro wieder in das urspüngliche Arbeitsblatt zurück wechsele, funktioniert und reagiert Excel wieder normal. Es ist, als ob das Blatt nicht richtig aktiv ist.
Wenn ich manuell per Einblenden das Blatt sichtbar mache und auswähle, funktioniert alles problemlos. Dies soll aber eigentlich verhindert werden, damit die Blätter nicht aus Versehen durch die Nutzer verändert werden.
Der Fehler tritt nicht auf allen Rechnern auf, teilweise funktionierte die Datei bereits schon, aber nach Neuinstallation von Office dann auch nicht mehr.
Ich habe keine richtige Ahnung, wo ich ansetzen soll, da es meiner Meinung nach nicht an dem Code liegen kann, sondern eher an einem "Hintergrund-Problem". Vielleicht hat es etwas mit den Verweisen zu tun, obwohl die eigentlich überall identisch sind. Abgesehen von den unterschiedlichen Office-Versionen. Der Fehler tritt jedoch in verschiedenen Office-Versionen auf (2013, 2016). Auf den betreffenden PCs wurde Office bereits mehrfach versucht neu zu installieren, ohne Erfolg.
Ich hoffe, ich konnte mein Problem gut schildern und freue mich auf Vorschläge.
Vielen Dank schon mal
Hannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub StartSystem() Application.DisplayFullScreen = True ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub

Konkret handelt es sich um diese Codes, aber es funktioniert auch nicht ohne die If-Funktionen, sodass ich es nur vereinfach wollte. Danke


Private Sub Image1_Click()
If ListBox1.Value = "Januar" Then
Worksheets("Januar").Visible = True
Worksheets("Januar").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Februar" Then
Worksheets("Februar").Visible = True
Worksheets("Februar").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "März" Then
Worksheets("März").Visible = True
Worksheets("März").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "April" Then
Worksheets("April").Visible = True
Worksheets("April").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Mai" Then
Worksheets("Mai").Visible = True
Worksheets("Mai").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Juni" Then
Worksheets("Juni").Visible = True
Worksheets("Juni").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Juli" Then
Worksheets("Juli").Visible = True
Worksheets("Juli").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "August" Then
Worksheets("August").Visible = True
Worksheets("August").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "September" Then
Worksheets("September").Visible = True
Worksheets("September").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Oktober" Then
Worksheets("Oktober").Visible = True
Worksheets("Oktober").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "November" Then
Worksheets("November").Visible = True
Worksheets("November").Activate
Unload MonatsAuswahl
Else
End If
If ListBox1.Value = "Dezember" Then
Worksheets("Dezember").Visible = True
Worksheets("Dezember").Activate
Unload MonatsAuswahl
Else
End If
End Sub


Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = (Application.Height - Me.Height) / 2
Me.Left = (Application.Width - Me.Width - 150)
Set Rng = Sheets("Daten").Range("H1:H12")
With ListBox1
.ColumnCount = Rng.Columns.Count
.List = Rng.Value
End With
End Sub

Andere Codes gibt es nicht.

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe bei Excel-Fehler

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread