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