Kleinbuchstaben bei Eingabe autom. in Gross umwandeln/Excel 2000

Question

Hallo,
ich habe zur Vereinfachung meiner Arbeit folgende Frage
Ich habe eine Adressformular - dort gebe ich
in Zelle C12 den Namen
in Zelle C13 den Vornamen
in Zelle C14 die Straße
in Zelle C16 den Ort ein.

Ich möchte dies in Kleinbuchstaben eingeben und das sollte es mir dann in GROSSBUCHSTABEN umwandeln.

Könnte mir ein " Support -"netter/ in "- eine gute Antwort dazu schreiben.
Denke das geht nur über ein VBA.
Und das kann ich selber nicht schreiben.

Herzlichen Dank im Vorraus.

Rudolfo
Falls ich nicht sofort Rückantworte - dann bin ich schon im Bett. Danke

Answer 1

Hallo-
habe in der Zwischenzeit in den Foren noch weitergesucht und
bin noch fündig geworden.
Nun stellt sich für mich folgende Frage:
Dieses Makro habe ich schon in diesem Blatt drinne.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C15,C21")) Is Nothing Then
Target.Value = Left(Target.Value, 2) & " - " & Mid(Target.Value, 3, 99)
End If
Application.EnableEvents = True
End Sub

Das was ich zum Ändern von Klein auf Grossbuchstaben gefunden habe sieht so aus :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
If Not Intersect(Target, Range("C12, C13, C14,C16")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
End If
fehler:
Application.EnableEvents = True
End Sub

Wenn ich das so eingebe sagt er mir beim Name eingeben:
Fehler beim Kompilieren
Mehrdeutiger Name: Worksheet_Change

Was muß ich ändern ???


Danke

Rudolfo

Answer 2

Hallo Rudolfo,

so müsste es klappen.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
If Not Intersect(Target, Range("C15,C21")) Is Nothing Then
Target.Value = Left(Target.Value, 2) & " - " & Mid(Target.Value, 3, 99)
ElseIf Not Intersect(Target, Range("C12:C14,C16")) Is Nothing Then
Target = UCase(Target)
End If
fehler:
Application.EnableEvents = True
End Sub

Gruß
Rainer

Answer 3

Hallo Rainer,

fantastisch -die perfekte Antwort!!!!!

Und funktioniert prima !!!!!!!

Ich habe die Zuweißungen (C13; ect ) noch auf mein Tabellenblatt angepaßt.
-dadurch ist noch eine Frage aufgetaucht :

Wenn ich -- Klein/Groß-- auf das Feld C15 , C21 erweitere- das sind die Felder mit der 1 ten Frage Z.B.: ( CH - 6488) - dann schreibt er -ch - nicht groß.

Könnte man dies noch einbringen??-
aber nur wenn es nicht zuviel Umstände macht.

Wäre nicht ganz so wichtig.

Herzlichen Dank -

Rudolfo

Answer 4

Hallo Rudolfo,

ändere diese Zeile

Target.Value = Left(Target.Value, 2) & " - " & Mid(Target.Value, 3, 99)

in

Target.Value = UCase(Left(Target.Value, 2) & " - " & Mid(Target.Value, 3, 99))

Gruß
Rainer

Answer 5

Hallo Rainer,

habe dies geändert und funktioniert.

Danke

Rudolfo

Wünsche Dir und allen eine schöne Ostern

Answer 6

Hallo,
wer kann mir zum "Vorführeffekt" helfen ??

Das Programm läuft einwandfrei und perfekt, auf meinem Windows 98 -
Excel 2000

Nun meine Frage: habe dieses Programm auf eine DISKETTE aufgespielt, die geht bei mir auch ,
wenn ich es bei meinem Kollegen laufen lasse - allso nur von Diskette nimmt er die Großschreibung nicht mehr.
Habe die Diskette danach bei mir nochmals überprüft- alles ok.

Er hat ein neueres Windows . Ich meine das WIN 2000 und sicher Excel 2000.

Könnte es daran liegen ??

Danke im Vorraus

Rudolfo

Answer 7

Hallo Rudolfo,

dazu kann ich nichts sagen.
Das kann nur jemand testen, der die gleiche Konfiguration fährt, wie Dein Kollege.

Gruß
Rainer

Answer 8

Hallo Rainer,

Danke für die Rückantwort,

vielleicht sollte ich meinem Kollegen mal WIN 98 empfehlen ???!!!!

---Kleiner Scherz.----

Gruß Rudolfo

Answer 9

Hallo Rudolfo,

der Kollege sollte mal in Excel seine Einstellungen zur Makrosicherheit überprüfen. Eventuell ist hier nur mal eine kurzfristige Umstellung der eingestellten Sicherheitsstufe notwendig, damit er zumindest gefragt wird, ob das Makro in der Datei auf der Diskette ausgeführt werden darf.

Gruß
Kalle

Answer 10

Hallo Kalle,
Hallo Rainer,
habe heute das Programm beim Kollegen nochmals getestet und habe festgestellt das mir selber der Fehler unterlaufen ist das ich " Makros deaktivieren" statt "Makros aktivieren" gedrückt habe.
Ganz herzlichen Dank an alle die mir weitergeholfen haben.

Rudolfo