Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro fehler?

makro fehler?
24.02.2005 12:44:15
dieter-j
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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro fehler?
ChrisL
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
Anzeige
AW: makro fehler?
24.02.2005 12:59:58
dieter
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
AW: makro fehler?
ChrisL
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
Anzeige
AW: makro fehler?
dieter-j
hallo chrisL
ausser makrorecorder kann ich nix...
ich weiss also nicht, was tun mit
...In ein Standardmodul kopieren und einmalig Makro abspielen.
:-(
dieter
AW: makro fehler?
ChrisL
Alt + F11, einfügen, Modul, Text reinkopieren, abspielen (Play wie Kassettenrekoreder)
AW: makro fehler?
Beni
Hallo Dieter,
in einem Standartmodul funktioniert dieser Code nicht,
dieser Code muss ins Tabellenmodul, mit rechte Maustaste auf Blattregister/ Code anzeigen.
Gruss Beni
AW: makro fehler?
24.02.2005 15:28:11
dieter-j
hallo beni, dort ist er auch....
links im kopf steht "workbook", rechts "open"
irgendwie zum wimmern...
gruss dieter
AW: makro fehler?
ChrisL
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
Anzeige
AW: makro fehler?
Beni
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
AW: makro fehler?
24.02.2005 18:52:46
dieter-j
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
Anzeige
AW: makro fehler?
ChrisL
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige