Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formeln ausfüllen

Formeln ausfüllen
13.01.2016 08:59:29
Basti
Hallo zusammen,
ich füge über ein Makro (s.u.) eine neue Zeile in meine ToDo-Liste ein. Das funktioniert soweit
Nun soll in der Spalte A der neuen Zeile der Wert der A-Zelle von der darüber liegenden Zeile plus 5 stehen. Zusätzich sollen in der neuen Zeile in den Spalten H und I die Formeln von den darüber liegenden Zellen nach unten (mit Formatierung) ausgefüllt werden.
Würde mir jemand helfen?
Sub EineZeileEinfuegenUndKeineFarbe()
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

LG Sebastian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln ausfüllen
13.01.2016 09:29:07
JoWE
Hallo Sebastian,
evtl. so: (ungetestet) unmittelbar hinter 'End With':
ActiveCell = Cells(ActiveCell.Row - 1, 1) + 5
Gruß
Jochen

AW: Formeln ausfüllen
13.01.2016 09:34:05
JoWE
sorry hatte den zweiten Teil übersehen.
So vllt.
    ActiveCell = Cells(ActiveCell.Row - 1, 1) + 5
Range(Cells(ActiveCell.Row - 1, 8), _
Cells(ActiveCell.Row - 1, 9)).Copy _
Destination:=Cells(ActiveCell.Row, 8)
Gruß
Jochen

AW: Formeln ausfüllen
13.01.2016 12:02:05
Basti
Jochen, vielen Dank. Funktioniert wunderbar!

AW: Danke für die Rückmeldung oT
13.01.2016 12:18:29
JoWE
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige