ich habe nachfolgendes Makro im "Modul1" stehen. Zur Ausführung bringe ich es manuell.
Wie kann ich nun erreichen, dass dieses Makro automatisch gestartet wird, sobald sich die Einträge in Spalte A ändern?
Wo hinein muss es geschrieben werden?
Option Explicit
Sub InSpaltenTrennen()
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
Dim c As Range
Dim t1 As String, t2 As String
For Each c In Selection
t1 = Left(c.Text, InStr(c.Text, ",") - 1)
t2 = Right(c.Text, Len(c.Text) - InStr(c.Text, ","))
t2 = Left(t2, Len(t2) - 1)
c.Offset(0, 1).NumberFormat = "@"
c.Offset(0, 1).Value = t1
c.Offset(0, 2).NumberFormat = "@"
c.Offset(0, 2).Value = t2
Next c
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub
Vielen Dank im Voraus.
Gruß
Mike