EXCEL: Makro Formel automatisch runter kopieren

Question

EXCEL: Makro Formel automatisch runter kopieren

TASS 0

Hallo Zusammen,

ich habe in meiner Excel in Spalten B2 bis E2 formeln drin.

Ich brauche eine automatisierung, dass sobald in Spalte A (beginnend in Zeile 2) etwas eingetragen wird, dass die Formel in Spalten B-D nach unten kopiert werden. Bis zu der Zeile die in A eingetragen worden ist.

Bsp. A2 bis A15 sind daten eingetragen ->Formel sollten ebenfalls bis Zeile 15 runtergezogen werden

Dankeschön

0 Kommentare

3 Antworten

Ihre Antwort

Answer 1

Thomas L 160.1K Volunteer Moderator

Hallo,

vielen Dank für deine Nachricht.

Eine Ausführung des Makros ist erforderlich.

Markiere meine entsprechende Antwort als Lösung.

Bei weiteren Fragen stehen wir zur Verfügung.

0 Kommentare

Answer 2

TASS 0

Vielen Dank für die Rückmeldung.

Ich habe den Code nur bisschen abgeändern in:

range("B1:B" & LetzteZeile).Filldown

Es hat geklappt nur, es tut nur die formel runterkopieren, wenn ich manuell aus makro ausführen drücke.

Besteht die Möglichkeit, dass es automatisch sobald in Spalte A2:A.... ein Wert ausgefüllt wird, dass die Formel in den anderen Spalten kopiert werden?

0 Kommentare

Answer 3

Hallo,

vielen Dank für deine Anfrage.

Für deinen Zweck kann der nachstehende Code verwendet werden.

Ich freue mich auf deine Rückmeldung.

Sub SpalteB_ausfuellen()
    Dim LetzteZeile As Long
    
    ' Letzte Zeile in Spalte A ermitteln
    LetzteZeile = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' Bereich in Spalte B füllen (hier mit Formel als Beispiel)
    Range("B1:B" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
    Range("C1:C" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
    Range("D1:D" & LetzteZeile).Formula = "=A1*2" ' Ersetzen Sie "=A1*2" durch Ihren Wert oder Ihre Formel
        
    ' Alternativ für reinen Text/Wert ohne Formel:
    ' Range("B1:B" & LetzteZeile).Value = "IhrText"
End Sub