Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleinbuchst. in gleicher Zelle erzwingen

Forumthread: Kleinbuchst. in gleicher Zelle erzwingen

Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 11: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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 11: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
Anzeige
AW: Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 11: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 11:53:06
Oberschlumpf
Hi Micha,
aus...

If .Column = 1 Then
...mach...

If .Column = 1 Or .Column = 15 Or .Column = 17 Then
Hilfts?
Ciao
Thorsten
Anzeige
AW: Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 11: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
Anzeige
AW: Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 11: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
Anzeige
AW: Kleinbuchst. in gleicher Zelle erzwingen
23.07.2021 12: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 14: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
Anzeige

Forumthreads zu verwandten Themen

erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
UnterschiedlicheFormatierung innerhalb einer Zelle
Heinzelmännchen

Hallo zusammen,
ich möchte einen Wert innerhalb einer Zelle (Formel) mit einer Formatierung versehen (Fett gedruckt). Funktioniert das?
Viele Grüße
Steffi
02.02.2009 11:50:00
Thread-ID: 1046136
6 Beiträge
Text innerhalb einer Zelle faerben
Timmy

Liebe Excler,
gibt es eine Moeglichkeit (evtl. in der bed. Formatierung) einen Text innerhalb einer Zelle zu faerben?
Z.B.
A1 Excel 2003 ist super
A2 Excel 2003 ist genial
Excel soll mir nun jeweils "Excel 2003" farblich machen, den Zusatz jedoch nicht!
Geht das, am best...
20.03.2009 14:28:40
Thread-ID: 1062211
19 Beiträge
Zeilenumbruch in Zelle mit Verkettungen
Rolf

Hallo!
ich möchte in eine Zelle folgendes schreiben: ="Text" & A1
Dann sollte aber der Text in der 1. Zeile stehen, der Rest in der 2. Zeile.
Alt-Return klappt leider nicht.
Kann mir jemand sagen, wie ich das hinkriege (ohne die Zelle entsprechend zu verkleinern)?
Danke<...
02.06.2009 09:48:33
Thread-ID: 1078547
6 Beiträge
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Zeilenumbruch in einzelne Zellen
Larissa

Hallo,
wie bekomme ich es mit einem Makro oder einer Formel hin, dass Werte die in einer Zelle mit Zeilenumbrüchen eingetragen sind, untereinander in einzelne Zellen zu übertragen werden?
Dieses ist z.B. ein Eintrag in einer Zelle A1:
"Montag
Dienstag
Mittwoch"
und soll...
11.10.2009 11:23:20
Thread-ID: 1108862
4 Beiträge
aktive Zelle in Zeilenumbruchmodus versetzen
Karsten

Hallo...
ich möchte die aktive Zelle im Zeilenumbruchmodus angezeigen lassen. Bei Verlassen soll sie wieder zurückgesetzt wird.
Kann mir jemand dabei helfen?
Danke
Gruß
Karsten
09.11.2009 14:23:06
Thread-ID: 1115511
9 Beiträge
Zeilenumbruch und sverweis in Zelle
Rainer

Hallo,
ich habe eine Exceldatei erhalten, die ich aufbereiten soll.
In der A-Spalte befinden sich in einzelnen Zellen jeweils Daten, die durch ein /-Zeichen getrennt sind:
Die Daten sind in folgender Reihenfolge eingegeben: Artikelnummer/Lieferantennummer/Preis
Dabei sind teilwe...
24.03.2010 10:48:17
Thread-ID: 1148071
14 Beiträge
Curser springt nach Enter in eine bestimmte Zelle
KLE

Hallo,
...komisches Problem - brauche eine Idee, wo ich schauen - bzw. was ich ändern kann.
Habe in einem Arbeitsblatt ein Eingabeformular gebastelt (ca. 20 Felder).
Alles ist schreibgeschützt bis auf diese Eingabezellen.
Wenn jemand in eine Zelle was einträgt und nun Enter drüc...
27.11.2010 14:05:33
Thread-ID: 1189020
2 Beiträge
Text mit Zeilenumbrüchen in verbundener Zelle
JensF

Hallo Leute,
ich habe längere texte in verbundenen Zellen. Die Zelle erlaubt Zeilenumbrüche.
Wenn ich nun die optimale Zeilenhöhe einstellen will reduziert Excel die Höhe auf eine Zeile.
Das pasiert nur wegen der blöden verbunenden Zelle.
Gibt es einen Trick mit dem dieser Bug...
28.02.2011 13:39:04
Thread-ID: 1203330
8 Beiträge
Anzeige
2 zeilig innerhalb einer zelle
bernhard

ich möchte den inhalt aus 2 zellen (a1 und b1) in 1 zelle (c19) transportieren.
innerhalb c1 soll dann der text 2 zeilig untereinander stehen.
nachdem es sich um viele daten handelt, bringt der mir bekannte weg über 2x kopieren und einfügen und dazwischen alt+return (für zeilenumbruch) mi...
17.05.2002 14:23:02
Thread-ID: 121721
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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