nachlängerer Zeit kann ich mich nun mal wieder intensiver um meine Excel Tabellen kümmern und sitze hier vor einem Problem, bei dem ich nach googeln und probieren zu keiner Lösung finde.
Mir wurde 2008 mal in diesem Thread geholfen: https://www.herber.de/forum/archiv/1020to1024/t1022366.htm
Ich verwende in einer anderen Tabelle nun folgendes Makro:
Private Sub UserForm_Activate()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
sh.Unprotect "test"
sh.Activate
Next sh
End Sub
Private Sub CommandButton1_Click()
Dim lngI As Long
Dim arrSheets() As Variant, varhelp As Variant
Dim sh As Worksheet
lngI = 0
If CheckBox1 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Summe"
lngI = lngI + 1
End If
If CheckBox2 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Schiedsrichter"
lngI = lngI + 1
End If
If CheckBox3 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Wäsche"
lngI = lngI + 1
End If
If CheckBox4 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Summe Fahrtkosten"
lngI = lngI + 1
End If
If CheckBox5 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Fahrtkosten"
lngI = lngI + 1
End If
If CheckBox6 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Turnierkosten Porto etc. Druck"
lngI = lngI + 1
End If
If CheckBox7 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Mannschaftskasse"
lngI = lngI + 1
End If
If CheckBox9 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Helfer-Fahrer-Liste Trainer"
lngI = lngI + 1
End If
If CheckBox8 = True Then
ReDim Preserve arrSheets(lngI)
arrSheets(lngI) = "Helfer-Fahrer-Liste Eltern"
lngI = lngI + 1
End If
On Error Resume Next
varhelp = arrSheets(0)
If Err.Number = 0 Then
Sheets(arrSheets).Select
Application.Dialogs(xlDialogPrint).Show
Else
MsgBox "Sie haben keine Tabelle ausgewählt !", vbCritical, " Keine Auswahl"
End If
On Error GoTo 0
Call Ausdruck.Hide
Worksheets("Turnierkosten Porto etc. Druck").Visible = False
Worksheets("Schiedsrichter").Visible = False
Worksheets("Wäsche").Visible = False
Worksheets("Summe Fahrtkosten").Visible = False
Worksheets("Summe").Visible = False
Worksheets("Fahrtkosten").Visible = False
Worksheets("Helfer-Fahrer-Liste Eltern").Visible = False
For Each sh In Sheets
sh.Protect "test"
Next sh
Sheets("Daten").Select
End Sub
Wenn eine Checkbox ausgewählt wird, läuft alles, ebenso wenn 3 oder mehr ausgewählt werden.
Wenn allerdings 2 ausgewählt werden kommt es zu einem Fehler.
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Sicherlich ist die Lösung mit activate nicht gerade super um die einzelnen Makros der Tabellenblätter auszuführen, allerdings funktioniert es..., nur mit 2 ausgewählten Checkboxen nicht, was mich irritiert.
Für hilfreiche Ideen bin ich dankbar.
Viele Grüße
Kai