Makro geht nach Zellbezug Änderung nicht

Hallo Forum,
dank Hilfe aus diesem Forum wurde mir schon oft sehr geholfen.

Ich habe folgendes Makro, damit in einer Zelle (Autokennzeichen) die Kleinbuchstaben automatisch in Großbuchstaben umgewandelt werden.
Funktionierte auch ganz gut. Nun musste ich die Tabelle überarbeiten und das Kennzeichen ist in einer anderen Zelle gelandet (D15)
Dadurch funktioniert die automatische Umwandlung leider nicht mehr. Ich habe schon geschaut, ob ich das selbst lösen kann, komme aber nicht wirklich weiter!

Eventuell haben wir hier im Forum jemanden, der mir die Lösung mitteilt.

Vielen Dank für eure Hilfe !

Hans

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 8 And T.Row = 6 Then T = UCase(T)
End Sub

PS: Ist es Möglich, dass statt des ERSTEN Leerzeichen ein Bindestrich eingefügt wird, so dass die Kennzeichen dann so aussehen ??

H-MP 1222 / HH-MH 123 / GVM-P 554

Danke !

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal T As Range) If T.Column = 4 And T.Row = 15 Then Application.EnableEvents = False T = WorksheetFunction.Substitute(UCase(T), " ", "-", 1) Application.EnableEvents = True End If End Sub

Hallo Hans,

das Ereignis Worksheet_Change ist im Code-Panel vom Blatt und gilt nur für dieses Blatt.
Wenn Du es für 2 Blätter brauchst, musst Du es in den Code-pane vom anderen Blatt kopieren. Es gibt auch die Möglichkeit, diese auf Workbook-Ebene zu deklarieren und dann zu prüfen, aus welcherm Blatt diese gerufen wird (zuerst für dich unnötig kompliziert, lieber kopieren).

Der Code von Hary sollte dein Problem beseitigen: wenn das Makro den Inhalt einer Zelle ändert, dann wird das Makro Worksheet_Change gerufen, das dann den Inhalt ändert, was das Change-Makro aufruft, und so unendlich, bis Excel das Makro "stummschaltet". Mit dem Blockieren EnableEvents=false, wird keine Change-Behandlung erlaubt. Am Schluss wird es wieder eingeschaltet.

VG
Yal

VG
Yal

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "D15" Then Application.EnableEvents = False Target.Value = UCase$(Target.Value) Target = WorksheetFunction.Substitute(Trim$(Target), " ", "-", 1) Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro geht nach Zellbezug Änderung nicht

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro geht nach Zellbezug Änderung nicht

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread