PDA

Vollständige Version anzeigen : Werte kopieren ohne Format


Richie889
04.10.2016, 22:01
Hallo,

ich habe ein kleines aber hartnäckiges Problem.

Ich will Daten zusammenfassen und in ein vorhandenes Tabellenblatt kopieren. Die Kopierfunktion funktioniert einwandfrei, aber das Format wird mitgezogen. Bisher habe ich nur ".PasteSpecial Paste:=xlPasteValues" gefunden und versucht dieses an meinen Code anzubauen, leider erfolglos.

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer

Application.ScreenUpdating = False

Set Wks = Worksheets(1)

For i = 3 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, 2).Address
Set Bereich = .Range("B2:" & strLC)
Bereich.Copy Destination:= _
Wks.Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1)
End With
Next i
End Sub

Benutzername:
04.10.2016, 22:18
Tach,

hast es schon einmal auf 2 Zeilen aufgeteilt, etwa so:


Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer

Application.ScreenUpdating = False

Set Wks = Worksheets(1)

For i = 3 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, 2).Address
Set Bereich = .Range("B2:" & strLC)
Bereich.Copy
Wks.Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Next i
End Sub


Gruss,
Stephan

Crazy Tom
04.10.2016, 22:18
Hallo

dann hast du es falsch angewendet

ungetestet
Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Application.ScreenUpdating = False
Set Wks = Worksheets(1)
For i = 3 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, 2).Address
Set Bereich = .Range("B2:" & strLC)
Bereich.Copy
Wks.Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
End With
Next i
End Sub

MfG Tom

Richie889
04.10.2016, 22:40
Danke für die schnellen Antworten.

So habe ich es schon versucht, aber vielleicht hatte ich einen kleinen Dreher drin oder etwas wichtiges vergessen. Ich werde es aber trotzdem morgen nochmal bei der Arbeit versuchen ;)