Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile automatisch einfügen trotz Blattschutz

Zeile automatisch einfügen trotz Blattschutz
16.10.2014 19:12:32
Martin
Hallo,
ich hoffe ich kann mein Problem erklären ohne zu kompliziert zu werden. Also folgendes:
Ich habe ein Tabellenblatt (ist angehängt) da möchte ich ein bisschen Haushaltsrechnung machen. In Spalte B habe ich eine Formel eingebaut, weiß nicht ob sie so richtig ist aber sie funktioniert, und mit Blattschutz gesperrt. Jetzt lässt sich keine Zeile mehr einfügen die eine gleiche Formatierung wie die Zeile darüber hat. Eine leere Zeile lässt sich einfügen aber ich möchte ja die Formel mit einfügen.
Am optimalsten wäre es wenn immer eine neue Zeile automatisch eingefügt wird sobald in Spalte B was steht. Also wenn in B4 was steht wird automatisch ne Zeile in 5 eingefügt und alles andere wird nach unten geschoben usw.
Der Blattschutz ist an aber ohne Passwort.
Hoffe ihr könnt mir weiter helfen?
Gruß Martin
https://www.herber.de/bbs/user/93201.xlsx

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile automatisch einfügen trotz Blattschutz
17.10.2014 10:21:13
{Boris}
Hi Martin,
mach`s Dir nicht so kompliziert. Zieh die Zeilen 11:14 in den oberen Bereich und schreibe darunter Deine Ausgaben fort.
VG, Boris

AW: Zeile automatisch einfügen trotz Blattschutz
17.10.2014 10:32:11
Klaus
Hallo Martin,
reichen deine Basiskenntnisse, um ein Makro einzufügen? Dann dieses Makro in deine Datei, und dem ganzen eine Tastenkombination deiner Wahl (zB. STRG+SHIFT+W) zuweisen.
Jetzt führt Excel die Einzelschritte alle für dich aus!

Sub NeueZeileMitFormeln()
Application.ScreenUpdating = False                    'Gegen Bildschirmflackern
With ActiveSheet
.Unprotect                                        'Blattschutz aufheben
ActiveCell.EntireRow.Insert                       'Neue Zeile einfügen
.Range("B" & ActiveCell.Row - 1).Copy             'Formel von "oben" kopieren
.Range("B" & ActiveCell.Row).PasteSpecial         'Formel einfügen
.Rows(ActiveCell.Row - 1).Copy                    'Zeile für Formate kopieren
.Rows(ActiveCell.Row).PasteSpecial xlPasteFormats 'nur Formate einfügen
Application.CutCopyMode = False                   'Kopierameisen ausschalten
.Protect                                          'Blattschutz setzen
End With
Application.ScreenUpdating = True
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Zeile automatisch einfügen trotz Blattschutz
17.10.2014 13:35:08
{Boris}
Hi Klaus, hi Werner,
im Prinzip sind die Makros doch nur Lösungen für ein Problem das man nicht hätte, wenn man sich an einen vernünftigen Tabellenaufbau hält. Und in diesem konkreten Fall halte ich es für a) simpel und b) übersichtlicher, die Zeilen 11:14 einfach oberhalb der anderen Daten zu platzieren.
Dann kann man die Tabelle ohne jedes weiteres Zutun immer weiter fortschreiben.
Just my two cents ;-))
VG, Boris

Anzeige
AW: Zeile automatisch einfügen trotz Blattschutz
17.10.2014 13:29:33
Werner
Hallo Martin,
bei der hochgeladenen Datei wird bei Doppelklick in Spalte A (ab Zeile 5) eine Inputbox geöffnet in der du eingeben kannst wie viele Zeilen eingefügt werden können. Die Zeilen werden dann unter der per Doppelklick angeklickten Zeile eingefügt. Das Kennwort für den Blattschutz ist Martin (ggf. im Code ändern).
Ich halte das automatische Einfügen von Zeilen bei Änderung in einer bestimmten Zelle für nicht gut. Da hast du sonst das Problem, dass bei jeder Änderung in der entsprechenden Zelle eine neue Zeile eingefügt wird. Zum Beispiel dann wenn du in die Zelle einen Wert einträgst. Hast du dich verschrieben und änderst den Wert, dann wird erneut eine neue Zeile eingefügt.
https://www.herber.de/bbs/user/93213.xlsm
Gruß Werner

Anzeige
FeedBack ein Begriff?
18.10.2014 15:46:37
Werner
Hallo Martin,
fragen ging noch! Anschließend wohl beide Arme gebrochen! Gute Besserung.
Gruß Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeile automatisch einfügen trotz Blattschutz in Excel


Schritt-für-Schritt-Anleitung

Um eine Zeile automatisch in Excel einzufügen, während der Blattschutz aktiv ist, kannst du ein einfaches Makro verwenden. Folge diesen Schritten:

  1. Excel öffnen: Starte Excel und öffne die Datei, in der du die Haushaltsrechnung führen möchtest.

  2. Makro erstellen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Neues Modul hinzufügen:

    • Klicke mit der rechten Maustaste auf „VBAProject (deinDateiname)“.
    • Wähle „Einfügen“ und dann „Modul“.
  4. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub NeueZeileMitFormeln()
       Application.ScreenUpdating = False
       With ActiveSheet
           .Unprotect
           ActiveCell.EntireRow.Insert
           .Range("B" & ActiveCell.Row - 1).Copy
           .Range("B" & ActiveCell.Row).PasteSpecial
           .Rows(ActiveCell.Row - 1).Copy
           .Rows(ActiveCell.Row).PasteSpecial xlPasteFormats
           Application.CutCopyMode = False
           .Protect
       End With
       Application.ScreenUpdating = True
    End Sub
  5. Makro zuweisen: Weisen Sie dem Makro eine Tastenkombination zu, z.B. STRG + SHIFT + W.

  6. Blattschutz: Stelle sicher, dass der Blattschutz ohne Passwort aktiv ist.

  7. Testen: Teste das Makro, indem du eine Zeile im Tabellenblatt auswählst und die Tastenkombination drückst.


Häufige Fehler und Lösungen

  • Excel-Zeile lässt sich nicht einfügen: Stelle sicher, dass der Blattschutz deaktiviert ist, bevor du das Makro ausführst.
  • Excel-Zeile automatisch einfügen funktioniert nicht: Überprüfe, ob die aktive Zelle im richtigen Bereich liegt und dass das Makro korrekt zugewiesen wurde.
  • Makro läuft nicht: Prüfe, ob die Makros in deinen Excel-Einstellungen aktiviert sind.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, gibt es alternative Ansätze:

  1. Manuelles Einfügen: Klicke mit der rechten Maustaste auf die Zeilennummer und wähle „Zeile einfügen“. Allerdings wird hierbei die Formatierung nicht automatisch kopiert.
  2. Tabelle nutzen: Verwende eine „Intelligente Tabelle“ (Tabelle in Excel), die sich automatisch erweitert, wenn du neue Daten eingibst. Aktiviere den Blattschutz nur für bestimmte Bereiche, die nicht bearbeitet werden sollen.

Praktische Beispiele

  • Haushaltsrechnung in Excel: Du kannst eine Tabelle erstellen, in der du Einnahmen und Ausgaben verwaltest. Wenn du beispielsweise in Spalte B eine neue Ausgabe einträgst, kann das Makro automatisch eine Zeile darunter einfügen.
  • Formeln kopieren: Das oben stehende Makro kopiert die Formeln und das Format der vorherigen Zeile, was dir hilft, die Übersichtlichkeit deiner Haushaltsrechnung zu wahren.

Tipps für Profis

  • Makros optimieren: Überlege dir, wie du das Makro anpassen kannst, um spezifische Anforderungen zu erfüllen, wie z.B. das Einfügen von mehreren Zeilen gleichzeitig.
  • Sicherung der Datei: Bevor du das Makro ausführst, erstelle eine Sicherungskopie deiner Excel-Datei, um Datenverlust zu vermeiden.
  • Verwendung von Application.EnableEvents: Wenn du erweiterte Automatisierungen planst, setze Application.EnableEvents = False, um zu verhindern, dass andere Ereignisse ausgelöst werden, während das Makro läuft.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das Makro bei jedem neuen Eintrag in Spalte B automatisch eine Zeile einfügt?
Das Makro muss an ein Ereignis gebunden werden, z.B. an das Worksheet_Change-Ereignis. Dies erfordert jedoch zusätzliche Programmierung.

2. Warum funktioniert das Einfügen einer Zeile trotz Blattschutz nicht?
Der Blattschutz muss vor dem Einfügen der Zeile aufgehoben werden. Das geschieht im Makro, aber du musst sicherstellen, dass der Blattschutz korrekt gesetzt und entfernt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige