Wie behält man die Erweiterbarkeit einer Tabelle bei, wenn man eine Tabellenzeile in ein geschütztes Excel-Arbeitsblatt einfügt?
Wenn Sie in Excel ein Arbeitsblatt schützen, wird die automatische Erweiterungsfunktion von Tabellen oft deaktiviert. Haben Sie beispielsweise eine Tabelle namens „Table1“ und geben Daten unterhalb der letzten Zeile in ein geschütztes Arbeitsblatt ein, erweitert sich die Tabelle nicht automatisch um diese neue Zeile. Es gibt jedoch eine Möglichkeit, Ihre Tabelle auch bei aktiviertem Blattschutz weiterhin automatisch erweiterbar zu halten. In diesem Tutorial führen wir Sie Schritt für Schritt durch den Prozess, mit dem Sie die automatische Erweiterung Ihrer Tabelle aktivieren – ohne den Schutz des Arbeitsblatts aufzuheben.
Tabelle durch Einfügen einer Tabellenzeile in einem geschützten Arbeitsblatt mit VBA-Code erweiterbar halten
Wie im folgenden Screenshot gezeigt, enthält Ihr Arbeitsblatt eine Tabelle namens „Table1“, deren letzte Spalte eine Formelspalte ist. Um zu verhindern, dass diese Formelspalte verändert wird – gleichzeitig aber das Erweitern der Tabelle durch Einfügen neuer Zeilen sowie das Eingeben neuer Daten in die neuen Zellen zu ermöglichen – gehen Sie wie folgt vor:
1. Klicken Sie auf Entwickler > Einfügen > Schaltfläche (Formularsteuerelement), um eine Formularsteuerelement-Schaltfläche in Ihr Arbeitsblatt einzufügen.
2. Klicken Sie im erscheinenden Makro zuweisen-Dialogfeld auf die Neu-Schaltfläche.
3. Fügen Sie im Fenster Microsoft Visual Basic für Applikationen den folgenden VBA-Code zwischen die Abschnitte Sub und End Sub im Code-Fenster ein.
VBA-Code: Tabelle durch Einfügen einer Tabellenzeile in einem geschützten Arbeitsblatt erweiterbar halten
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = TrueHinweise:
4. Drücken Sie die Tasten Alt + Q, um das Fenster „Microsoft Visual Basic für Applikationen“ zu schließen.
5. Wählen Sie die Zellen in der Tabelle aus, in die Sie neue Daten eingeben möchten – mit Ausnahme der Formelspalte –, und drücken Sie dann Strg+1, um das Dialogfeld Zellenformat festlegen zu öffnen. Deaktivieren Sie im Dialogfeld Zellenformat festlegen das Kontrollkästchen Gesperrt, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
6. Schützen Sie nun Ihr Arbeitsblatt mit dem Passwort, das Sie im VBA-Code festgelegt haben.
Ab sofort erweitert sich die Tabelle in Ihrem geschützten Arbeitsblatt durch einen Klick auf die Formularsteuerelement-Schaltfläche automatisch um eine neue Zeile – wie im folgenden Screenshot dargestellt.
Hinweis: Sie können die Tabelle im geschützten Arbeitsblatt bearbeiten – ausgenommen die Spalte mit den Formeln.
Verwandte Artikel:
- Wie lässt sich der Slicer einer PivotTable beim Scrollen des Arbeitsblatts in Excel mitbewegen?
- Wie kombiniert man Zellen in Excel, ohne die Formatierung zu verlieren?
- Wie entferne ich Duplikate in Excel, behalte dabei aber die erste Instanz bei?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins