ich möchte einen kopierten Teilinhalt einer Zelle in eine andere Zelle, schon mit Inhalt, anfügen.
ActiveCell = ActiveCell & ", " & ActiveCell.PasteSpezial
Nur, so funktioniert es nicht. Kann mir jemand helfen, es hinzubekommen?
Danke.
Gruß
Karsten
Sub test()
myVar = ActiveCell
ActiveCell.PasteSpecial
ActiveCell = Var & ActiveCell
End Sub
Sub test()
myVar = ActiveCell
ActiveCell.PasteSpecial
ActiveCell = myVar & ActiveCell
End Sub
GrußSub Test()
Dim Inhalt$ '$ bedeutet als String deklariert
Inhalt = ClipBoard_GetData()
Range("A3") = Range("A1") & "," & Inhalt
End Sub
Also in diesem Beispiel: