VBA bearbeitet ungesperrte Zellen in gesperrtem Arbeitsblatt nicht

Hallo zusammen,
ich habe folgendes Problem: Ich habe ein Arbeitsblatt in dem ich über "Zellen formatieren" den Zellschutz aufhebe. Danach sperre ich das Arbeitsblatt. Wenn ich die entsprechenden Zellen dann manuell bearbeite, ist eine Bearbeitung möglich (so wie es sein soll). Die anderen Zellen kann ich nicht bearbeiten (auch so wie gewünscht).
Lasse ich jetzt das Makro laufen (Makro startet automatisch bei Eintragungen in einer bestimmten Spalte) und möchte einen Eintrag in die ungesperrten Zellen vornehmen, bekomme ich den Fehler: "Laufzeitfehler 1004: Die Zelle oder das Diagramm, die bzw. das sie ändern möchten, befindet sich auf einem schreibgeschützten Blatt."
Bedeutet das, dass ich generell kein Makro in einem teilweise geschützten Arbeitsblatt laufen lassen kann? Wenn ich über protect/unprotect gehe, ist das komplette Arbeitsblatt gesperrt bzw. entsperrt soweit ich weiß. Hat jemand eine Lösung bzw. Erklärung?
VG
marwie

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das ist ein Teil des Codes. Das "Hauptmakro" (oben) greift dabei auf verschiedene "Untermakros" (ein Beispiel unten) zu.

Private Sub Worksheet_Change(ByVal Target As Range)
zeile = ActiveCell.Row
spalte_standardprozess = 9
If Not Intersect(Target, Cells(zeile, spalte_standardprozess)) Is Nothing Then
Select Case Cells(zeile, spalte_standardprozess)
Case "": Leer
Case "HRL-Prozess EG": HRL_Prozess_EG
Case "HRL-Prozess OG": HRL_Prozess_OG
Case "HRL-Prozess an mech. Fert.": HRL_Prozess_mech_Fert
Case "AKL-Prozess EG": AKL_Prozess_EG
Case "AKL-Prozess OG": AKL_Prozess_OG
Case "AKL-Prozess an mech. Fert.": AKL_Prozess_mech_Fert
Case "SuMa-Prozess EG GLT VZN": SuMa_Prozess_EG_GLT_VZN
Case "SuMa-Prozess OG GLT VZN": SuMa_Prozess_OG_GLT_VZN
Case "SuMa-Prozess EG KLT VZN": SuMa_Prozess_EG_KLT_VZN
Case "SuMa-Prozess OG KLT VZN": SuMa_Prozess_OG_KLT_VZN
Case "SuMa-Prozess man. Lager VZN (GLT)": SuMa_Prozess_man_Lager_VZN
Case "Man. Lagerprozess Verbau EG": Man_Lagerprozess_EG
Case "Man. Lagerprozess Verbau OG": Man_Lagerprozess_OG
Case "RTB-Prozess GLT VZN": RTB_Prozess_GLT
Case "RTB-Prozess KLT VZN": RTB_Prozess_KLT
Case "Felgen-/Reifenprozess (inkl. Seq.)": Felgen_Reifen_Prozess
Case "VZ Süd an mech. Fert.": VZ_Süd_mech_Fert
End Select
End If
End Sub

Sub HRL_Prozess_EG()
vergleichszeile = 1
erstespalte = 10
zeilenzähler = ActiveCell.Row
zeilenauswahl = Selection.Row + Selection.Rows.Count - 1
letztespalte = Cells(1, 256).End(xlToLeft).Column - 1
Range(Cells(zeilenzähler, erstespalte), Cells(zeilenauswahl, letztespalte)).Clear
spaltenzähler = erstespalte
While zeilenzähler If Rows(zeilenzähler).Hidden = False Then
While spaltenzähler If Cells(vergleichszeile, spaltenzähler) = "x" Then
Cells(zeilenzähler, spaltenzähler) = "x"
End If
spaltenzähler = spaltenzähler + 1
Wend
End If
spaltenzähler = erstespalte
zeilenzähler = zeilenzähler + 1
Wend
End Sub

Beliebteste Forumthreads (12 Monate)

VBA bearbeitet ungesperrte Zellen in gesperrtem Arbeitsblatt nicht

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread