Selection.Copy Destination
21.01.2007 11:52:13
Rolf
In meinem Makro (stammt auch von Herber) wird eine Zelle kopiert. Klappt gut. Allerdings mit bedingten Formatierungen.
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Ich möchte bitte diese Zeile so haben, das nur der Inhalt kopiert wird,
Vielen Dank
Rolf K.
Makro:
Sub Stammdaten_Bar_kopieren()
ActiveSheet.Unprotect
Selection.Copy
With Sheets("Bareinnamen")
ActiveSheet.Unprotect
Dim Loletzte As Long
If Range("b145") = "" Then
Loletzte = .Range("b28").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Bareinnamen").Select
End Sub
Anzeige