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)
Hallo Rudi,
Sub aaa()
Range("A1").Value = ActiveCell.Value
End Sub
Gruß Uwe
Hallo Uwe,
vielen Dank für die schnelle Antwort !
Aus Interesse, wie würde es aussehen wenn A1 in Tabelle 2 wäre ?
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
Hallo,
bin nicht so firm ...
so?
Zitat:Microsoft Excel Objekt Tabelle1Option Explicit
Sub aaa()
Dim A As String
A = ActiveCell.Value
Tabelle2.Range("A1") = A
End Sub
Gruß
Marcus
Hallo,
wenn die Leute, nach Dir, jetzt wüssten was Dir geholfen kann ...
Schön, das du deine Lösung gefunden hast.
Marcus
(28.01.2020, 12:34)atilla schrieb: [ -> ]... wenn Du, wie Du schreibst einen Bereich markieren und übertragen möchtest.
das steht wo?
Gruß Uwe