Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

viriv · 14.02.2013

Hi @ll,

ich suche eine Lösung für ein Rechnungsprogramm.

Ich habe 1 Zeile für den Artikel. Dieser beinhaltet einen sverweis und paar farbliche Formatierungen.
Jetzt möchte ich, dass wenn in dieser Zeile IRGENDEIN WERT steht, excel mir automatisch die gleiche zeile nochmal unten drunter einfügt mit gleichem sverweis und Format.

Jemand ne Idee?
Im Netz finde ich immer nur diese ZeilenGeschichte, keiner spricht aber das Formelproblem an.

ichh will quasie die zeile komplett einzueins kopieren lassen im VBA, nur keine Ahnung wie ich das Schreiben soll?!

Jemand ne idee?

mgubler · 14.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

Hallo viriv,

ich habe es nicht getestet, aber es klingt logisch:

Public Function zellformel(ByVal Zelle As Range, Optional bln As Boolean)
'Autor: Jürgen Hennekes
If bln = True Then
zellformel = Zelle.Formula
Else
zellformel = Zelle.FormulaLocal
End If
End Function

Quelle: http://www.j-hennekes.de/1869050.htm

Wenn Du das also etwas umbaust, sollte das Ganze schonmal deine Formel kopieren.
Dementsprechend kannst du also auch, so denke ich, den Rest lösen.

Gruß
Marc

rafoldi · 14.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

Warum Kopieren? Du musst doch nur eine Formel Verweis in der Zelle hinterlegen. Das sollte in VBA kein Thema darstellen.
Grundsätzlich kann auch ein Return eingefügt werden, innerhalb einer Zelle (ALT+Return)

viriv · 14.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

hat das einer fertig als Code?

owieortho · 15.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

Mir erschließt sich momentan nicht, warum Du das machen willst. Warum muss der SVERWEIS und nicht sein Ergebnis kopiert werden? Könntest Du nicht in der zweiten Zeile jede Zelle aus der ersten Zeile referenzieren, sobald irgendein Wert in der ersten steht?
A2: =WENN(UND(A1="";B1="";C1="";D1="");"";A1)
B2: =WENN(UND(A1="";B1="";C1="";D1="");"";B1) usw.
Oder alternativ die Kamera einsetzen. Aber das bringt eben nur die Ergebnisse bzw. das Aussehen in die Kopie, nicht die eigentliche Formel oder Funktion.

O.

viriv · 15.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

Hi weil es sich hier um ein kleine sRechnungstool handelt bei dem ich (aktuell) 2 Artikelzeilen als Standard habe.
ich möchte dass, wenn die 2te Artikelzeile voll geschirben ist, er automatisch nochmal so einen unten drunter setzt, und das immer so weiter....

owieortho · 15.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

In der zweiten Artikelzeile:
in C3:
=WENN(ODER(A3="";B3="");"";SVERWEIS(B3;Tabelle2!$A$1:$C$5;3))
in D3:
=WENN(ODER(A3="";B3="");"";SVERWEIS(B3;Tabelle2!$A$1:$C$5;2))
in E3:
=WENN(ODER(A3="";B3="");"";A3*C3)
anschließend mit Autoausfüllen nach unten kopieren.

Für die Zelle A3:En habe ich eine bedingte Formatierungsregel mit folgender Bedingung erstellt:
=UND($A2<>"";$A3="")
Formatierung Rahmen unten

diese Formatierung habe ich auf A3:En übertragen.

Jetzt müsste ich nur noch eine passende WENN-Funktion in Spalte E mit einbauen, die an passender Stelle die Nettosumme bildet.

viriv · 16.02.2013

AW: Excel: Leerzeile mit gleicher Formel/Formatierung einfügen wenn...

sieht in etwa so aus wie ich es schon habem bis auf die ODER Option.

ich probiere es mal aus, allerdings sieht scheint es so, als würde ich alles mnuell machen müssen?
ich wollte, dass wenn (wie in deinem beispiel) B5(hutmutter) gefüllt wird, automatisch nochmal so eine Artieklzeile eingefügt wird.
ich suche die artikel über ein zusatzfeld "artikelnummer"

mittlerweile habe ich es geschaft durch eine userform und makroaufzeichnung die zeilen einfügen zu lassen....
das funktioneirt gut, is aber halt noch nicht automatisch....