VBA - Destination und PasteSpecial

[Nico_B]

Hallo.

Wie kann ich folgenden Code dahin gehend verändern, dass ich nur die Werte übernommen werden aber nicht die Zellenrahmen?

With Worksheets("MÜ")
    For i = MUE1 To MUE2
        If .Cells(i, 17) = sw And .Cells(i, 11) <> "x" Then
            Union(.Range("E" & i & ":F" & i & ":G" & i), .Range("AF" & i & ":AG" & i & ":AH" & i & ":AI" & i)).Copy _
                 Destination:=Worksheets("MA - FD").Range("A" & j)
            j = j + 1
        End If
    Next i
End With

 

[Meerix]

Sollte mit .PasteSpecial Paste:=xlPasteValues gehen, siehe http://www.office-loesung.de/ftopic302891_0_0_asc.php

 

[Nico_B]

mhh ich kann es nur nirgendwo reinsetzen in den code. Kommt immer Fehler 400.

 

[Meerix]

Wo hast du es eingefügt?

Nach dem Beispiel:

Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
    Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
    With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
        .PasteSpecial Paste:=xlValues           ' Werte
        .PasteSpecial Paste:=xlFormats      ' Formate
    End With
    Application.CutCopyMode = False
End Sub

müsste es bei dir so aussehen:

With Worksheets("MÜ")
    For i = MUE1 To MUE2
       If .Cells(i, 17) = sw And .Cells(i, 11) <> "x" Then
          Union(.Range("E" & i & ":F" & i & ":G" & i), .Range("AF" & i & ":AG" & i & ":AH" & i & ":AI" & i)).Copy _
          Destination:=Worksheets("MA - FD").Range("A" & j) .PasteSpecial Paste:=xlValues 
          j = j + 1
       End If
    Next i
End With

Hier auf Seite 8 unten ist noch ein Beispiel.

Sub NurInhaltKopieren()
   Range("B11").Copy
   Range("E11").PasteSpecial xlPasteValues
   Application.CutCopyMode = False
End Sub

 

[Nico_B]

Hi, genau da hab ich es auch eingebaut gehabt. aber der code wird direkt rot und es funktioniert nicht.