Office: Makro nach "Bearbeiten-Einfügen" automatisch starten

Hallo,

ich übernehme mit "Kopieren/Einfügen" Daten aus einer externen Anwendung (Seagate) in eine Excel-Tabelle. Anschließend werden über ein aufgezeichnetes Makro die Daten in ein für mich benötigtes Format umgewandelt (Spalten gelöscht, verschoben, formatiert, usw.) Geht auch alles bestens.
Meine Frage ist, ob es eine Möglichkeit gibt, den Makro automatisch zu starten, direkt nachdem die Daten über "Bearbeiten/Einfügen" eingefügt wurden ohne den Makro manuell starten zu müssen.
Da die Datei auf einem Server steht und mehrere Leute darauf zugreifen können, sollte die Handhabung so einfach wie möglich sein.
Leider reichen meine VBA-Kenntnisse noch nicht über "Makro-Aufzeichnen" hinaus.

Vorab schon mal schönen Dank

Access2000

:)

 

Hallo ??

schreibe es unter unter unter der Tabelle unter
Private Sub Worksheet_Change(ByVal Target As Range)





Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP1 und Excel Version 2003




Die Abstimmung läuft bis zum 31.07.2004

 

Hallo Hajo,

vielen Dank für die schnelle Antwort. ich hab es tatsächlich hinbekommen.
Das Problem ist nur, dass jetzt der Makro nicht mehr aufhört zu formatieren. Er beginnt nach Abschluss immer wieder von vorne.
Wie kann ich das ganze nach einmaligem Durchlauf wieder stoppen?

Schönen Gruß

Claus

 

Hallo Claus

zu beginn

Application.EnableEvents = False

und vor end Sub
Application.EnableEvents = True

Beachte aber das es zu keinem Fehler kommen darf.

Gruß Hajo

 

Hallo Hajo,

das geht ja RuckZuck bei Dir, vielen Dank.
Funktioniert einwandfrei !!!!!!!!!!!!!

Einen schönen Tag noch

Claus

 

Hallo Hajo,

nach längerer Pause bin ich es nochmal.

Das mit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
...
Application.EnableEvents = True
End Sub

funktioniert einwandfrei. Wenn ich aber anschließend an der Tabelle noch weitere Änderungen durchführe, beginnt der Makro auf ein Neues und würfelt dann natürlich alles durcheinander.
Wie stelle ich es an, dass der Makro nur ein einziges mal läuft und anschließend sozusagen inaktiv ist. Geht das?

Schönen Gruß

Access2000

 

Hallo Claus

ich habe jetzt ein wenig Hekti und kann mich nicht intensiv umdas Forum kümmern.

Schreibe in ein Modul

Public BoAusfuehren as Boolean.

unter der Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
If BoAusfuehren =True Ten Exit Sub
Application.EnableEvents = False
...
BoAusfuehren =True
Application.EnableEvents = True
End Sub

Gruß Hajo

 

Hallo Hajo,

super, es funktioniert. Vielen Dank.
Überarbeite Dich nicht.

Schönen Gruß

Claus