Kopierproblem
Rolf
In einer Zeile habe ich eine Formel zugefügt.
Wie erreiche ich ein kopieren des Wertes statt der Formel mit diesem Makro?
Sub Mitglieder_alle_Kanal_neu_kopieren()
Dim Loletzte As Long
With Sheets("Kanalscheine neu")
If Range("B145") = "" Then
Loletzte = .Range("b40").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("Kanalscheine neu").Select
End Sub
Ich hoffe, das geht so.
Gruss Rolf