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

Prüfen Textbox Groß und Klein mit Ausnahmen

Forumthread: Prüfen Textbox Groß und Klein mit Ausnahmen

Prüfen Textbox Groß und Klein mit Ausnahmen
06.03.2014 01:52:53
lisa
Hallo,
in einer Userform TextBox werden die ersten Buchstaben automatisch groß geschrieben.
Wie kann ich erreichen, das Ausnahmen gemacht werden?
"Hansen von der Gründen"
soll nicht als "Hansen Vor Der Gründen" angezeigt werden.
Könnte ich hierfür ein TB anlegen und die Wörter welche kleingeschrieben werden
sollen aufführen und prüfen lassen? 
Private Sub txtNachname_Change()
With txtNachname
If Trim(.Value)  "" Then
.Value = WorksheetFunction.Proper(.Value)
End If
End With
End Sub

Danke!
Gruß, Lisa

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Könntest du denn? ;-> Gruß owT
06.03.2014 03:55:27
Luc:-?
:-?

AW: Könntest du denn? ;-> Gruß owT
06.03.2014 06:45:29
lisa
Hallo Luc,
Was ist das für eine Antwort? "Könntest du denn? "
Gruß
Lisa

Solche Fragen stellt man nicht, wenn man ...
06.03.2014 14:42:23
Luc:-?
…mehr als nur Ja, Nein oder eine Gegenfrage erwartet, Lisa;
das solltest du eigentlich wissen! Woher soll denn hier Einer wissen, was du kannst bzw könntest! :->
Luc :-?

Anzeige
AW: Prüfen Textbox Groß und Klein mit Ausnahmen
06.03.2014 07:59:10
Hajo_Zi
Hallo Lisa,
wie Dir bekannt sein dürfte wird jeder Buchstabe nach einer Leerstelle Groß geschrieben. wenn V eingegeben wird ist noch nicht klar was eingegeben wird. Das kannst Du erst am Schlus prüfen AfterUpdate.

Anzeige
AW: Prüfen Textbox Groß und Klein mit Ausnahmen
06.03.2014 13:07:34
Rudi
Hallo,
Liste der Ausnahmen in Blatt1!A:A
Private Sub TextBox1_AfterUpdate()
Dim i As Integer, arr
arr = Split(TextBox1, " ")
For i = 0 To UBound(arr)
If WorksheetFunction.CountIf(Sheets(1).Columns(1), arr(i)) = 0 Then
arr(i) = WorksheetFunction.Proper(arr(i))
Else
arr(i) = LCase(arr(i))
End If
Next
TextBox1 = Join(arr, " ")
End Sub

Gruß
Rudi

Anzeige
AW: Prüfen Textbox Groß und Klein mit Ausnahmen
06.03.2014 16:38:15
lisa
Hallo Rudi,
danke für Deine Antwort.
ich habe Dein Beispiel in eine Mappe eingefügt doch leider funktioniert es nicht.
Ach ja, ich habe Excel 15
https://www.herber.de/bbs/user/89562.xlsm
Gruß
Lisa

AW: Prüfen Textbox Groß und Klein mit Ausnahmen
06.03.2014 18:09:42
Rudi
Hallo,
du musst natürlich Textbox1_Change löschen
Gruß
Rudi

Anzeige
o.T ;-) Danke!
07.03.2014 06:30:31
Ludmila
.

Forumthreads zu verwandten Themen

Buchstaben abwechseln groß und klein
Andy

Hallo Leute!
Ich probiere schon ne ganz Weile an folgendem "Problem".
In der Zelle A1 steht ein beliebig langer Text. Ich hätte jetzt gern die Buchstaben abwechselnd groß und dann klein -- 'HaLlO LeUtE, HeUtE iSt mItTwOcH'
mir fällt allerding keine wirkliche Lösung dafür ein, wie ic...
15.10.2008 16:21:29
Thread-ID: 1016608
6 Beiträge
Anzeige
Groß- und Kleinschreibung für Variablen
Jürgen

Hallo Excel Profis.
Für eine Datei werden Rechte in Abhängigkeit des Benutzernamens vergeben.
Den Benutzernamen (Variable "Benutzer") liest daß Programm folgendermaßen:
Benutzer = Environ("Username")
Das funktioniert auch soweit einwandfrei.
Die Rechte werden dann über Selec...
29.07.2009 11:13:22
Thread-ID: 1092183
4 Beiträge
Gros- und Kleinbuchstaben
Erich

