Makro in bestimmter Zelle ausführen lassen

[Vortex]

Hallo,

ich möchte gerne das folgendes Makro angepasst wird.
Ich habe das Makro einen Button zugewiesen. Egal wo ich diesen Button betätige soll in meinem Arbeitsblatt "Daten die ich brauche"
der entsprechende Wert in Zelle A9 ausgewiesen werden. Auch wenn der Button in einem anderen Sheet ist.
Aktuell ist es so, wenn der Button im Sheet "Tabelle 1" wäre, das Makro in Tabelle 1 Zelle A9 ausgewiesen wird.

Wie muss ich das anpassen, damit ich bestimmen kann, in welchem Feld das ist und an welcher Stelle muss der vermerk gemacht werden? 

_____________________
Sub Makro5()
'
' Makro5 Makro
'

'
    Range("A2").Select
    Selection.Copy
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A9"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
End Sub


______________________

[schauan]

Hallöchen,

beschäftige Dich mal mit den Möglichkeiten von With und schaue, was ohne Select möglich ist.

z.B. im Prinzip

Code:

With Sheets("Daten die ich brauche")
.Range("...")...
End With

z.B.
Range("A2").Copy

usw.

und auch geschachtelte With funktionieren, prinzipiell:

Code:

With Sheets("Daten die ich brauche")
     With .Range("...")
        .TextToColumns...
     End With
End With