Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
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
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel kopieren

Formel kopieren
08.07.2015 07:56:03
Bernd
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel kopieren
08.07.2015 08:20:51
hary
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

Anzeige
AW: Formel kopieren
08.07.2015 08:22:47
UweD
Hallo
so ?
Sub FFormel()
Const Zmax As Integer = 100
ActiveSheet.Range("C2:C" & Zmax).Formula = "=" & Range("D1")
End Sub

Gruß UweD

Besten Dank!
08.07.2015 16:49:52
Bernd
Klappt wie gewünscht!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige