nichtzusammenhängende Bereiche kopieren
16.01.2006 19:31:58
Peter
wie werden nicht zusammenhängende Bereiche kopiert?
Danke Peter
Sub RahmenzeitenKopie()
Dim QSh
Dim ZSh
Dim lngLastRow
Dim lngRow
Set QSh = Worksheets("Quelle")
Set ZSh = Worksheets("Ziel")
lngLastRow = QSh.Cells(Rows.Count, 1).End(xlUp).Row
For lngRow = 9 To lngLastRow
'kopieren nach:
'ZSh.Cells(lngRow, 1)
'ZSh.Range(ZSh.Cells(lngRow, 7), ZSh.Cells(lngRow, 99)).Value
'kopieren von:
'QSh.Cells(lngRow, 1)
'QSh.Range(QSh.Cells(lngRow, 7), QSh.Cells(lngRow, 99)).Value
Next lngRow
End Sub
Anzeige