Vba Kopieren van Cell of Range

[Dolfke]

Hallo allemaal ,

Is het mogelijk om een cell of range te kopieren en plakken zonder de conditional formatting over te nemen ?

De formules en kleuren van de cell moeten wel overgenomen worden ?

Bedankt

Groetjes
Dolfke

 

[Wigi]

Van A1 naar B1:

Sub fff()
    
    Range("A1").Copy Range("B1")
    Range("B1").FormatConditions.Delete

End Sub

 

[Dolfke]

wigi ,

wordt de oorsprongkelijke conditional format hierbij behouden ?
dus de conditional format van de cell waarnaar gekopieerd wordt ?

Groetjes

 

[Wigi]

dus de conditional format van de cell waarnaar gekopieerd wordt ?

Neen, want regel 2 in de code gaat alle VO in cel B1 deleten.

 

[Dolfke]

Neen, want regel 2 in de code gaat alle VO in cel B1 deleten.

Hallo Wigi ,

Ik denk dat ik mijn vraag niet duidelijk geformuleerd heb.

Ga nog eens proberen .

Ik heb BV 2 cellen
Beide cellen hebben een eigen conditional formating.
In cell 1 zet ik een waarde 1 en kleur ik manueel geel.
Nu ga ik cell 1 kopieren naar cell 2.
Hierbij moet de waarde 1 en de kleur geel naar cell2 gekopieerd worden maar de conditional formatting van cell2 moet behouden blijven .Die van cell 1 mag niet meegekopieerd/gepaste worden.


Hopelijk is het een beetje duidelijk.

Vraag is waarschijnlijk complexer dan oplossing.

hieronder de code waarmee ik werk

Private Sub CommandButton2_Click()
Dim RownumberStart As Integer
Dim RownumberEnd As Integer
Dim Rng As Range
Dim Counter As Integer

Application.ScreenUpdating = False
RownumberStart = ActiveCell.Row
Counter = 59 - Range("A" & RownumberStart).Value
RownumberEnd = RownumberStart + Counter

'If Counter <= 0 Then
   'MsgBox "Er is geen plaats meer om iemand toe te voegen.", vbExclamation, "Insert"
   'Exit Sub
'End If

Range("C" & RownumberStart & ":E" & RownumberEnd).Select
Selection.Copy
Range("C" & RownumberStart + 1).Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
Range("C" & RownumberStart & ":E" & RownumberStart).Select
Selection.ClearContents
Range("G" & RownumberStart & ":AK" & RownumberEnd).Select
Selection.Copy
Range("G" & RownumberStart + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
Range("G" & RownumberStart & ":AK" & RownumberStart).Select
Selection.ClearContents

Application.ScreenUpdating = True

End Sub

Groetjes
Dolfke

 

[Warme bakkertje]

Het enige dat je kan doen is via VBA de celkleur van de broncel bepalen en deze dan doorgeven aan je doelcel.

 

[Wigi]

Het enige dat je kan doen is via VBA de celkleur van de broncel bepalen en deze dan doorgeven aan je doelcel.

Inderdaad.

Celkleur en waarde toepassen op de andere cel, dat is een fluitje van een cent.

Aan de andere kant, als je ook de randen, vet/onderlijnd/cursief, getalopmaak, inspringing, .. en alle andere eigenschappen van een cel wil "overzetten", dan loont het de moeite om de hele cel te kopiëren, VO te deleten, terug te zetten zoals het was, en dan de waarde in de cel terug te zetten.