Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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

328 Forumthreads zu ähnlichen 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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
2
5
6
2
7
2
5
3
3
4
6
4
3
4
2
2
3
2
2
7
3
2
1