Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nur Werte anstatt Formeln kopieren

Nur Werte anstatt Formeln kopieren
23.01.2006 09:56:28
petra
Hallo zusammen,
habe folgenden Makro

Sub Speichern()
Dim lngFirst As Long
lngFirst = Sheets("Filiale").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lngFirst < 16 Then lngFirst = 16
Sheets("Filiale").Range("A11:L11").Copy Sheets("Filiale").Cells(lngFirst, 1)
End Sub

Jetzt ist das Problem, dass in den Zellen A11 bis L11 Formeln stehen. Der Makro kopiert daher die Formeln. eigentlich sollen aber nur die Werte kopiert und eingefügt werden.
Geht das?
gruß
petra
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nur Werte anstatt Formeln kopieren
23.01.2006 10:06:28
Dr.
Hi,
schau Dir mal die PasteSpecial-Funktion an.
AW: Nur Werte anstatt Formeln kopieren
23.01.2006 10:33:25
petra
Hallo Dr.
was meinst du mit der PasteSpecial-Funktion?
Wo finde ich die?
gruß
petra
AW: Nur Werte anstatt Formeln kopieren
23.01.2006 10:35:25
Dr.
In der VBA-Hilfe. ;-)
Anzeige
AW: Nur Werte anstatt Formeln kopieren
23.01.2006 10:57:50
petra
Habs mal so versucht. aber so funktioniert das nicht.
der übernimmt zum einen ebenfalls nur die Formeln und zum anderen addiert er jetzt nach jeder Ausführung des Makros die Formeln erneut in die Zellen A16:L16.
Was muss anders sein?

Sub Speichern()
Dim lngFirst As Long
lngFirst = Sheets("Filiale").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lngFirst < 16 Then lngFirst = 16
Sheets("Filiale").Range("A11:L11").Copy Sheets("Filiale").Cells(lngFirst, 1)
With Worksheets("Filiale")
.Range("A11:L11").Copy
.Range("A16:L16").PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With
End Sub

Gruß
petra
Anzeige
AW: Nur Werte anstatt Formeln kopieren
23.01.2006 11:21:14
Martin
Hallo Petra,

Sub Speichern()
Dim lngFirst As Long
lngFirst = Sheets("Filiale").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lngFirst < 16 Then lngFirst = 16
Sheets("Filiale").Range("A11:L11").Copy
Sheets("Filiale").Cells(lngFirst, 1).PasteSpecial Paste:=xlPasteValues
End Sub

Gruß
Martin Beck
Anzeige
Danke dir. Funktioniert. o.t.
23.01.2006 11:23:13
petra
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige