Hallo an alle Ex(cel)perten,
In der UserForm1 benutze ich bisher folgenden Code, der prima funktioniert
(die CheckBox1 befindet sich im Sheet 'Tipps'):
Private Sub CheckBox1_Click() 'für Runde / Tour 1 / A
Application.ScreenUpdating = False
If pboSchalter = True Then
pboSchalter = False
Exit Sub
End If
With ThisWorkbook
If .Sheets("Plang").Columns("C:C").EntireColumn.Hidden = True Then
If .Sheets("Plang").ProtectContents = True Then
.Sheets("Plang").Unprotect ("123")
.Sheets("Plang").Columns("C:F").EntireColumn.Hidden = False
.Sheets("Plang").Protect ("123")
Else
.Sheets("Plang").Columns("C:F").EntireColumn.Hidden = False
End If
If .Sheets("Meldg").ProtectContents = True Then
.Sheets("Meldg").Unprotect ("123")
.Sheets("Meldg").Columns("C:F").EntireColumn.Hidden = False
.Sheets("Meldg").Rows("71:71").EntireRow.Hidden = False
.Sheets("Meldg").Cells(6, 37) = "aktiv" '37=Spalte AK ********
.Sheets("Meldg").Protect ("123")
Else
.Sheets("Meldg").Columns("C:F").EntireColumn.Hidden = False
.Sheets("Meldg").Rows("71:71").EntireRow.Hidden = False
End If
Else
If .Sheets("Plang").ProtectContents = True Then
.Sheets("Plang").Unprotect ("123")
.Sheets("Plang").Columns("C:F").EntireColumn.Hidden = True
.Sheets("Plang").Protect ("123")
Else
.Sheets("Plang").Columns("C:F").EntireColumn.Hidden = True
End If
If .Sheets("Meldg").ProtectContents = True Then
.Sheets("Meldg").Unprotect ("123")
.Sheets("Meldg").Columns("C:F").EntireColumn.Hidden = True
.Sheets("Meldg").Rows("71:71").EntireRow.Hidden = True
.Sheets("Meldg").Cells(6, 37) = "inaktiv" '37=Spalte AK
.Sheets("Meldg").Protect ("123")
Else
.Sheets("Meldg").Columns("C:F").EntireColumn.Hidden = True
.Sheets("Meldg").Rows("71:71").EntireRow.Hidden = True
End If
End If
End With
Application.ScreenUpdating = True
End Sub
Im Sheet 'Meldg' habe ich nun folgenden Code hinzugefügt:
Private Sub Worksheet_Activate()
If Range("am6") = 1 Then
MsgBox ("Der Eingabebereich der Runde 1 ist nicht leer. Bitte Einträge löschen!")
UserForm1.Show '?????????????
End If
End Sub
Aktiviere ich nun das Sheet 'Meldg' wird ggf. die UF1 gezeigt.
Ändere ich dann die CheckBox1 erscheint die Fehlermeldung *Laufzeitfehler 1004" mit dem Sprung zu der Zeile ******.
Wo liegt mein Fehler?
MfG Dirk