Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Formeln kopieren

VBA: Formeln kopieren
joerg
Hallo,
wie kann ich denn mit VBA Formeln so von einer Zelle in die andere kopieren, dass die Bezüge entsprechend angepasst werden? habe ActiveSheet.Range("A" & Target.Row & ":Z" & Target.Row + 1).FillDown und ActiveSheet.Rows(Target.Row + 1).Formula = Rows(Target.Row).Formula probiert, aber beides funktioniert ja leider nicht, also bzw. werden die Bezüge eben nicht angepasst...?
Danke,
Gruss,
Jo
ganz normal mit Copy und Paste?
08.02.2010 16:12:13
Björn
Hallo,
warum nicht über Copy und Paste?
Das ist dann nichts anderes wie Str+C und Strg+V.
Ansonsten ist es schwierig zu sagen, weil ich nicht weiß, wie Deine Formeln aussehen und was du mit "angepasst" meinst.
Gruß
Björn B.
Ja, das wäre dann DIE andere Möglichkeit! ;-) orT
08.02.2010 16:19:54
Luc:-?
Gruß Luc :-?
AW: ganz normal mit Copy und Paste?
08.02.2010 16:21:21
joerg
Hm, ist 'Bezüge werden nicht angepasst' denn nicht eindeutig formuliert? Also ich habe zB in Zelle A1 die Formel '=b1 / 2', die Formel möchte ich jetzt mit VBA in Zelle A2 kopieren, wobei... Ich weiss wirklich nicht, wie ich es anders nennen soll: Wobei die Bezüge angepasst werden, so dass in A2 dann als Formel '=b2 / 2' steht. So wie Strg-c/Strg-v, nur eben mit VBA. :)

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row + 1).EntireRow.Insert
' ActiveSheet.Range("A" & Target.Row & ":Z" & Target.Row + 1).FillDown      'geht nicht...
' ActiveSheet.Rows(Target.Row + 1).Formula = Rows(Target.Row).Formula    'geht auch nicht... _
End Sub
Gruss,
Jo
Anzeige
Hä? Hab ich dich schon geschrieben...
08.02.2010 16:25:56
Björn
... hast Du meinen Vorschlag ausprobiert?
Warum kopierst du nicht einfach wenn du kopieren möchtest?
Gruß
Björn B.
AW: Hä? Hab ich dich schon geschrieben...
08.02.2010 16:32:46
joerg
Hi Björn, Wie Du doch an dem codeschnipsel siehst füge ich bei Doppelklick eine Zeile ein. Und jetzt würde ich gern die Formeln aus der Zeile, auf die ich geklickt habe, in die neue Zeile übernehmen. Ich könnte das natürlich auch so machen:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row + 1).EntireRow.Insert
msgbox "Bitte Formeln von Hand kopieren..."
End Sub
...aber automatisch wäre doch irgendwie netter. Oder verstehe ich Dich völlig falsch? Muss eigentlich fast...
gruss,
Jo
Anzeige
ja, tust du...
08.02.2010 16:38:22
Björn
... aber macht ja nix.
versuch es mal so...
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
End Sub
Das wäre dann wie "kopierte Zellen einfügen".
Du kannst auch wie bisher deine Zeile einfügen und dann die mit .Copy und .Paste die Formeln kopieren.
Du hast einfach etwas zu umständlich gedacht...
Gruß
Björn B.
noch was...
08.02.2010 16:33:43
Björn
Habe gerade noch mal getestet, das mit FillDown funktioniert bei mir.
Wie gesagt, ich vermute es liegt an Deiner Formel, aber die sehen wir ja nicht.
Funktioniert es, wenn du es von Hand machst? Also ohne VBA?
Gruß
Björn B.
Anzeige
AW: noch was...
08.02.2010 16:35:10
joerg
Ja, von Hand funktioniert...
Aber ich seh grad erst Deine Antwort an Luc, mir war nicht klar das 'copy' auch eine Funktion in VBA ist (Oder methode?)
Und wenn Du sagtst dass bei Dir filldown auch geht... dann probier ich mal noch ein bisschen, vielleicht hab ich was übersheen...
gruss,
Jo
Das ist auch klar, denn du überträgst ja...
08.02.2010 16:18:23
Luc:-?
...quasi nur einen Text — ...Formula ist Text! — aus einer Zelle in mehrere andere, Joerg,
was soll sich da anpassen...?! M.W. fkt das nur für Matrixformeln mit ...FormulaArray problemlos. Falls es nicht doch noch 'ne andere Möglichkeit, die mir jetzt nicht einfällt, gibt, wirst du das wohl über einen PgmZyklus („Schleife“) zwecks Adressanpassung mit der Laufvariablen realisieren müssen...
Gruß Luc :-?
Anzeige
reden wir jetzt völlig aneinander vorbei?
08.02.2010 16:23:32
Björn
Hallo Luc:-?
also mal auf ganz blöd.
Wenn ich in B1 die Formel =A1 stehen habe und folgdenden Code ausführe 
activesheet.range("B1").copy activesheet.range("B2")

Dann steht in B2 =A2, und somit wurde der Bezug in der Formel angepasst.
Ich verstehe das Problem nicht. Man muss doch nur die Formel richtig schreiben (also an den richtigen Stellen die Dollarzeichen "$" setzen), dann kann man ganz normal kopieren.
Gruß
Björn B.
ok, hab deinen 2 Beitrag zu spät gesehen...
08.02.2010 16:24:15
Björn
hat sich also erledigt.
Ging mir genauso! War wohl fast gleichzeitig! orT
08.02.2010 16:51:34
Luc:-?
Mit ihren Vorgaben stellen die Frager oft auch die „Denkweichen“ des Antworters... ;-)
Gruß Luc :-?
Anzeige
Alles klar, mein Fehler...
08.02.2010 16:38:15
joerg
Björn hat recht, FillDown funktioniert - ich hatte vergessen das .formular = .formula dahinter wegzunehmen...
Danke, gruss,
Jo
Na, dann, viel Freud'...! ;-) Gruß owT
08.02.2010 16:52:59
Luc:-?
:-?

179 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
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
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
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)

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
5
6
2
7
5
3
4
6
4
3
2
2
19
3
2
35
3
2
6
2
5
4
5