Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel herunterziehen mit VBA

Formel herunterziehen mit VBA
21.07.2015 09:15:52
team11team
Liebes Forum,
ich habe eine Kopierfrage an euch.
Ich würde gerne einzelne Zellen (B8,f8,h8,j8) die Formeln enthalten mit VBA herunterziehen (AutoFill?). Ich hab mir das über den Makrorecorder, für einzelne Zellen schon angeschaut, konnte mir das aber leider nicht so umwandeln das es funktioniert. 
Sub Makro1()
' Makro1 Makro
Range("F8").Select
Selection.AutoFill Destination:=Range("F8:F12"), Type:=xlFillDefault
Range("F8:F12").Select
End Sub

Des Weiteren soll bloß soweit herunter gezogen werden wie auch Daten in der Zelle C stehen oder alternativ wie viele Tabellenblätter es insgesamt gibt.
Das ist bestimmt nicht so schwer und ich sitz grad bloß wieder auf dem Schlauch.
Danke schon mal für eure Hilfe.
Hans

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

Betreff
Datum
Anwender
Anzeige
AW: Formel herunterziehen mit VBA
21.07.2015 09:35:19
hary
Moin
Eine Moeglichkeit. 
Dim zelle As Range
For Each zelle In Range("B8,F8,H8,J8")
zelle.Resize(Cells(Rows.Count, 3).End(xlUp).Row - 7, 1).Formula = zelle.Formula
Next

gruss hary

Hinweis: Fehlerbehandlung ist da zwingend
21.07.2015 09:55:59
Matthias
Hallo hary
Ohne Fehlerbehandlung kann das schief gehen.
Genau dann, wenn es keine Daten in Spalte(3) ab C8 gibt.
Gruß Matthias

AW: Hinweis: Fehlerbehandlung ist da zwingend
21.07.2015 10:08:25
hary
Moin Matthias
Stimmt, Kaufe ein Max. 
 zelle.Resize(Application.Max(8, Cells(Rows.Count, 3).End(xlUp).Row) - 7, 1).Formula = zelle.Formula

gruss hary

Anzeige
AW: Formel herunterziehen mit VBA
21.07.2015 09:41:16
Matthias
Hallo
Für Spalte("F")
Dim LoLetzte
LoLetzte = Cells(Rows.Count, 3).End(xlUp).Row
If LoLetzte > 8 Then
Range("F8").AutoFill Destination:=Range("F8:F" & LoLetzte), Type:=xlFillDefault
End If
Gruß Matthias

AW: Formel herunterziehen mit VBA
21.07.2015 10:18:34
team11team
Morgen Matthias,
Morgen Hary,
funktioniert super vielen Dank.
Hilfe auf die man sich verlassen kann.
Schönen Tag.
Hans

300 Forumthreads zu ähnlichen Themen

Formeln "runterziehen"
Peter

Hallo Leute,
ich habe mal folgende Frage:
Ich möchte verschiedene Automodelle miteinander vergleichen. Man gibt unter anderem die Jahreskilometerleistung, den Kraftstoff und den Verbrauch ein und Excel berechnet dann für das jeweilige Modell die Kosten. Die Liste der Fahrzeuge besteht a...
14.09.2008 19:08:27
Thread-ID: 1009609
6 Beiträge
Anzeige
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige
Fortlaufendes 3er Datum herunterziehen in Tabelle
Stefan

Hallo,
ich möchte in einer Exceltabelle das Datum fortlaufend herunterziehen. Allerdings ist es für 3 Schichten. Das heisst in Zelle A1, A2, A3 ist der 01.01.2009 . In Zelle A4, A5, A6 ist der 02.01.2009 usw.
Ist es irgendwie möglich das fortlaufend herunterzuziehen bis zum 31.01.2009...
04.12.2008 11:28:00
Thread-ID: 1030109
6 Beiträge
Reiter in Formel; dann runterziehen
Michael

Hallo.
Ich habe in einer Excel-Mappe mehrere Reiter / Sheets. Ich benötige davon 12 Reiter, Jan bis Dez..
Aus diesen soll jeweils eine Zelle entnommen werden. Sprich =Januar!A$38
Da solche ähnliche Formeln aber noch öfter vorkommen, würde ich es vorziehen, wenn ich die Monatsnamen (...
10.12.2008 10:40:00
Thread-ID: 1031600
2 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
Worksheet_change-Ereignis auf eine Spalte beziehen
Dennis

Hallo Forum,
kann man das worksheet_change Makro so gestalten, dass nicht das ganze Tabellenblatt überwacht wird, sondern nur Spalte A-C?
Danke!
Gruß Dennis
10.06.2009 08:36:09
Thread-ID: 1080323
8 Beiträge
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
3
5
1
5
1
6
7
2
2
4
4
4
5
5
1
6
3
2
9
3
5
6
2