![]() |
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.
![]() ![]() |
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
![]() ![]() |
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
Sheets("maske").Range("B2:B2").Copy Sheets("Datenbank").Cells(i, 2).Paste Special xlpastevaluesGruß Daniel
![]() |