Code-Änderung
19.01.2016 07:37:40
Flo
ich benötige eine kurze Hilfe zur Änderung des folgenden Codes:
Sub ElektroDatenTeil1()
Application.ScreenUpdating = False
'Teil 1
Dim Zeile As Long
Dim ZeileMax As Long
With Tabelle15
ZeileMax = .UsedRange.Rows.Count
n = 4
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "201121.1" Then
.Rows(Zeile).Copy Destination:=Tabelle9.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Es geht um die Folgende Zeile:
.Rows(Zeile).Copy Destination:=Tabelle9.Rows(n)
n = n + 1
Wie kann ich den Copy Teil in ein bestimmtes Range einschränken?
Gruß Florian
Anzeige