Kopieren von Werten
26.06.2007 17:07:00
Werten
Ich benötige Eure Hilfe bei folgendem Problem:
Ich habe einen Code, der Zeileneinträge in ein anderes Tabellenblatt überträgt, indem er die entsprechenden Zeilen einfügt. Ich möchte aber nicht die kompletten Zeilen eingefügt haben, sondern nur die Werte. Kann mir jemand helfen ?
das hab ich bisher:
Dim t As Byte
Dim z As Range, b As Range
t = Worksheets("Stornos Gesamt").Range("B65536").End(xlUp).Offset(0, 0).Row
Set b = Worksheets("Stornos Gesamt").Range("B2:B" & t)
Application.ScreenUpdating = False
For Each z In b
If z.Value = "853" Then
z.EntireRow.Copy
End If
Worksheets("853").Activate
Worksheets("853").Range("A65536").End(xlUp).Offset(6, 0).Insert
Worksheets("Stornos Gesamt").Activate
Next z
Application.ScreenUpdating = True