Markierung in Zalle A1 eintragen

[Rudi]

Hallo Gemeinde,

habe hoffentlich nur ein kleines Problem !

Im Bereich A10:D100 stehen in jeder Zelle Zahlen, nun möchte ich eine Zelle im Bereich markieren (anklicken) und dann über einen Button (Schaltfläche) diesen Wert in Zelle A1 schreiben.
Wie muss der Code aussehen damit das funktioniert (möchte den Umweg über Kopieren und Einfügen nicht gehen)

[Kuwer]

Hallo Rudi,

Sub aaa()
  Range("A1").Value = ActiveCell.Value
End Sub

Gruß Uwe

[Rudi]

Hallo Uwe,

vielen Dank für die schnelle Antwort !
Aus Interesse, wie würde es aussehen wenn A1 in Tabelle 2 wäre ?

[atilla]

Hallo,

Sheets("Tabelle2").Range("A1").Value = ActiveCell.Value

Nachtrag:

ich habe die Frage anscheinend falsch verstanden.
Du möchtest es so:

Code:

Sheets(Range("A1").Value).Range("A1").Value = ActiveCell.Value

Aber damit wirst Du auch nicht weiter kommen, wenn Du, wie Du schreibst einen Bereich markieren und übertragen möchtest.
Dann müssen beide Bereiche gleich groß gewählt werden.

In der Art:

Code:

Sheets("Tabelle2").Range("A10:D100").Value = Range("A10:D100").Value

oder wenn der Tabellenname in der Zelle A1 ateht:

Code:

Sheets(Range("A1").Value).Range("A10:D100").Value = Range("A10:D100").Value

[marose67]

Hallo,
bin nicht so firm ...
so?

Microsoft Excel Objekt Tabelle1

Option Explicit 
Sub aaa() 
Dim A As String 
A = ActiveCell.Value 
  Tabelle2.Range("A1") = A 
End Sub 

Gruß

Marcus

[Rudi]

suuuupi, Danke !

[marose67]

Hallo,
wenn die Leute, nach Dir, jetzt wüssten was Dir geholfen kann ...

Schön, das du deine Lösung gefunden hast.

Marcus

[Kuwer]

... wenn Du, wie Du schreibst einen Bereich markieren und übertragen möchtest.

das steht wo?

Gruß Uwe