Hallo,
wie kann ich das Problem umgehen, dass ich jedes Mal die Tabelle neu nachziehen muss, sobald ich ein Formel kopiere, ohne jetzt die Tabelle erst am Ende anzufertigen?! -
Sobald ich ein Formel entwickelt habe und diese nach unten, oben, rechts oder links verschiebe, verschwinden die Linien meiner Tabelle, d.h. muss sie jedes Mal wieder manuell hinzufuegen - auf die Dauer ist es doch ganz schoen nervig.
Vielen Dank und viele Gruesse
Michael
Hi Michael,
wenn Du die Formel per Ausfüllfunktion kopiert hast, erscheint am unteren rechten Rand ein kleines Symbol. Wenn Du da drauf klickst kannst Du wählen ob die Formatierung mit übernommen werden soll oder nicht. Das nennt sich „Auto-Ausfülloptionen“. (Frage mich immer wieder wer sich solche Bezeichnungen ausdenkt!)
Gruß
Fronk
Sobald ich ein Formel entwickelt habe und diese nach unten,
oben, rechts oder links verschiebe, verschwinden die Linien
meiner Tabelle, d.h. muss sie jedes Mal wieder manuell
hinzufuegen - auf die Dauer ist es doch ganz schoen nervig.Vielen Dank und viele Gruesse
Michael
Hallo,
eine Ein-Klick-Lösung in vba:
Sub Formel_nach_unten_kopieren()
’ STRG-u
’ Die Formel in der aktiven Zelle wird in alle Zellen darunter
’ kopiert bis zur letzten belegten Zeile
ar = ActiveCell.Row
ac = ActiveCell.Column
lr = ActiveCell.SpecialCells(xlLastCell).Row
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range(Cells(ar, ac), Cells(lr, ac)), Type:=xlFillDefault
Cells(ar, ac).Select
End Sub
Freundliche Grüße
Thomas
Sorry, noch nicht ganz
Das Beibehalten der Formate klappt so nicht.
Der folgende Code sollte das eigentlich tun, aber da gibt es noch eine Fehlermeldung in der neuen Zeile ( jedenfalls bei excel 2003 ).
Vielleicht findet es jemand schneller heraus als ich ( stehe ein Bisschen auf Kriegsfuß mit Ranges ).
Sub Formel_nach_unten_kopieren()
’ STRG-u
’ Die Formel in der aktiven Zelle wird in alle Zellen darunter
’ kopiert bis zur letzten belegten Zeile
ar = ActiveCell.Row
ac = ActiveCell.Column
lr = ActiveCell.SpecialCells(xlLastCell).Row
Selection.Copy
Application.CutCopyMode = False
'Selection.AutoFill Destination:=Range(Cells(ar, ac), Cells(lr, ac)), Type:=xlPasteFormulas
Range(Cells(ar, ac), Cells(lr, ac)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(ar, ac).Select
End Sub
Hallo,
das hat geholfen, vielen Dank!
Viele Gruesse
Michael