Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Einfach: Wert kopieren nicht Formel

Betrifft: VBA Einfach: Wert kopieren nicht Formel von: Sascha
Geschrieben am: 12.09.2014 10:24:14

Guten Tag,

und da habe ich noch eine einfach Frage.

Sheets("maske").Range("B2:B2").Copy Sheets("Datenbank").Cells(i, 2)
Kopiert mir den Sverweis der Zelle. Ich möchte aber nur den Zahlenwert haben.

Ich habe es mit pastspecial etc versucht. Aber ich weiß nicht wie das aussehen muss.

Entschuldigt diese dumme Frage.

  

Betrifft: AW: VBA Einfach: Wert kopieren nicht Formel von: Hajo_Zi
Geschrieben am: 12.09.2014 10:26:16

Sub Werte()
'   Formeln ersetzen durch Werte ohne Formate
    Columns("B:C").Copy
    Columns("B:C").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False         'Zwischenspeicher löschen
End Sub

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
GrußformelHomepage


  

Betrifft: AW: VBA Einfach: Wert kopieren nicht Formel von: Daniel
Geschrieben am: 12.09.2014 13:43:33

Hi

nur Werte kann man in VBA so übertragen:

Sheets("Datenbank").Cells(i, 2).Value = Sheets("maske").Range("B2").Value

bei diesem Verfahren muss man bei grösseren Zellbereichen selbst darauf achten, dass Quell-Bereich un und Zielbereich gleich gross sind.


alternativ mit Copy-Paste
Sheets("maske").Range("B2:B2").Copy
Sheets("Datenbank").Cells(i, 2).Paste Special xlpastevalues
Gruß Daniel


 

Beiträge aus den Excel-Beispielen zum Thema "VBA Einfach: Wert kopieren nicht Formel"