Erweiterung eines Makro
22.01.2004 18:27:57
Rolf
Mit diesem Makro wird eine Zeile aus einem Tabellenblatt kopiert und an das Ende eines anderen Tabellenblatt angefügt.
Es sollen aber alle markierten Zeilen kopiert werden
Wie muss das Makro erweitert werden?
Sub Bestellung_neu_Bestellung_fertig_kopieren()
Dim Loletzte As Long
With Sheets("Bestellung fertig")
If Range("B130") = "" Then
Loletzte = .Range("b130").End(xlUp).Row
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Bestellung fertig").Select
End Sub
https://www.herber.de/bbs/user/3139.xls
Anzeige