title image


Smiley zellinhalte (formel) in werte umwandeln - aktuelle zelle vba
liebe spotlighter



irgendwie hab ich heute einen echten hänger - krieg es nicht hin



mit folgendem makro kopiere ich bei neuen inhalten in spalte a

formel aus der 3.zeile automatisch in die entsprechend aktuelle zeile



jetzt möchte ich, dass NACH dem kopieren der formel

diese anschliessend in "werte" umgewandelt werden.



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

sollte das hinkriegen.

nur wie schaffe ich es, dass das makro

nach dem kopieren der formel sofort in der jeweiligen zeile

formeln in werte umgewandelt?



thanks vorab und gruss stefan



hier der code:



Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'formeln einfügen bei neuen werten in spalte a

Dim formel(1 To 5)

formel(1) = "i3"

formel(2) = "j3"

formel(3) = "k3"

formel(4) = "l3"

formel(5) = "h3"

If Not Application.Intersect(Target, Range("a4:a50000")) Is Nothing Then

Application.EnableEvents = False

For x = 1 To 5

Set dest = Cells(Target.Row, Range(formel(x)).Column)

Range(formel(x)).Copy Destination:=dest

Next

Application.EnableEvents = True

End If

End Sub


Suche in meinen 22.000 Zitaten
mittels Volltextsuche ! HIER

Und hier in mein Excel-Tips

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: