VBA - Entfernung von "Stoppwörtern" + "Sonderzeichen" in aktueller Markierung

[n8lauscher]

Hallo Sabina,

danke für deine "Rückmeldung"  :19:

auch ohne die geschweiften Klammern kann ich den Shortcut nicht beim Start einer beliebigen Excel-Datei öffnen. 

ist-Zustand:
neue xlam erstellt und dort zwei Module angelegt und als Add-in aktiviert:

modul1 - shortcuts:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "+^c", ""
End Sub

Private Sub Workbook_Open()
' STRG + SHIFT + C
Application.OnKey "+^c", "test"
End Sub

modul2 - test:

Code:

Private Sub test()
MsgBox "Hallo Forum"
End Sub

Jetzt sollte doch eigentlich nach dem Öffnen eines beliebigen Excel-Dokuments durch drücken von "STRG + SHIFT + C"
eine Messagebox mit "Hallo Forum" angezeigt werden?
Bzw. ist dies mein Wunsch.
Es geht aber nicht - ich bekomme immer noch nur den "Error"-Ton zu hören und die Box wird nicht angezeigt.

[Flotter Feger]

Oje ... du bist wirklich ein harter Brocken ...  

... also noch mal auf Anfang ... wo sollst du den Code hinkopieren, den ich gepostet habe ?

Schau noch mal ganz genau ... der untere Teil soll in ein Modul ... wohin soll der obere Teil ?

[Kuwer]

Hallo Nachtlauscher,

wenn das so stimmt wie Du schriebst, dass die Ereignismakros im Modul1 stehen, kann es nicht (automatisch) funktionieren, weil diese beiden Makros in das schon vorhandene VBA-Modul DieseArbeitsmappe gehören!

Gruß Uwe

[n8lauscher]

@Kuwer
ja okay - jetzt habe ich auch das verstanden und das kleine Testscript läuft nun überall!
Hierfür besten DANK!

[n8lauscher]

@Sabina 

ich bekomme bei deinem Makro einen Fehler:

Laufzeitfehler 13
Typen unverträglich

[schauan]

Hi,

ich bin zwar nicht Sabina, greife aber mal mit zwei Fragen vor:

ich bekomme bei deinem Makro einen Fehler:
Laufzeitfehler 13

- in welchem Makro?
- in welcher Zeile?

[n8lauscher]

Hallo Schauan,

anbei das Dokument als Anhang. 

Die aktuelle Markierung soll nun die enthaltenen Stoppwörter entfernen.
Durch drücken von STRG+SHIFT+S soll dies nun geschehen.
Fehler: Selection = Replace(Selection, " " & a & " ", " ")

[schauan]

Hallöchen,

mach mal das Replace so:

For Each a In arr
Selection.Replace What:=" " & a & " ", Replacement:=" ", LookAt:=xlPart
Next a

[n8lauscher]

j@ Schauan!
super! - danke!


Und was muss ich für:

Selection = Replace(Selection, a, " ")

verwenden? 
Denn da gibt es den gleichen Fehler...?

Dort sollen alle Zeichen zugelassen werden die in der Liste stehen - alle anderen sollen gelöscht werden?

Ich bitte um Rückmeldung.

[schauan]

Hallo Michael,

da nimmst Du die Zeichen weg, die Zuviel sind - also davor und danach das Leerzeichen:

Selection.Replace What:=a, Replacement:=" ", LookAt:=xlPart