Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1324to1328
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
Nur Zellwert kopieren
11.08.2013 18:21:54
Golem
Hallo Excel-Fachleute,
mit folgenden Code kopiere ich vom Tabellenblatt "Menü" ( Zelle C4 )
zum Tabellenblatt "Basiszinsen" ( Zelle C150..... ).
Private Sub CommandButton49_Click()
' Basiszins in Spalte Basiszinssatz eintragen
Dim IntZeile As String
IntZeile = Worksheets("Menü").Range("C43")
ThisWorkbook.Worksheets("Menü").Range("C49").Copy _
ThisWorkbook.Worksheets("Basiszinsen").Range("C" & IntZeile)     '  variabler  _
Zelleintrag
End Sub
Funktioniert auch einwandfrei.
Nur, es wird mit Formel und Formatierung kopiert. Ich benötige aber nur den Zellwert.
Ich habe mit .Value,
ThisWorkbook.Worksheets("Basiszinsen").Range("C" & IntZeile).Value
und
mit .PasteSpecial Paste:=xlValues,
ThisWorkbook.Worksheets("Basiszinsen").Range("C" & IntZeile).PasteSpecial Paste:=xlValues
ausprobiert, den Zellwert zu kopieren.
Aber es funktioniert nicht.
Kann mir jemand von Euch behilflich sein?
Schöne Grüße
Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Zellwert kopieren
11.08.2013 18:32:34
Hajo_Zi
Hallo Werner,
Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues       ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub

Anzeige
AW: Nur Zellwert kopieren
11.08.2013 18:39:21
ing.grohn
Hallo Werner,
probier mal:
 Dim Zeile As Long
Zeile = Sheets("Tabelle1").Range("D1").Value
Sheets("Tabelle1").Range("D11:F11").Copy
Sheets("Tabelle2").Range("b" & Zeile).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

(PasteSpecial mit Makrorecorder)
Mit freundlichen Grüßen
Albrecht

AW: Nur Zellwert kopieren
11.08.2013 19:06:21
Golem
Hallo Albrecht,
einen schönen Dank für Deine Hilfe. Dein Code funktioniert einwandfrei.
Mit meinem Code habe ich mit PasteSpecial keinen Erfolg gehabt.
Schöne Grüße
Werner
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige