Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Macro geht nicht

Macro geht nicht
09.02.2004 14:06:13
Karl
Macro geht nicht?
im Sheets Jan ist das Feld D22 mit einer Formel hinterlegt (=D20-D21), den Inhalt (Ergebnis) möchte ich gern in das Sheets Feb auf Feld D9 der selben Arbeitsmappe kopiert haben. (Nicht die Formel) Bei Feldern ohne Formel funktioniert die Sache. Was mache ich falsch?


Sub feb()
Sheets("Jan").Select
Range("D22").Select
Selection.Copy
Sheets("Feb").Select
Range("D9").Select
ActiveSheet.Paste
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Macro geht nicht
09.02.2004 14:10:08
Raphael
Hallo Karls
Versuchsmal mit
...
ActiveSheet.PasteSpecial Paste:=xlValues
So sollte es gehen.
Gruss aus der Schweiz
raffi
AW: Macro geht nicht
09.02.2004 14:12:46
AndreasS
Hallo,
versuch mal das:

Sub feb()
Sheets("Jan").Range("D22").Copy
Sheets("Feb").Range("D9").PasteSpecial Paste:=xlValues
End Sub

Gruß Andreas
AW: Macro geht nicht
09.02.2004 14:12:50
klaus
beim einfügen musst du unterscheiden, was du einfügen möchtet (siehe auch bearbeiten - inhalte einfügen). und den makrorekorder nutzen, da wird der unterschied deutlich.
gruss
klaus
AW: Macro geht nicht
09.02.2004 14:41:24
Karl
Bringt mir Fehler beim Kompilieren
Syntaxfehler bei Paste:=xlValues

Sub feb()
Sheets("Jan").Select
Range("D22").Select
Selection.Copy
Sheets("Feb").Select
Range("D9").PasteSpecial
Paste:=xlValues
End Sub

Anzeige
AW: Macro geht nicht
09.02.2004 14:43:17
PeterW
Hallo Karl,
warum den Umweg über Copy, schreibe den Wert direkt in die Zielzelle:
Sheets("Feb").Range("D9") = Sheets("Jan").Range("D22")
Gruß
Peter
Danke Peter
09.02.2004 14:46:54
Karl
Sheets("Feb").Range("D9") = Sheets("Jan").Range("D22")
hat geklappt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige