Erweiterung vom Makro auf weitere Worksheets
21.01.2016 14:15:14
Patrick
Ich wollte euch fragen, ob ihr mir bei meinem Makro helfen könnt.
Ich versuche mit diesem Makro ein Shape mit Informationen zu hinterlegen.
Dies funktioniert auch wunderbar in der ersten Tabelle aber ich schaff es noch nicht das Makro auf alle weiteren Arbeitsmappen auszuweiten.
Das Makro:
Sub BeiKlick()
Dim Element As String
Dim AnzeigeText As String
Element = Application.Caller
MsgBox WorksheetFunction.VLookup(Element, Range("A:E"), 2, 0) & vbCrLf & WorksheetFunction. _
VLookup(Element, Range("A:E"), 3, 0), , Element
End Sub
Freue mich auf euer Feedback.
Liebe Grüße
Anzeige