Anderung Makro daten verschieben
24.07.2006 22:02:13
Karel
Dieses Makro gefunden im Archiv ist genau dass was ich Suche aber weise nicht wie die Änderungen angebracht müsse werden.
1) If Cells(LN, 1) > 0 Then statt Zeichen auch text definieren (Buchstabe C)
2) für TB 2 Einfügbereich festlegen von ziele 5 bis 22 und für
3) Range(Cells(LN, 4), Cells(LN, 7)).Cut Destination:=.Cells(r, 5) diese Zeile statt Cut nur kopieren von werte
Sub Daten_verschieben_2()
Dim LN
z = Cells(65536, 2).End(xlUp).Row
' z von zeile 5 bis 22
For LN = 5 To 22
If Cells(LN, 1) > 0 Then
With Sheets(2)
'spalte 2 ist B
r = .Cells(65536, 2).End(xlUp).Row + 1
Range(Cells(LN, 1), Cells(LN, 2)).Cut Destination:=.Cells(r, 2)
Range(Cells(LN, 4), Cells(LN, 7)).Cut Destination:=.Cells(r, 5)
End With
End If
Next LN
End Sub
Grüße
Karel
Anzeige