Cells Schreibweise
09.02.2004 06:49:23
Fritz Sane
wie kann ich denn in dieser Schreibweise nicht den Bereich, sondern die einzelnen Zellen kopieren?
Sub Kopieren()
Dim r As Integer
r = ActiveCell.Row
Worksheets(1).Range(Cells(r, 2), Cells(r, 6)).Copy Worksheets(2).Range("B1")
End Sub
Ich habe es versucht mit ActiveCell.Range("B1, F2")..... aber da hängt es ja von der Position der Quellzelle ab, welche Zellen übertragen werden. Mit "Cells" tue ich mich noch ein wenig schwer.
Danke für Nachhilfe.
Fritz