Office: Anpassung eines VBA-Codes

Hallo zusammen,

den nachstehenden VBA-Code (zur Erstellung einer Sammeltabelle aus zwei bestehenden gleichen Tabellen) soll insoweit angepasst werden das nur die Werte (nicht die Formeln) kopiert werden.

Code:

Dim Letzte As Long, ws As Worksheet
Sheets("Tabelle 3").Range("2:65536").ClearContents
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle 1", "Tabelle 2"
Letzte = Sheets("Tabelle 3").Range("A65536").End(xlUp).Row + 1
ws.Range("A2").CurrentRegion.Offset(2, 0).Copy Sheets("Tabelle 3").Cells(Letzte, 1)
End Select
Next ws

Hab schon ein bischen "rumgespielt", bekomme es aber einfach nicht gebacken. :-?
Für eure Hilfe wäre ich euch dankbar

LG
N3O

 

Warum einfach wenn auch umständlich!

Hab das Problem umgangen indem ich die Daten in Tabelle 1 u. 2 kopiert (nur Werte), das genannte Makro ausgeführt und die überflüssigen Zellen dann gelöscht habe. Natürlich alles im VBA.

Ganz schön umständlich! :roll:

 

Re: Warum einfach wenn auch umständlich!

anstatt

Code:

(bereich2).copy destination:=(bereich2)

hätte sich hier

Code:

(bereich1).copy
(bereich2).pastespecial paste:=xlpastevalues

angeboten

Gruß, Michael