|
Hallo und Guten Tag an das Forum,
ich habe eine Arbeitsmappe mit 2 Tabellenblättern, diese sind mit einem Passwort Blattschutz versehen.
Nun soll der Benutzer bestimmte Zeilen (wo in Spalte A ein x steht) Löschen dürfen über einen Button.
Button erstellt Makro geschrieben der Button ist in Tabelle 1 („Ausarbeitung“) Funktioniert,
Aber in der zweiten Tabelle wird die Zeile nicht gelöscht warum nicht?
Wenn ich die Tabelle2 aktiv habe und das Makro über F5 auslöse wird die Zeile gelöscht, ich vermute das immer nur in der Aktiven Tabelle die Zeile gelöscht wird.
Wie kann ich das so Anpassen das auch die Zeile in der Tabelle2 (die beim Betätigen des Button NICHT Aktiv ist) auch gelöscht wird?
Hat da jemand eine Idee?
Hier das Makro :
-
Public Sub bedingte_Zeilenloeschung()
-
Worksheets("Ausarbeitung").Unprotect Password:="AAA" 'Blattschutz AUS
-
Worksheets("Kalkulation").Unprotect Password:="AAA"
-
With Sheets("Kalkulation")
-
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row 'Durchlauf aller Zeilen
-
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
-
If Cells(t, 1).Value = "x" Then 'Abfragen, ob in der ersten Spalte der Buchstabe "x" steht
-
Rows(t).Delete Shift:=xlUp 'Löschen der Zeile mit dem x
-
End If
-
Next t
-
End With
-
Worksheets("Ausarbeitung").Protect Password:="AAA" 'Blattschutz EIN
-
Worksheets("Kalkulation").Protect Password:="AAA"
-
End Sub
Ich bin für Jede Hilfe Dankbar.
|