Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel 1:1 ohne Bezugänderung kopieren

Forumthread: Formel 1:1 ohne Bezugänderung kopieren

Formel 1:1 ohne Bezugänderung kopieren
Lutz
Hallo Excel-Profis,
ich muß oft Formeln kopieren und diese dabei aber nicht verändern,
also eine 1:1 Kopie der Formel ohne Anpassung der Zellbezüge.
Ich habe mir ein Makro gebastelt/zusammengesucht welches bei einer Zelle
auch gut Funktioniert.
Option Explicit
Dim rngAZelle As Range 
Sub CopyingSpecial()
Set rngAZelle = ActiveCell
End Sub

Sub PastingNormal2()
ActiveCell.FormulaLocal = rngAZelle.FormulaLocal
End Sub
Jetzt müßte ich das ganze aber nicht immer nur für eine Zelle machen sondern für
einen Bereich.
Kann mir da jemand helfen?
Vielen Dank und viele Grüße Lutz
Anzeige
AW: Formel 1:1 ohne Bezugänderung kopieren
03.05.2011 12:11:21
Reinhard
Hallo Lutz, 

Option Explicit
Sub tt()
Range("F5:F6").Formula = Range("A1:A2").Formula
End Sub

Gruß
Reinhard
AW: Formel 1:1 ohne Bezugänderung kopieren
03.05.2011 12:25:39
Lutz
Hallo Reinhard,
vielen Dank, aber das ist doch auf Feste Zellbezüge programmiert - oder?
Ich bräuchte das ja variabel, d.h. ich kopiere und füge dann irgendwo ein.
Viele Grüße Lutz
Anzeige
AW: Formel 1:1 ohne Bezugänderung kopieren
04.05.2011 09:56:58
fcs
Hallo Lutz,
Sub PastingNormal2()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.FormulaLocal = rngAZelle.FormulaLocal
Next
End Sub

Gruß
Franz
AW: Formel 1:1 ohne Bezugänderung kopieren
04.05.2011 10:16:45
Lutz
Hallo Franz
vielen Dank.
Ich denke, man muß noch etwas bei der Selektio/Kopieren ändern?
Wenn ich erst 
Sub CopyingSpecial()
Set rngAZelle = ActiveCell
End Sub

ausführe, nimmt er nur eine Zelle - auch wenn mehrere kopiert wurden.
Mit einfachem Strg+c geht es auch nicht.
Was muß man noch ändern?
Viele Grüße Lutz
Anzeige
AW: Formel 1:1 ohne Bezugänderung kopieren
05.05.2011 20:39:25
fcs
Hallo Lutz,
hier eine Variante, die erlaubt einen Zellbereich zu kopieren und deren Formeln an einer anderen Position einzufügen. An der Ziel-Position reicht es dann die Startzelle zu wählen.
Gruß
Franz 
Option Explicit
Private rngAzelle As Range
Sub PastingNormal2()
Dim Zelle As Range
If rngAzelle.Cells.Count = 1 Then
For Each Zelle In Selection
Zelle.FormulaLocal = rngAzelle.FormulaLocal
Next
Else
For Each Zelle In rngAzelle
Selection.Range("A1").Offset(Zelle.Row - rngAzelle.Row, _
Zelle.Column - rngAzelle.Column).FormulaLocal = Zelle.Formula
Next
End If
End Sub
Sub CopyingSpecial()
Set rngAzelle = Selection
End Sub

Anzeige
AW: Formel 1:1 ohne Bezugänderung kopieren
06.05.2011 13:43:10
Lutz
Hallo Franz,
vielen Dank geht wurderbar.
Ich habe gerade sogar noch etwas gefunden bei dem es mit einem Schritt geht:
Option Explicit
Public rngNewRange As Range
Public OldRange As Range
Public rngSaveRange As Range
Public ChangeRange As Boolean
Sub PastingFormula()
Dim x As Long
Dim y As Long
rngNewRange = rngNewRange.Resize(rngSaveRange.Rows.Count, rngSaveRange.Columns.Count)
For x = 1 To rngSaveRange.Columns.Count
For y = 1 To rngSaveRange.Rows.Count
rngNewRange(y, x).FormulaLocal = rngSaveRange(y, x).FormulaLocal
Next y
Next x
End Sub
D.h. man nimmt das was im Zwischenspeicher ist.
Auf jeden Fall vielen herzlichen Dank und ein schönes und sonniges Wochenende für Dich.
Viele Grüße Lutz
Anzeige
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Anzeige
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Formel runterkopieren und bestimmte Zellen ausl.
Tom

Hallo zusammen,
vielleicht kann mir jemand bei folgendem Problem helfen:
In Zelle C1 steht eine Formel die ich ab und zu verändern muss, nun möchte ich diese Formel mit Doppelklick runterkopieren, in der Spalte C sind aber bestimmte Zellen, die bestimmte Werte enthalten und die dürfen n...
10.05.2009 18:13:07
Thread-ID: 1074184
6 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Wennformel mit Gültigkeit in Zellen
Sebastian

Hallo Excel-Freunde,
im Anhang findet ihr eine Tabelle die ich soweit schon versucht habe zum laufen zu bringen. Ich habe jetzt nur ein Problem mit einer Wenn-Abfrage wenn in einem Feld schon eine Gültigkeit vorgegeben ist.
Hier die Tabelle: https://www.herber.de/bbs/user/65096.xls
...
15.10.2009 13:25:58
Thread-ID: 1109770
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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