Office: (Office 2007) Zeile einfügen unter Beibehaltung der Formeln

Hallo, wer weiß Rat?

ich habe eine Excel-Tabelle aufgebaut, in der die hier wichtigen Zellenbezüge nur innerhalb der jeweiligen Zeile stehen (das allerdings mehrfach). Wenn meine Kollegen dieses Sheet ausfüllen, müssen sie immer wieder neue Zeilen einfügen. Wenn sie dran denken, können sie das mit "Zeile kopieren" + "Zeile einfügen" problemlos machen. Tun sie aber selten, so dass ich die Sheets immer wieder nacharbeiten muss.

Gibt es eine Möglichkeit, dieses Einfügen so zu automatisieren, dass die Formeln automatisch mit übernommen werden?

Von Macros, VBA und so habe ich keine Ahnung, bei Euren Antworten bitte "Klein-Doofi" berücksichtigen. Ich bin gespannt, ob das machbar ist...

:)

 

DAs ist, so wie ich das verstehe, eigentlich ein eingebauter Mechanismus:
Siehe unter Extras | Optionen | Bearbeiten | Listenformat und Formeln erweitern
und lese die OH dazu...

 

Hallo HW,

das hilft mir jetzt nicht so richtig weiter...

Das mit dem eingebauten Mechanismus muss aber von vornherein richtig genutzt werden und das vergessen meine Kollegen halt immer. Die klicken nur vorne die Zeile an und fügen dann eine ein. Damit haben sie die Formalen aber nicht mit übernommen und darauf kommt es mir an. Weißt Du weiter?

Gruß nutmeg(2)

 

Hallo!

Gleiches Problem habe ich auch - ich kann zwar leere Zeilen per VBA einfügen, auch Zellen per VBA kopieren (siehe separater thread)...
Aber ich könnte auch eine Funktion gebrauchen, die quasi die Funktion "rechte Maustaste auf eine Zeile" und dann "kopierte Zellen einfügen" per VBA realisiert!

Hat da jemand eine Lösung? Wie kann ich per VBA kopierte Zellen einfügen?

Gruß
Mike

 

hiho

Code:

 

Hallo Chris!

Prima - danke! Das klappt!
:-)

Gruß
Mike

 

Moin!

Habe da nun doch noch ein Problem mit meinem Makro zum Zeilen einfügen:

Wenn ich das Makro mehrmals hintereinander ausführe, um in meiner Tabelle einfach mehr als eine Zeile einzufügen, dann ist JEDE ZWEITE Zeile LEER!

Ich finde aber meinen Denkfehler nicht...

So sieht der Code aus:

Sub Zeile_einfügen()
'
' Zeile_einfügen Makro


'hiermit wird die letzte benutzte Zelle in Spalte A ermittelt
With Range("A6").End(xlDown)

'kopieren der letzten Zeile (die dann aber doppelt vorhanden ist!)
Rows(.Row).Copy

Rows(.Row).Insert shift:=xlDown 'in welcher Zeile soll diese Zeile eingefügt werden
Application.CutCopyMode = False


End With
End Sub

 

hiho

keine Ahnung bei mir geht es, es bleibt keine Leerzeile!!!
hast Du vielleicht "natürliche Feinde" eingebaut? (verbundene Zellen)

 

Hallo Chris!

Nein - keine "natürlichen Feinde".
Versteckte Spalten habe ich einige - aber keine verb. Zellen...

Blattschutz ist drin, der wird per Makro vor diesem Script mit unprotect raus und nach dem Einfügen einer Zeile wieder reingenommen.
Daran sollte es aber auch nicht liegen.

Hast Du noch eine Idee?

Gruß
Mike

 

Hallo nochmal!

Kann es denn sein (diesen Eindruck habe ich in meiner Tabelle), daß bei einem wiederholten Ausführen des Makros der Cursor nicht korrekt auf A6 platziert wird? Das im Prinzip das Makro den xlDown an der falschen Position macht, daher auf eine "leere" Zeile trifft, DIESE dann kopiert und in den Datenbereich einfügt?

Kann ich irgendwie vor Beginn des Makros den Cursor "zurücksetzen"?

Habe da echt sonst keine Idee...

Gruß
Mike

 

hiho

NEIN, das hat nichts mit dem Cursor zu schaffen
eine Cursorposition ist zu 99,99% nicht nötwendig wenn richtig geproggt wird!

in der Mappe ist auch ein Blattschutz und Spalten sind auch ausgeblendet
da ist der Teufel wo anderes begraben.

 

Hallo Chris!

ICH HAB'S!

So 'was blödes, mein Blattschutz war das Problem:
Der Befehl "unprotect" kam VOR dem Aufheben des Blattschutzes!
Daher hat er nichts kopiert - und beim Einfügen hat er dann logischerweise einfach leere Zellen eingefügt...

Grrrr!
Danke nochmals für Deine Hilfe!

Gruß
Mike