Nur Ergebnis kopieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werbung: CD/DVD Bedrucken Pressen Kopieren Hüllen

[Excel 2002] Nur Ergebnis kopieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Thorbln
Office-Hilfe.com-Erfahrener

Anmeldedatum: 22.01.2008
Beiträge: 64
Wohnort: Berlin

Verfasst am: 22.06.2009, 22:08

Ich will das Ergebnis einer Formel, hier in Zelle "E1" auslesen und nur den Zahlenwert in die aktive Zelle Kopieren um mit ihm von dort aus weiter zu rechnen.
Nachfolgendes Macro kopiert mir aber nur die Formel mit der ich nichts anfangen kann.
Was muss ich verändern um nur den Wert in die Zielzelle zu schreiben?

Sub kopieren()
Sheets("Bilanz").Range("e1").Copy Destination:=Sheets("Bilanz").Range(ActiveCell.Address)
End Sub

Danke im voraus

Mafiosi
Office-Hilfe.com-Neuling

Anmeldedatum: 07.11.2006
Beiträge: 12
Wohnort: Hamburg

Verfasst am: 22.06.2009, 23:10

Warum kopierst du nicht das Ergebnis in die Zelle und sagt dann bei der Einfügen-Option "Zellen verknüpfen" ? Also das wäre der einfachste Weg.

Gruß
Mafiosi

_________________
Gruß Enrico :bye

Thorbln
Office-Hilfe.com-Erfahrener

Anmeldedatum: 22.01.2008
Beiträge: 64
Wohnort: Berlin

Verfasst am: 23.06.2009, 10:18

Weil ich eine Ursprungszelle aber immer andere Zielzellen habe

Thomas Ramel
MVP für Microsoft Office Excel

Anmeldedatum: 26.04.2009
Beiträge: 75

Verfasst am: 23.06.2009, 10:31

Grüezi Torbin

Arbeite mit den Referenzen und vor allem den Eigenschaften der Ranges:

ActiveCell.Value = Sheets("Bilanz").Range("e1").Value

_________________
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Thorbln
Office-Hilfe.com-Erfahrener

Anmeldedatum: 22.01.2008
Beiträge: 64
Wohnort: Berlin

Verfasst am: 23.06.2009, 19:35

Hi Thomas,
könntest du das für einen Dau genauer erklären?
wenn ich
Sheets("Bilanz").Range("e1").Copy
durch
ActiveCell.Value = Sheets("Bilanz").Range("e1").Value
ersetze, bekomme ich einen systaxfehler.

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1243
Wohnort: Neubrandenburg

Verfasst am: 23.06.2009, 19:41

Code:

Option Explicit

Sub kopieren()
Sheets("Bilanz").Range("e1").Copy
Sheets("Bilanz").Range(ActiveCell.Address).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False 'Zwischenspeicher löschen
End Sub

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

Thorbln
Office-Hilfe.com-Erfahrener

Anmeldedatum: 22.01.2008
Beiträge: 64
Wohnort: Berlin

Verfasst am: 23.06.2009, 23:59

Danke Hajo,
genau das was ich gesucht habe.
Funktioniert 1a

Thomas Ramel
MVP für Microsoft Office Excel

Anmeldedatum: 26.04.2009
Beiträge: 75

Verfasst am: 24.06.2009, 00:10

Grüezi Torbin

Thorbln hat Folgendes geschrieben:

wenn ich
Sheets("Bilanz").Range("e1").Copy
durch
ActiveCell.Value = Sheets("Bilanz").Range("e1").Value
ersetze, bekomme ich einen systaxfehler.

Wrum den Zwischenspeicher verwenden und ihn anschliessend löschen wenn es auch direkt geht?

Wo genau bekommst Du denn den Syntax-Fehler?

Mit Code-Fragmenten alleine kommen wir hier kaum weiter, wenn Du bloss vorne ersetzt hast, den zweiten Teil aber stehen liessest kann es nicht klappen.

Der vollständige Code wäre:

Sub tr()
ActiveCell.Value = Sheets("Bilanz").Range("e1").Value
End Sub

_________________
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	VBA / kopieren+inhalte einfügen-->...	Gomorra	Microsoft Excel Hilfe	5	16.08.2010, 10:11
	Nach untenzihen zum Kopieren oder Ver...	Martin68	Microsoft Excel Hilfe	2	07.08.2010, 10:49
	Zellen verlieren Bezug bzw. Verknüpfu...	MSiudeja	Microsoft Excel Hilfe	0	18.07.2010, 20:56
	Tabellen - Zeilenhöhen kopieren	macianer	Microsoft Word Hilfe	0	07.07.2010, 10:51
	Zellen kopieren - kleine Hilfestellung	Ijoohn	Microsoft Excel Hilfe	1	25.06.2010, 21:28

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de