HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Kleinbuchst. in gleicher Zelle erzwingen

Forumthread: Kleinbuchst. in gleicher Zelle erzwingen
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:19:28

Micha

Hallo liebe Mitglieder,
ich möchte gerne die Kleinschreibung für eine ganze Spalte erzwingen.
Ich kenne zwar die Formel , aber diese gibt die Werte dann ja immer in einer extra Spalte wieder.
Ich möchte gerne, dass die Werte bei Eingabe sofort in der GLEICHEN Zelle bzw .Spalte auf klein gesetzt werden.
Geht das ? ggf. mit VBA?
VG
Micha

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:25:15

Oberschlumpf
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:43:30

Micha
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:53:06

Oberschlumpf
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:56:18

Daniel
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:59:55

UweD
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 14:09:56

Micha
AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 16:07:50

GerdL

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:25:15

Oberschlumpf

Hi Micha,
so gehts:


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 Then 'behandelt alle Zellen in Spalte A; wenn andere Spalte gewünscht, dann anpassen
Application.EnableEvents = False
.Value = LCase(.Value)
Application.EnableEvents = True
End If
End With
End Sub

Hilfts?
Ciao
Thorsten

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:43:30

Micha

Hallo Thorsten,
ja super!! funktioniert tadellos! Danke für die schnelle Hilfe :)
Eine kurze Frage noch dazu:
wie muss ich den Code anpassen, wenn ich das für mehrere Spalten gleichzeitig bräuchte? Also z.B. in den Spalten 1, 15 und 17?

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:53:06

Oberschlumpf

Hi Micha,
aus...


If .Column = 1 Then

...mach...


If .Column = 1 Or .Column = 15 Or .Column = 17 Then

Hilfts?
Ciao
Thorsten

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:56:18

Daniel

Hi
statt IF THEN ein Select Case, damit ist es einfacher, mehrere Optionen anzugeben


Select Case Target.Column
Case 1, 15, 17
Application.EnableEvents = False
Value = LCase(.Value)
Application.EnableEvents = True
Case else
End Select

alternativ auch so, hier könnte man den Gültigkeitsbereich nicht nur auf Spalten einschränken, sondern vielfältiger:


If not Intersect(Target, Range("A:A,O:O,Q:Q")) is nothing then
Application.EnableEvents = False
Value = LCase(.Value)
Application.EnableEvents = True
end if

Gruß Daniel

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 13:59:55

UweD

Hallo
so?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Const APPNAME = "Worksheet_Change"
Dim RNG As Range
Set RNG = Range("A:A, O:O, Q:Q")
If Not Intersect(RNG, Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = LCase(Target.Value)
Application.EnableEvents = True
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 14:09:56

Micha

vielen Dank für die versch. Methoden!!!
funktionieren alle!
TOP!!! Problem gelöst!!!
Danke euch!! tolles Forum!

AW: Kleinbuchst. in gleicher Zelle erzwingen

23.07.2021 16:07:50

GerdL

Moin Micha!


Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Range("A:B,E:E"), Target) Is Nothing Then
For Each C In Intersect(Range("A:B,E:E"), Target)
Application.EnableEvents = False
C.Value = LCase(C.Value)
Application.EnableEvents = True
Next
End If
End Sub

Gruß Gerd