Formeln kopieren

Forumthread: Formeln kopieren

Formeln kopieren

29.05.2006 07:28:03

Ralf

Hallo Excel - Experten,
ich habe eine Tabelle, wobei in Spalte N durchgehend Daten stehen.
Nun möchte ich die Formeln, die daneben stehen ( Spalten O 2 bis Q 2)mit
einem Makro ( Button :-)immer bündig zur Spalte N runterkopieren.
Nun ist es aber leider auch möglich, daß sich die Liste verkürzt,
und dann möchte ich gerne, dass Excel irgendwelche Leerzellen in die
Spalten O bis Q kopiert, aber nur so hoch bis in Spalte N wieder
Werte stehen. Es muß also immer bündig mit Spalte N sein !
Ich bin leider noch VBA Anfänger und weiß daher nicht, ob soetwas
überhaupt geht, versucht habe ich es schon, aaaaaaber.............:-)
deswegen frage ich Euch ja jetzt auch :-)
Gruß
Ralf

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formeln kopieren

29.05.2006 07:47:29

WernerB.
Danke Werner !!!

29.05.2006 08:36:20

Ralf
AW: Formeln kopieren

29.05.2006 08:05:16

Erich
Danke Erich !!!

29.05.2006 08:45:35

Ralf

AW: Formeln kopieren

29.05.2006 07:47:29

WernerB.

Hallo X,
wie gefällt Dir das?


Sub Ralf()
Dim laR As Long
laR = Cells(Rows.Count, 14).End(xlUp).Row
If laR <= 2 Then Exit Sub
Range("O3:Q" & Rows.Count).ClearContents
Range("O2:Q2").Copy
Range("O3:Q" & laR).PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Danke Werner !!!

29.05.2006 08:36:20

Ralf

Hallo Werner,
vielen Dank ! Du hast mir super geholfen,
ich habe Deinen Code natürlich sofort ausprobiert,
und wie nicht anders zu erwarten :-),.......es funktioniert !!!
Ganz vielen Dank und noch einen schönen Montag
wünscht Dir
Ralf

AW: Formeln kopieren

29.05.2006 08:05:16

Erich

Hallo Ralf,
oder damit?

Option Explicit
Private Sub CommandButton1_Click()
Dim lngZ As Long
For lngZ = 3 To Cells(Rows.Count, 14).End(xlUp).Row
If IsEmpty(Cells(lngZ, 14)) Then
Range(Cells(lngZ, 15), Cells(lngZ, 17)).ClearContents
Else
Range(Cells(2, 15), Cells(2, 17)).Copy Cells(lngZ, 15)
End If
Next lngZ
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Danke Erich !!!

29.05.2006 08:45:35

Ralf

Hallo Erich,
auch Dein Code läuft ganz prima ---
VIELEN DANK !!!
Viele Grüße von Ralf aus Osnabrück :-)

Beliebteste Forumthreads (12 Monate)

Forumthread: Formeln kopieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread