ich hab da mal wieder ein paar kleine Schwierigkeiten im VBA und da ich bei meinem letzten Besuch hier so rasend schnell eine perfekte Unterstützung erfahren habe, dachte ich mir ich bitte euch nochmal um Hilfe.
Ich erstelle gerade einen Dienstplan, der je nach Mitarbeiteranzahl verschiedene Spalten aus- und einblenden soll (per ComboBox).
Nun möchte ich per klick auf einen CommandButton wenn das Tabellenblatt geschützt ist alle Zellen die noch ungeschützt sind wieder leeren, aber ohne die Formatierung zu löschen. Mir wird aber jedes Mal ein Fehler 13(Typen unverträglich) angezeigt.
Ich bekomme es einfach nicht hin.
Hier mal der Code zum ein-/ausblenden der Spalten (Ausschnitt)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 Then Exit Sub
If Target = Range("Hp9") Then
Hier wird dann der Fehler angezeigt
If Range("Hp9").Value = 1 Then
Columns("C:K").Select
Selection.EntireColumn.Hidden = False
Columns("l:HN").Select
Selection.EntireColumn.Hidden = True
End If
und nun der Code zum löschen (hier nur für einen Bereich)
Private Sub CommandButton1_Click()
Sheets("vorläufige Dienstplanung").Activate
Range("c9:G39").ClearContents
Unload UserForm23
UserForm1.Show
End Sub
Ich verzweifle hier irgendwann noch.
Danke schonmal im Voraus
Gruß Sentel