Clever-Excel-Forum

Seiten: 1 2

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.

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

... 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 ?

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

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

@Sabina

ich bekomme bei deinem Makro einen Fehler:

Laufzeitfehler 13
Typen unverträglich

Hi,

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

Zitat:ich bekomme bei deinem Makro einen Fehler:
Laufzeitfehler 13

- in welchem Makro?
- in welcher Zeile?

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 & " ", " ")

Hallöchen,

mach mal das Replace so:

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

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.

Hallo Michael,

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

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

Seiten: 1 2

n8lauscher

Flotter Feger

Kuwer

n8lauscher

n8lauscher

schauan

n8lauscher

schauan

n8lauscher

schauan