Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel in Spalte mit VBA runterkopieren

Formel in Spalte mit VBA runterkopieren
12.01.2005 13:25:24
georg
Hallo zusammen,habe folgende Anfrage:
Ich möchte in einer dynamischen Tabelle eine Funktion in einer Spalte bis zum Listenende kopieren. DAs sieht so aus. Spalte A und Spalte B sollen in Spalte C verkettet werden und automatisch bis zum Listenende kopiert werden.
Kann mir da mal jemand einen Tip geben? Dank vorab.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Spalte mit VBA runterkopieren
Reinhard
Hi georg,

Sub kopier()
Dim Letzte As Long, n As Long
Letzte = Range("A65536").End(xlUp).Row
For n = 1 To Letzte
Range("C" & n).FormulaLocal = "=A" & n & "&B" & n
Next n
End Sub

Gruß
Reinhard
AW: Formel in Spalte mit VBA runterkopieren
12.01.2005 13:36:39
daniel
Ich hoffe das hilft dir weiter.
Gruss
Daniel

Sub verkettet()
Dim LastRow As Integer
Dim I As Integer
LastRow = Cells(60000, 1).End(xlUp).Row
For I = 1 To LastRow
Cells(I, 3) = Cells(I, 1) & Cells(I, 2)
Next
End Sub

AW: Formel in Spalte mit VBA runterkopieren
12.01.2005 14:43:52
Georg
Erst einmal Danke für Eure Tipps,
ich habe mich wahrscheinlich nicht ganz deutlich ausgedrückt.
Die Funktion von Verketten steht schon in einem Template, das in dem Makro automatisch geöffnet wird. Zudem sollen noch andere Funktionen in verschiedene Spalten, die sich auf die Verkettungsspalte beziehen runterkopiert werden. Mir geht es darum die Funktionen, die in der 2 Reihe stehen bis ans Listenende zu kopieren.
Gibts da noch einen Tipp!
Anzeige
AW: Formel in Spalte mit VBA runterkopieren
u_
dann so:

Sub Formel_runter()
Dim iLZ As Long
iLZ = Cells(1, 1).End(xlDown).Row
Cells(2, 3).AutoFill Destination:=Range(cells(2,3), Cells(iLZ, 3))
End Sub

Gruß
Alles zu umständlich ;_)
u_
Hallo,

Sub verketten()
Dim iLZ As Long
iLZ = Cells(1, 1).End(xlDown).Row
Range(Cells(2, 3), Cells(iLZ, 3)).FormulaR1C1 = "=RC[-2]&RC[-1]"
End Sub

Gruß
AW: Formel in Spalte mit VBA runterkopieren
UweD
Hallo
sieh dir mal AutoFill an
(aus der Hilfe)
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange
Gruß UweD
Anzeige

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige