Hej Jan
Jeg forudsætter, at du ønsker at kopierer det cellen viser, når du ser på
celle, dog undtagen format.
At du så i formellinjen kan se at der er tale om en formel er uinteressant.
http://www.cpearson.com/excel/clipboar.htm
som du kan se har jeg været der.
Option Explicit
Const hil As String = "Best regards from Joergen"
'----------------------------------------------------------
' Procedure : OnecellvalueCopyPaste
' Date : 20051203
' Author : Joergen Bondesen
' Functions :
http://www.cpearson.com
' Purpose : Copy 1 cell and paste value in another cell.
' Note : x Microsoft Forms 2.0 object libery
'----------------------------------------------------------
'
Sub OnecellvalueCopyPaste()
Dim CopyFrom As Range
Dim CopyTo As Range
'// Function
ChkFile
On Error Resume Next
Set CopyFrom = Application.InputBox _
("Select 1 cell to copy value from, please." & vbCr _
& vbCr & "Paste with [Ctrl + V]", hil, Type:=8)
If Err <> 0 Then End
'//check one cell
If CopyFrom.Cells.Count <> 1 Then
MsgBox "Only 1 cell, please", vbCritical, hil
GoTo endnow
End If
'// Function
CopyValueOneCell CopyFrom
' On Error Resume Next
' Set CopyTo = Application.InputBox _
' ("Where to? Select 1 cell to paste in, please.", _
' hil, Type:=8)
' If err <> 0 Then End
'
' '//check one cell
' If CopyTo.Cells.count <> 1 Then
' MsgBox "Only 1 cell, please", vbCritical, hil
' GoTo endnow
' End If
'
' '// Function
' PasteValueOneCell CopyTo
'
endnow:
' '// Function
' ClearClipboard
Set CopyTo = Nothing
Set CopyFrom = Nothing
End Sub
'// Copy value
Function CopyValueOneCell(cell As Range)
'
http://www.cpearson.com
Dim x As New DataObject
x.SetText cell.Value
x.PutInClipboard
End Function
'// Paste value
Function PasteValueOneCell(cellp As Range)
'
http://www.cpearson.com
On Error Resume Next
Dim x As New DataObject
x.GetFromClipboard
cellp.Value = x.GetText
End Function
'// Clear
Function ClearClipboard()
'
http://www.cpearson.com
Dim MyDataObj As New DataObject
MyDataObj.SetText ""
MyDataObj.PutInClipboard
End Function
'// Is Excel empty
Function ChkFile()
Dim this As String
On Error GoTo Fout
this = ActiveWorkbook.Name
this = Empty
On Error GoTo 0
Exit Function
Fout:
MsgBox "Sorry, you have to open a Excel file first to " _
& " use this tool.", vbInformation, hil _
& " - No open workbook found"
End
End Function
--
Med venlig hilsen
Jørgen Bondesen
"Janner" <Nemlija> wrote in message
news:43e372f0$0$11700$ba624c82@nntp02.dk.telia.net...
>
>>> Mest af alt kunne jeg godt lige bruge hvordan man kommer ind i en
>>> celle (hvor der er tekst/tal) i forvejen og skriver uden at skulle
>>> dobbelt klikke med musen. Bruger man enter enter hopper markøren
>>> jo blot videre ... Kunne være rart inden man fik muse arm *S*
>>
>> F2
>
> Jep men hvordan får man så markeret indholdet af cellem via en copy
> funktion ala ctrl c uden at det er "hele cellen" man vælger copy til ..
> spørger fordi jeg tit skal have teksted kopieret over i et andet program
> "IFS" i dette tilfælde og det arbejder ikke med hele indholdet af en celle
> kun teksten.
>
>
> /Jan
>