Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel in jeder zweiten Zelle, nicht Zeile

Formel in jeder zweiten Zelle, nicht Zeile
27.10.2017 15:16:26
Christian
Hallo Zusammen,
ich steh im Wald und seh die Bäume nicht.
Ich möchte eine Formel aus D6 in jede zweite Zelle unterhalb D6, ab D8 so kopieren, dass der Zeilenindex "mitläuft". Wenn also in D6 = F6+1 steht, soll in D8 = F8 +1 + übernommen werden. Dabei sollen die Werte in jeder n+1nten Zelle stehen bleiben und nicht überschreiben werden. Also F7="CHRISTIAN" soll "CHRISTIAN" bleiben.
Bis hierhin habe ich es geschafft - aber die Formel bleibt starr:
Sub Test2()
Dim intRow As Integer
z = 8
For intRow = 6 To 100 Step 2
Range("A" & z & ":A" & z).Formula = Range("A6:A6").Formula
z = z + 2
Next intRow
End Sub
Kann mir jemand bitte den Baum zeigen?;)
Vielen Dank und viele Grüße
Christian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in jeder zweiten Zelle, nicht Zeile
27.10.2017 15:39:48
Hajo_Zi
Hallo Christian,
Option Explicit
Sub Test2()
Dim intRow As Long
For intRow = 8 To 100 Step 2
Range("A6").Copy Range("A" & intRow)
Next intRow
End Sub

Kein Abspann Text, da nur Notrechner.
AW: Formel in jeder zweiten Zelle, nicht Zeile
27.10.2017 16:01:10
Christian
SUPER! Danke!
FormlaR1C1
28.10.2017 13:06:08
Daniel
Hi
In der Schreibweise .Formula werden die relativen Zellbezüge nicht relativ, sondern absolut beschrieben.
Daher musst du hier FormulaR1C1 verwenden.
Außerdem brauchst du bei Einzelzellen die Adresse nicht wiederholen:
Cells(z, 1).FormulaR1C1 = Range("A6").FormulaR1C1
Gruß Daniel
Anzeige
AW: FormlaR1C1
28.10.2017 14:10:46
Christian
...und wieder etwas gelernt! Herzlichen Dank!
AW: Formel in jeder zweiten Zelle, nicht Zeile
28.10.2017 15:23:38
Gerd
Moin Christian!
Sub Test3()
Dim lngRow As Long
Dim Z As Range
Set Z = Cells(8, 1)
For lngRow = 10 To 100 Step 2
Set Z = Union(Z, Cells(lngRow, 1))
Next lngRow
Cells(6, 1).Copy
Z.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
Set Z = Nothing
End Sub

Gruß Gerd

376 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige