Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
09.05.2024 08:18:18
Feldformatierung (Einzahl/Mehrzahl) ohne VBA
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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 :-)

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige