Microsoft Excel

Herbers Excel/VBA-Archiv

Mastertabelle, aber nur Werte kopieren

Betrifft: Mastertabelle, aber nur Werte kopieren von: WalterK
Geschrieben am: 04.10.2014 22:08:14

Hallo,

der nachfolgende Code liest alle Dateien eines Ordners aus und kopiert alle Daten in einer Mastertabelle in Tabelle1 untereinander. Soweit funktioniert alles.

Ich will aber nur Werte kopieren, also keine Formeln. Wie mache ich das?

Option Explicit
Sub zusammenfuegen()
    Dim strDateiname As String
    Dim wksZiel As Worksheet, wkbQuelle As Workbook, wksQuelle As Worksheet
    Dim loLetzte1 As Long
    Dim loLetzte2 As Long
    Dim inLetzte As Integer
    Application.ScreenUpdating = False
    strDateiname = Dir(ThisWorkbook.Path & "\*.xlsm")
    Set wksZiel = ThisWorkbook.Worksheets("Tabelle1")
    Do While strDateiname <> ""
        If strDateiname <> ThisWorkbook.Name Then
            Set wkbQuelle = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & strDateiname)
            Set wksQuelle = ActiveSheet 'ggf. = wkbQuelle.Worksheets(1)
            
            loLetzte1 = wksZiel.UsedRange.SpecialCells(xlCellTypeLastCell).Row
            With wksQuelle
              loLetzte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
              inLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
              .Range(.Cells(3, 1), .Cells(loLetzte2, inLetzte)).Copy _
                    Destination:=wksZiel.Cells(loLetzte1 + 1, 1)
            End With
            
            wkbQuelle.Close True
        End If
        strDateiname = Dir
    Loop
    Set wkbQuelle = Nothing: Set wksQuelle = Nothing: Set wksZiel = Nothing
    Application.ScreenUpdating = True
End Sub
Danke für die Hilfe und Servus, Walter

  

Betrifft: AW: Mastertabelle, aber nur Werte kopieren von: Daniel
Geschrieben am: 04.10.2014 22:27:51

´Hi

statt der Zeile

Quellbereich.Copy Destination:=Zielbereich
folgende Zeilen:
Quellbereich.Copy
Zielbereich.Pastespecial xlpastevalues
Gruß Daniel


  

Betrifft: TipTop, danke Daniel. Servus, Walter von: WalterK
Geschrieben am: 04.10.2014 22:38:43




 

Beiträge aus den Excel-Beispielen zum Thema "Mastertabelle, aber nur Werte kopieren"