export af værdi til en anden celle

Jeg mener ikke, at det kan laves uden macroer.
Så vidt jeg kan se, løser denne dit problem:
Sub Skub_indhold()
'
'
If Range("A1") <> 0 Then

    Range("A1").Select
    Selection.Cut
    Range("B1").Select
    ActiveSheet.Paste
    End If
End Sub

Indsæt nedenstående som programkode til dit ark (gøres ved at højreklikke på fanebladet og vælg "Vis programkode")

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then Range("A1").Copy Range("A2")
Application.ScreenUpdating = True

End Sub

Læste forkert. Ved denne macro forbliver den værdi, der sidst er indtastet i A1, i cellen A2.
Hvis indholdet skal være det aktuelle indhold, skal den se således ud:
Sub Skub_indhold()
'
'
    Range("A1").Select
    Selection.Cut
    Range("A2").Select
    ActiveSheet.Paste
    End Sub

s_kjaers ide med at lave en Sub, der skal aktiveres, er nok det bedste valg. Min kører automatisk, og det kan godt være lidt svært at få den styret, så den kun gør præcis det som man vil have den til.

Tillad mig dog at trimme sub'en lidt:

Sub Skub_indhold()

Range("A1").Cut  Range("A2")

End Sub

hvordan aktiverer jeg den?

nu kommer den  godt nok, men den tager formel, cellekant og alting med, jeg skulle kun bruge indholdet (værdien om I vil)

Sub Skub_indhold()
'
'
    Range("A1").Select
    Selection.Cut
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    End Sub

Undskyld
Sub Makro3()
    Range("A1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Hvis A1 skal være tom

Sub Makro4()
    Range("A1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    [A1] = ""
   
   
End Sub

Kan også gøres uden at flytte makøren

Sub Makro5()
    Set MinCell = ActiveCell
    [A1].Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    [A1] = ""
    MinCell.Select
   
End Sub

Mere simpel

Sub Makro6()
  X = [A1]
  [A2].Value = X
  [A1] = "" 'Hvis A1 skal være tom
End Sub

Lige et spm. før jeg begynder med de lange forklaringer: Ved du hvordan man sætter koden ind i Visual Basic Editoren?

jeg laver en copy / paste

Jeg valgte egentlig faqpolers løsning idet den var så enkel at selv jeg kunne være med, så egentlig skal han have p, omvendt er jeg glad for de andre input og vil gerne give lidt her også, hvad er jeres mening,

Helt ok med mig, men hold mig udenfor. Jeg synes de andre har gjort sig mere fortjent. :0)

fint, lad os lige få de andre på banen

Et svar.
Fik du forresten løst problemet med at den tog formateringen med over fra A1?

Ok her er et svar

løst ved brug af
Kommentar: fagpoler
02/02-2005 23:11:57

klarede egentlig det hele