Office: Spalten mit gleicher Formel füllen (FillDown)

nixda · 23. Juni 2008

Hallo,

habe ein Problem.

Ich möchte Spalten mit einer Formel bis zum letzten Datensatz füllen.

Spalte I (Sheet1) und H (Sheet2) muss gefüllt werden. das muss doch mit nur einem Makro gehen, mit 2 Makros kann ich hier nicht arbeiten.

ich habe eine testdatei angehängt; mir fehlt da bestimmt nur eine kleinigkeit, die noch programmiert werden muss.

oder: kann ich die Berechnung auch durch ein Button ausführen lassen, für beide Sheets mit der gleichen Formel?

bitte um hilfe

Gruß
nixda

:)

rastrans · 25. Juni 2008

Dieses Makro gegen das in deiner Datei ersetzten! Code:

Sub Makro1()

Dim lngLastRow As Long

With Sheets("Sheet1")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 9).Address, .Cells(lngLastRow, 9).Address).FillDown
End With

With Sheets("Sheet2")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 8).Address, .Cells(lngLastRow, 8).Address).FillDown
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 12. Januar 2021

Hallo nixda,

folgendes Makro kommt in dein Modul1:
Code:

Private Sub CommandButton1_Click()
With Sheets("Sheet1")
.Range("I2:I" & .Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End With
With Sheets("Sheet2")
.Range("H2:H" & .Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du den Namen des Commandbuttons änderst, musst du das in obigem Makro auch tun (Name hier: CommandButton1).

Gruß Ingolf

Uwe (:o) · 25. Juni 2008

Hi nixda,
ich habe Dein Makro jetzt im Prinzip so gelassen und nur auf beide Blätter angewendet und die verschiedenen Spalten berücksichtigt:
Code:

Sub Makro1()
'
' Makro1 Makro
' Makro am 23.06.2008

' aktuelle Datensatzlänge muss berücksichtigt werden!
' Spalte I muss bis zum letzten Datensatz berechnet bzw. gefüllt werden

Dim lngLastRow As Long

MsgBox ("Zellen werden berechnet. Bitte warten!")

With Sheets("Sheet1")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 9).Address, .Cells(lngLastRow, 9).Address).FillDown
End With
With Sheets("Sheet2")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 8).Address, .Cells(lngLastRow, 8).Address).FillDown
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man kann das ganze auch anders lösen, aber wenn es Dir so reicht ...

nixda · 26. Juni 2008

Hallo an alle,

nur am Befehl with bin ich gescheitert :-(
naja, ist egal.

ich danke euch allen sehr für eure hilfe.

Gruß
nixda

Office: Spalten mit gleicher Formel füllen (FillDown)

Spalten mit gleicher Formel füllen (FillDown)

Spalten mit gleicher Formel füllen (FillDown)

Spalten mit gleicher Formel füllen (FillDown)

Spalten mit gleicher Formel füllen (FillDown) - Similar Threads - Spalten gleicher Formel

Zeilen Nummern gleicher Werte einer Spalte ausgebenn

Gleiche Werte in separate Spalte sortieren

Text auflisten wenn Wert in gleicher Spalte enthält X

Wenn gleiche Werte in einer Spalte, dann Inhalte aus Zeile in eine neue Spalte schreiben

Zwei Spalten nach gleichen Text suchen und Wert aus ander Zelle anzeigen

Summen über Pivot bei Unterpositionen in gleicher Spalte

gleiche Werte in mehreren Spalten