Formel kopieren

Bild

Betrifft: Formel kopieren
von: Bernd
Geschrieben am: 08.07.2015 07:56:03

Hallo zusammen,
ich möchte gerne eine Formel, die ich in eine bestimmte Zelle eintrage (aber ohne "=")in einen vorgebenen Spaltenbereich kopieren (aber dann mit "=").
Ich habe eine Musterdatei angehängt mit ergänzenden Kommentaten.
https://www.herber.de/bbs/user/98697.xlsx
Gruß,
Bernd

Bild

Betrifft: AW: Formel kopieren
von: hary
Geschrieben am: 08.07.2015 08:20:51
Moin
Waehle den Bereich mit der maus aus und starte das Makro.

Sub Formeleintragen()
With Selection
.FormulaLocal = "=" & Range("D1") '--FormulaLocal braucht deutsche schreibweise
End With
End Sub

oder Bereich fest.
Sub Formeleintragen()
With Range("C2:C100")
.FormulaLocal = "=" & Range("D1") '--FormulaLocal braucht deutsche schreibweise
End With
End Sub

oder bis letzte SpalteB.
Sub Formeleintragen()
With Range("C2:C" & Cells(Rows.count,2).end(xlup).Row)
.FormulaLocal = "=" & Range("D1") '--FormulaLocal braucht deutsche schreibweise
End With
End Sub

gruss hary

Bild

Betrifft: AW: Formel kopieren
von: UweD
Geschrieben am: 08.07.2015 08:22:47
Hallo
so ??

Sub FFormel()
    Const Zmax As Integer = 100
    ActiveSheet.Range("C2:C" & Zmax).Formula = "=" & Range("D1")
End Sub

Gruß UweD

Bild

Betrifft: Besten Dank!
von: Bernd
Geschrieben am: 08.07.2015 16:49:52
Klappt wie gewünscht!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel kopieren"