Makro automatisch starten
03.05.2002 20:11:01
Mike
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