Hallo,
vielleicht kann mir jemand helfen. In einer Tabelle gebe ich über ein UF Namen in TextBox1 ein. Die Namen bestehen aus Nach- und Vorname. Alle in einer Zelle.
".Range("A" & lLetzte).Value = UCase(Trim(TextBox1.Value))".
Der Nachname, sowie der erste Buchstabe im Vornamen...
18.12.2009 12:44:13
Thread-ID: 1124874
21 Beiträge
Anzeige
Buchstaben aus der Zelle entfernen/Übertragen?
Djalil

Hallo zusammen,
wie kann man 2 Buchstaben, die in einer Zelle stehen, in eine anderen Zelle übertragen lassen?
Beispiel
In Zelle A1 steht: 06:00 - 08:00 TO. Die 2 Buchstaben (TO) sollen aus der Zelle A1 entfernt und in die Zelle B1 übertragen werden. Welche Uhrzeit in A1 steht, soll...
09.06.2010 16:31:54
Thread-ID: 1161132
7 Beiträge
Anzeige
1. Buchstabe großschreiben
peter

Hallo Freunde
Kann man mittels VBA den 1. Buchstaben eines Wortes in einer Excelzelle großschreiben.
Ich bitte um Hilfe
Gruß Peter
30.06.2010 07:52:46
Thread-ID: 1164632
4 Beiträge
Färben, wenn größer oder kleiner
Jockel

Hallo
ich habe eine Spalte (H) mit Prozentangaben, ich habe sie momentan noch als Zahl formatiert
(zB 0,8 oder 0,33 oder 0,5.....)
Nun möchte ich die Werte färben, wenn sie zwischen bestimmten Angaben liegen:
If Cells(x, 13).Value > "0.01" And Cells(x, 13).Value < "0.20" T...
10.11.2010 14:18:09
Thread-ID: 1186096
3 Beiträge
Suche nach Text "Klein" oder "GROSS"...
kle

Hallo,
Ich habe aus dem archiv ein Code gefunden, um zellen nach einem String zu durchsuchen. Dabei wird der String aus der Textbox "TBSuche" übergeben.
If InStr(.Cells(lZeile, 3).Value, TBSuche.Text) "größer" 0 Then ' Das Größer-Symbol wurde hier nicht akzeptiert im Forum...
Doc...
08.03.2011 15:28:25
Thread-ID: 1204813
3 Beiträge
Anzeige
Suchen von Anfangsbuchstaben in einer Zelle
Paul

Ich habe eine Liste von Personen, die alphabetisch sortiert sind. Links befindet sich eine leere Spalte. Dort soll der Anfangbuchstabe der rechnen Zelle eingetragen werden, wenn die vorherige Zelle einen anderen Anfangsbuchstaben hat. Ich suche also eine Formel, die den Anfangbuchstaben mit dem...
25.05.2002 22:02:33
Thread-ID: 123709
3 Beiträge
Groß- und Kleinschreibung
Seyfi

Hallo,
Wie kann ich dafür sorgen das die Groß- und Kleinschreibung beachtet wird bei diesen zwei Formeln?
=WENN(ODER(A6="b";A6="c";A6="d";A6="f";A6="g";A6="h";A6="j";A6="k";A6="l";A6="z";A6="A";A6="B");"x"; " ")
einmal bei dieser
und bei dieser
=WENN(A6="a";"x";" ")
...
12.05.2011 14:08:44
Thread-ID: 1214200
5 Beiträge
GROSS und Kleinbuchstaben
helena

Hallo
ist es möglich If WERT = "ERLEDIGT" or = "erledigt" abzufragen
wegen Zeilen ausblenden, wenn ich mit OR versuche kommt Fehlermeldung ...
Sub Zellen_ERLEDIGT_Ausblenden() Dim Markierung As Range, Wert As String, Zelle As Range Set Markierung = ActiveSheet.Range("M5:M501") For E...
19.01.2012 15:33:13
Thread-ID: 1247010
4 Beiträge
VBA - 1. Buchstabe groß
WalterK

Hallo,
der folgende Codeteil prüft, ob in B2 und C2 die Überschriften ZUNAME und VORNAME stehen. Wenn ja, wird vor der Spalte B eine neue Spalte eingefügt und die beiden Spalten ZUNAME und VORNAME werden in der neu eingefügten Spalte eingetragen. Kurz gesagt, die Einträge in den beiden getr...
09.03.2012 01:02:54
Thread-ID: 1254297
5 Beiträge
1. Buchstabe im Zelle Groß
Peter

Hallo
wie kann ich mit Hilfe eines VBA-Code in einer Zelle den 1. Buchstabe groß schreiben lassen bezogen auf einen markierten Bereich, wo immer nur ein Wort in der Zelle steht.
Beispiel
A1: arbeit soll Arbeit
B1: stunde soll Stunde
Danke vorab und Gruß
Peter
10.04.2012 00:10:15
Thread-ID: 1258556
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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