Blätter (ohne Formeln) in einem zusammenfassen
furacer
ich habe mir einen Code gebastelt, der aus 3 Blättern immer ab der. 2 Zeile alles in ein Blatt untereinander kopieren soll.
Nun wollte ich gern noch dass er mir nur die Werte und Formatierung mitnimmt, aber daran scheitere ich grad ein bisschen.
Ich habe es mit .PasteSpecial versucht aber da komm ich nicht weiter.
Hier ist der Code
Private Sub CommandButton1_Click()
Range("A2:K5000").Select
Selection.ClearContents
Range("A1").Select
Dim Zeile&, letzteZ&
'Von Blatt 9 bis Blatt 11 zusammenfassen
For i = 9 To 11
With Worksheets(i)
'Von Zeile 2 bis zur vorletzten kopieren nach ZMEK
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row - 1
Zeile = Worksheets("ZMEK").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A2:L" & letzteZ).Copy Worksheets("ZMEK").Range("A" & Zeile)
End With
Next
End Sub
Anzeige