kopieren nur Wert als Makro
04.03.2006 15:05:14
Rolf
Die Zeile Selection.Copy Destination:=.Cells(Loletzte + 1, 3)
kopiert den Inhalt der Zelle in eine andere Zelle mit der Formatierung.
In der neuen Zelle ist aber bereits eine bedingte Formatierung vorhanden. Diese wird überschrieben.
Wie muss ich das Makro ändern, so das nur der Wert kopiert wird?
Sub Stammdaten_nach_Mitglieder_aktuell_kopieren()
Dim Loletzte As Long
Dim rng As Range
With Sheets("Mitglieder Aktuell")
Set rng = .Range("C3:C145").Find(What:=Selection, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
MsgBox "Eintrag schon vorhanden!", vbExclamation
Exit Sub
Else
If .Range("C145") = "" Then
Loletzte = .Range("C145").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 3)
Else
MsgBox "keine Zelle mehr frei"
End If
End If
End With
Sheets("Mitglieder Aktuell").Select
End Sub