Clever-Excel-Forum

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

______________________

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

Vortex

schauan