Änderung eines Makros
11.06.2004 16:25:17
Jens
ich habe hier ein Makro das Daten von Mappe zu Mappe kopiert.
Wenn ich jetzt aber nur Werte einfügen möchte, wo muss ich folgenden Befehl
eingeben und was muss ich entfernen:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Makro:
Sub Kopieren_in_andere_Dateien()
Dim i As Integer
Dim WS2 As Worksheet, WS3 As Worksheet
Set WS2 = Workbooks("Test2").Worksheets("Tabelle1")
Set WS3 = Workbooks("Test3").Worksheets("Tabelle1")
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 13) < 3 Or Cells(i, 13) = "" Then
ls = Cells(i, 256).End(xlToLeft).Column
With WS2
lz = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Destination:=.Cells(lz, 1)
End With
Else
With WS3
lz = WS3.Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Destination:=.Cells(lz, 1)
End With
End If
Next i
End Sub
Anzeige