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
______________________
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
______________________