Hilfe bei Userform

Hallo allerseits
Ich Bau mir gerade eine User form die den Blattschutz auf mehreren Tabellenblättern ein und wider ausschalten können soll, nur leider stoße ich langsam an meine Grenzen und brauche etwas Hilfe dabei.
Im Moment durchlaufe ich die Tabellen Blätter und liste sie in einer List Box auf, wo auch angezeigt wird ob sie momentan geschützt sind oder nicht. Aber ich bekomm es nicht hin das ich nur die ausgewählten Tabellenblätter Sperre Bzw. entsperre.
Und ich würde gerne über die Checkbox Alle Auswählen alle Listboxfelder auf einmal anhaken können Bzw. wider abhacken.
Wie bekomme ich es hin das ich beim durchlaufen der Tabellenblätter, nur die darin enthaltende Tabelle anspreche. Ich möchte in den Tabellen später während des Sperrens bestimmte bedingte Formatierungen per VBA löschen und neu setzen.
Ich hoffe ihr könnt mir im einen oder anderen Punkt weiterhelfen, danke jedenfalls an jeden der mir Hilft.
Bsp. Datei https://www.herber.de/bbs/user/156216.xlsm
Beste Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk
Hab es mit dem Makrorekorder auf dem ersten Tabellenblatt aufgezeichnet so wie du es gesagt hast.
Ich würde gern aus der User form während des Sperrens zuerst bestehende bedingte Formatierungen löschen und dann diese hier in die Tabellen Jänner bis Dezember einsetzen. Entweder während des Sperrens oder wenn es einfacher ist mit einem separaten Buttons in der Userform.
(Ev. als Funktion gestaltet wäre schön. Da ich versuche die User form so leicht wie möglich Übertragbar in andere Mappen zu machen. Muss mir auch noch eine Eingabe Möglichkeit für die nicht zu sperrenden Zellen überlegen damit ich die User form dann einfach in andere Mappen importieren kann aber damit will ich dich nicht belästigen.)


    Cells.FormatConditions.Delete
Range("Jänner").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=($C2"""")*(REST(SUMMENPRODUKT(N($C$1:$C1$C$2:$C2));2)=0)"    'Zeilengruppen anhand der Datumsspalte abwechselnd einfärben teil1
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("Jänner").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=($C2"""")*(REST(SUMMENPRODUKT(N($C$1:$C1$C$2:$C2));2))"   'Zeilengruppen anhand der Datumsspalte abwechselnd einfärben Teil 2
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("Jänner[Name]").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$O2=""X"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Strikethrough = True
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Der Hintergrund ist das die Tabellen regelmäßig aus anderen Quellen mit Notwendigen Grunddaten befüllt werden, wofür sie entsperrt werden müssen dabei sind manche Leute zu dumm um nur die werte Einzufügen. Dabei werden immer wider bedingte Formatierungen eingeschleppt oder die bestehenden beschädigt. Im gesperrten zustand werden dann nur ergänzende Informationen eingegeben.
Vielen dank für deine Hilfe
Grüße Andi

Private Function ListboxAuswahlAuslesen(LB As msForms.ListBox) Dim strSelectierte As String Dim i As Long If LB.ListCount > 0 Then For i = 0 To LB.ListCount - 1 If LB.Selected(i) = True Then strSelectierte = strSelectierte & LB.List(i) & vbLf End If Next i End If MsgBox strSelectierte End Function

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe bei Userform

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread