makro fehler?

Bild

Betrifft: makro fehler?
von: dieter-j
Geschrieben am: 24.02.2005 12:44:15
hallo Forum, die folgende anweisung soll mir die anfangsbuchstaben in den zellen
b6,c6 usw. in grossbuchstaben setzen- macht es aber nur in Zelle B6
sagt mir jemand warum? habe die zellen auf "text" gestellt; (makro habe ich aus dem forum; die zellangabe habe ich geändert...
danke + gruss dieter;


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6,C6,B8,B10,C10")) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub


Private Sub Workbook_Open()
End Sub

Bild

Betrifft: AW: makro fehler?
von: ChrisL
Geschrieben am: 24.02.2005 12:53:34
Hi Dieter
Das geht schon. Vermutlich ist infolge eines Fehlers EnableEvents ausgeschaltet.
Lass mal...
Sub t()
Application.EnableEvents = True
End Sub
laufen.

Bei EnableEvents solltest du darum immer eine Fehlerbehandlung einbauen.
Die "Quick and Dirty"-Methode...


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6,C6,B8,B10,C10")) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub


Gruss
Chris
Bild

Betrifft: AW: makro fehler?
von: dieter
Geschrieben am: 24.02.2005 12:59:58
hi chrisL,
>Lass mal...
Sub t()
Application.EnableEvents = True
End Sub
laufen sagt mir leider gar nix....
habe deinen vorschlag hier

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6,C6,B8,B10,C10")) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub

eingeben, leider keine änderung.....
gruss dieter
Bild

Betrifft: AW: makro fehler?
von: ChrisL
Geschrieben am: 24.02.2005 13:11:50
Hi Dieter
Sub t()
Application.EnableEvents = True
End Sub
In ein Standardmodul kopieren und einmalig Makro abspielen.

Mein Vorschlag:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B6,C6,B8,B10,C10")) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub


Gruss
Chris
Bild

Betrifft: AW: makro fehler?
von: dieter-j
Geschrieben am: 24.02.2005 13:24:41
hallo chrisL
ausser makrorecorder kann ich nix...
ich weiss also nicht, was tun mit
...In ein Standardmodul kopieren und einmalig Makro abspielen.
:-(
dieter
Bild

Betrifft: AW: makro fehler?
von: ChrisL
Geschrieben am: 24.02.2005 14:44:25
Alt + F11, einfügen, Modul, Text reinkopieren, abspielen (Play wie Kassettenrekoreder)
Bild

Betrifft: AW: makro fehler?
von: Beni
Geschrieben am: 24.02.2005 14:48:47
Hallo Dieter,
in einem Standartmodul funktioniert dieser Code nicht,
dieser Code muss ins Tabellenmodul, mit rechte Maustaste auf Blattregister/ Code anzeigen.
Gruss Beni
Bild

Betrifft: AW: makro fehler?
von: dieter-j
Geschrieben am: 24.02.2005 15:28:11
hallo beni, dort ist er auch....
links im kopf steht "workbook", rechts "open"
irgendwie zum wimmern...
gruss dieter
Bild

Betrifft: AW: makro fehler?
von: ChrisL
Geschrieben am: 24.02.2005 15:29:17
Hi Beni
Es geht darum EnableEvents wieder einzuschalten:

Sub t()
Application.EnableEvents = True
End Sub

Dieser Code gehört sehr wohl in ein Standardmodul. Betr. WS_Change hast du recht, aber davon war auch nicht die rede.
Gruss
Chris
Bild

Betrifft: AW: makro fehler?
von: Beni
Geschrieben am: 24.02.2005 15:34:24
Hallo Dieter,
wenn links Workbook steht, dann bist Du im Modul der Arbeitsmappe,
links muss Worksheet stehen und rechts Change, dann bist Du im Modul der Tabelle.
Gruss Beni
Bild

Betrifft: AW: makro fehler?
von: dieter-j
Geschrieben am: 24.02.2005 18:52:46
das problem ist-ich wiss nich wohin ich wann dieses

Sub t()
Application.EnableEvents = True
End Sub

schreiben soll...
ich öffne meine excelfile,dann gehe ich neben datei auf das excelsymbol;code anzeigen;
dann habe ich da: "diese arbeitsmappe" und Tabelle1 und Tabelle2; und dann?
wohin mit

Sub t()
Application.EnableEvents = True
End 

Sub ?
und was danach ? blatt schliessen? neustart? 

Sub t() auch wieder irgendwann löschen...?
für mich etwas schwierig...
danke und gruss 
dieter

Bild

Betrifft: AW: makro fehler?
von: ChrisL
Geschrieben am: 24.02.2005 21:12:42
Hi Dieter
Also nochmals ganz langsam :-)
Alt + F11 öffnet den VBA Editor
Im Menü - Einfügen - Modul klicken
Code reinkopieren. Diesen Code:

Sub t()
Application.EnableEvents = True
End Sub

VBA Editor schliessen.
In Excel - Menü Extras - Makro - Makros
Makro "t" Ausführen.
EnableEvents ist dadurch wieder eingeschaltet.
-------------------------
Alt + F11, links Doppelklick auf Tabelle...
Der vorhandene Code (Worksheet_Change usw.) durch meinen ersetzen und alles müsste laufen.
Gruss
Chris
 Bild

Beiträge aus den Excel-Beispielen zum Thema "makro fehler?"