Paste-Werte Makro
10.10.2005 08:27:29
Chrissi
habe folgendes Makro, das mir Heiko hier in diesem Forum gebastelt hat. Herzlichen Dank nochmal. Leider finde ich nur den Thread nicht mehr.
Hier also das Makro
Sub ZusammenFuehren()
Dim intSheets As Integer
Dim lngLastRow As Long
' Das nur wenn gewünscht, löscht die letzte Tabelle vor dieser Aktion.
Sheets(ActiveWorkbook.Sheets.Count).Cells.Delete
For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(intSheets).UsedRange.Copy
lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1
Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count).Cells(lngLastRow, 1)
Sheets(ActiveWorkbook.Sheets.Count).Rows(lngLastRow).Delete
Next intSheets
Application.CutCopyMode = False
End Sub
Das funktioniert auch wirklich super!
Allerdings muss ich es nun so veraendern, dass nur die Werte kopiert werden.
Kann mir da vielleicht jemand helfen? Herzlichen Dank