Hi Jan,
(02.11.2015, 13:51)Jan-Lan95 schrieb: [ -> ]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:
[
attachment=3142]
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
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)
Zitat:Du sparst Dir "lediglich" Formatierungen und Formelweiterführungen.
Gruß Ralf
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
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
Hi Jan,
(02.11.2015, 14:33)Jan-Lan95 schrieb: [ -> ]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
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
Hi Jan,
des Menschen Wille ist sein Himmelreich.
(03.11.2015, 09:07)Jan-Lan95 schrieb: [ -> ]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.