Automatisch neue Zeile einfügen

[Rabe]

Hi Jan,

Wenn ich jetzt z.B. noch zusätzlich meine Formeln kopieren möchte, muss ich dann nur den Befehl:

eigentlich brauchst Du nur so zu schreiben:

Code:

.Range("A" & Zeile).Paste

dann werden Formeln, Formatierung und Inhalt kopiert.

Versuche es doch mal wie Ralf es schon vorgeschlagen hat mit einer intelligenten Tabelle:

  Zeile kopieren und formatieren.xlsb (Größe: 20,39 KB / Downloads: 14)

Dann mußt Du Deine Formeln gar nicht mehr kopieren (siehe die beiden Formelspalten rechts) und auch das formatieren kannst Du sein lassen.

Ansonsten teste mal das:
     .Range("A2:N2").Copy
     .Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
     .Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False

[RPP63]

Hi again!
Entweder du nutzt zweimal .PasteSpecial (beim zweiten Mal Paste:=xlPasteFormulas)
oder nutze mein Eigenzitat (Du musst Dir jetzt den monotonen Singsang einer tibetischen Gebetsmühle vorstellen) 

Du sparst Dir "lediglich" Formatierungen und Formelweiterführungen.

Gruß Ralf

[Jan-Lan95]

Hey

Ich habe mich mit intelligenten Tabellen leider bis dato noch nicht beschäftigt. Daher "wähle" ich dich Variante mit zweimal .PasteSpecial

Jetzt gebe ich meine Werte ein, er speichert sie zunächst in Zeile 2 und kopiert meine Formatierung (und die Formlen).
Dann gebe ich neue Werte ein und speichere diese. Jedoch hat er anscheind den gesamten Inhalt kopiert, sodass meine neuen Werte nicht eingetragen , sondern die alten einfach nur kopiert werden.

Code:

.Range("A2:N2").Copy
    .Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    .Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Gruß Jan

[RPP63]

Hallo beratungsresistenter Jan!
1. Wenn Du unbedingt bei Deiner umständlichen Lösung bleiben willst, musst Du Wert- und Formelzellen separat behandeln.
Siehe: http://www.herber.de/forum/archiv/396to4...oblem.html
2. Den ganzen Plumpaquatsch kannst Du Dir (wie x-fach bemerkt) mit der "Tabelle" ersparen! (weitere drei !)

Es gibt (für mich) ab xl2010 fünf wesentliche Verbesserungen ab xl2003:
1. =WENNFEHLER(), wg. meiner Faulheit und dem minimalen Rechenvorteil
2. =AGGREGAT(), eine mächtige Funktion
3. die .INTL-Funktionen wie =NETTOARBEITSTAGE.INTL(), denn es gibt Varianten außerhalb der 5-Tage-Woche
4. die s-Funktionen wie =SUMMEWENNS() u.ä.
5. "intelligente" Tabellen

(weitere relevante Verbesserungen sind in der Auflistung willkommen)

Gruß Ralf

[Rabe]

Hi Jan,

Jetzt gebe ich meine Werte ein, er speichert sie zunächst in Zeile 2 und kopiert meine Formatierung (und die Formlen).
Dann gebe ich neue Werte ein und speichere diese. Jedoch hat er anscheind den gesamten Inhalt kopiert, sodass meine neuen Werte nicht eingetragen , sondern die alten einfach nur kopiert werden.

dann mache es umständlicher als mit intelligenter Tabelle so:

Code:

.Range("A2:N2").Copy              'Formate übertragen
    .Range("A" & Zeile).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    .Range("J2:K2").Copy                   'Formeln kopieren
    .Range("J" & Zeile).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

[Jan-Lan95]

Danke für Eure zahlreichen Hilfen und Eure Geduld!!

Ihr habt mir sehr geholfen, auch wenn ich das mit den 'intelligenten' Tabellen nicht verstanden habe oder auch nicht verstehen wollte...

Aber das wichtigste für mich: Ich habe es jetzt genau so wie ich es wollte ;)

Grüße Jan

[Rabe]

Hi Jan,

des Menschen Wille ist sein Himmelreich.

Ihr habt mir sehr geholfen, auch wenn ich das mit den 'intelligenten' Tabellen nicht verstanden habe oder auch nicht verstehen wollte...

genau deswegen habe ich Dir ja die Beispieldatei mit der intelligenten Tabelle mit angepasstem Makro angehängt (Beitrag von 2.11.15, 13:59 h), damit Du damit spielen kannst.