Automatisches Einfügen eines Zellblockes

[Vaney95]

Hallo in die Runde,

Ich habe bereits in einer Facebook Gruppe um Hilfe gebeten und möchte es hier auch gern tun. 

Ich glaub ich brauch Eure Hilfe und ich denke es handelt sich um ein Makro bzw mehrere.
Ich muss beruflich eine Projektmappe anlegen, in welcher mein Chef (er hat gar keine Excelkentnisse) einfach arbeiten kann.


Das erste Makro, welches ich benötige soll in der Zeile unterhalb der gerade ausgewählten Zelle eine neue Zeile mit den selben Formeln, wie die Zeile oben drüber einfügen. 

Toll wäre auch, wenn die Formeln der Ergebniszeile automatisch angepasst werden würden. 
Theoretisch würde das mit einer intelligenten Tabelle funktionieren, allerdings ist das angehangene Format vorgegeben und dort enthalten die Überschriftszeilen verbundene Zellen.

Das zweite Makro sollte einen kompletten Block an Zeilen erstellen. (Kostenstelle mit einer Zeile zur Eingabe und der darunter liegenden Ergebniszeile) -> siehe Bild.

Vielen Dank für Eure Hilfe!
Vanessa

[Cadmus]

...allerdings ist das angehangene Format...

Du musst rechts auf "Attachment hinzufügen" klicken, damit die Datei hochgeladen und angezeigt wird.

[Vaney95]

Danke für den Hinweis, jetzt ist es angehangen.

[schauan]

Hallöchen Vanessa,

kopieren ginge im Prinzip so:

Code:

Option Explicit
Sub Makro1()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).Insert Shift:=xlDown
End Sub

Für den Code kannst Du einen Button einfügen oder eine Tastenkombi festlegen. Allerdings könnte ich mir vorstellen, dass der nicht wirklich in jeder Zeile funktionieren sollte, oder?

[Vaney95]

Vielen Dank,

leider funktioniert das bei allen Zeilen, nur nicht bei der Eingabezeile. Woran könnte das liegen?

Hast du für die anderen Probleme auch noch eine Lösung für mich?

[schauan]

Hallöchen,
Wenn Du mit Eingabezeile nicht die Zeile im Blatt sondern oben über dem Blatt die Zeile meinst da kann man nicht per code eine weitere Zeile einfügen. Zieh den Bereich einfach größer.

[marose67]

Hallo Andre,
ich denke dem TE ist nicht bewusst, dass er erst einmal eine Zelle markieren muss.

Kostenstelle	Erläuterung/Beschreibung
N.N.
copy
Summe

Microsoft Excel Objekt Tabelle1

Option Explicit 

Sub Makro1() 

ActiveCell.EntireRow.Copy 

ActiveCell.Offset(1, 0).Insert Shift:=xlDown 

ActiveCell.Offset(1, 0).Value = "copy" 

End Sub 

Die Tasten Komi gibt es bereits ... Strg - "+"
Gruß
Marcus

[Vaney95]

Hallo,

Doch ist mir bewusst, das Makro funktioniert auch super, wenn es außerhalb von einer intelligenten Tabelle benutzt wird. Da ich aber die einzelnen Kostenstellen zu intelligenten Tabellen umgewandelt habe, damit die Ergebniszeile sich automatisch aktualisiert, scheint dieses Makro nicht mehr zu funktionieren. Kann das sein?

Danke und LG

[schauan]

Hallöchen,

bei einer Tabelle ist es vorteilhaft, erst eine Zeile einzufügen und dann die Daten hineinzukopieren, z.B.

Code:

Sub Makro1()
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).PasteSpecial
End Sub

Könnte man aber auch auf die Tabelle beschränken.

[RPP63]

Moin!
Nicht in den falschen Hals bekommen!

allerdings ist das angehangene Format vorgegeben

Von wem?
Dass die "Tabelle" (es ist ja eher ein auf Excel (schlecht) heruntergebrochenes Blatt Papier) Murks ist, sieht man ja bereits daran, dass ein simples Strg+p schlappe 4.685 Blatt Papier benötigt.

Sehr viel besser, als an den Symptomen herumzudoktern, wäre eine komplette Überarbeitung der Datei in Form einer korrekten Liste.
Dort gibt es halt keine Leerzeilen und keine verbundenen Zellen.

Die Auswertung respektive ein "ansehnlicher" Ausdruck spricht dem nicht entgegen, sondern ganz im Gegenteil!

Gruß Ralf