Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gros- und Kleinbuchstaben

Forumthread: Gros- und Kleinbuchstaben

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 sollte in Großschrift und der Rest des Vornamens in Kleinschrift erscheinen. Ist dies über VBA möglich ?
Ich bitte um Hilfe.
Gruß EM
Anzeige
AW: Gros- und Kleinbuchstaben
18.12.2009 12:44:13
Rudi
Hallo,
die Frage ist, wo hört der Nachname auf und wo fängt der Vorname an?
Carl Friedrich Freiherr vom Berg.
AW: Gros- und Kleinbuchstaben
18.12.2009 12:48:36
Erich
Hallo Rudi,
Nachname und Vorname können unterschiedlich lang sein, sind aber IMMER durch ein Leerzeichen getrennt. Der Nachname besteht nur aus einem Wort.
Gruß EM
AW: Gros- und Kleinbuchstaben
18.12.2009 13:07:13
Rudi
Hallo, 
Function GrossUndKlein(sText As String) As String
Dim arrText, i As Integer
arrText = Split(sText, " ")
arrText(0) = UCase(arrText(0))
For i = 1 To UBound(arrText)
arrText(i) = WorksheetFunction.Proper(arrText(i))
Next
GrossUndKlein = Join(arrText, " ")
End Function

Gruß
Rudi
Anzeige
AW: Gros- und Kleinbuchstaben
18.12.2009 12:45:40
Hajo_Zi
Hallo Erich,
Option Explicit
Sub Erich()
' jedes Wort erster Buchstabe groß
MsgBox StrConv("jedes Wort erster Buchstabe groß", vbProperCase)                    '  _
Wortanfang groß
End Sub

Anzeige
AW: Gros- und Kleinbuchstaben
18.12.2009 13:03:48
Erich
Hallo Hajo,
danke für deine Antwort. Das war es nicht.
Gruß EM
AW: Gros- und Kleinbuchstaben
18.12.2009 13:05:03
Hajo_Zi
Halo Erich,
was ist Falsch. Jeder erste Buchstabe des Wortes wird Groß geschrieben. So hatte ich die Aufgabe interpretiert.
Gruß Hajo
Anzeige
AW: Gros- und Kleinbuchstaben
18.12.2009 12:49:34
Tino
Hallo,
meinst Du so?
Dim Vorname$, Nachname$
Nachname = UCase(Left$(TextBox1, InStrRev(TextBox1, " ") - 1))
Vorname = LCase(Right$(TextBox1, Len(TextBox1) - InStrRev(TextBox1, " ")))
Vorname = UCase(Mid(Vorname, 1, 1)) & Mid(Vorname, 2, Len(Vorname))
.Range("A" & lLetzte).Value = Nachname & " " & Vorname
Frohe Festtage wünscht Tino
Anzeige
AW: Gros- und Kleinbuchstaben
18.12.2009 13:02:24
Erich
Hallo Tino,
deine Antwort kommt meinem Wunsch nahe. Nun teste ich.
Ich danke dir.
Gruß EM
AW: Gros- und Kleinbuchstaben
18.12.2009 13:03:34
Hajo_Zi
Hallo Erich,
und bei meiner Lösung mußt Du es erst gar nicht trenen.
Gruß Hajo
@Hajo
18.12.2009 13:14:45
Tino
Hallo,
er möchte den kompletten Nachnamen in Großbuchstaben und beim Vornamen nur den ersten.
z. Bsp. so MAYER Hans
Frohe Festtage wünscht Tino
Anzeige
@Hajo
18.12.2009 13:15:10
Tino
Hallo,
er möchte den kompletten Nachnamen in Großbuchstaben und beim Vornamen nur den ersten Buchstaben.
z. Bsp. so MAYER Hans
Frohe Festtage wünscht Tino
sorry Tastenhänger ;-) oT.
18.12.2009 13:16:08
Tino
Hallo Tino
18.12.2009 13:32:33
Erich
Hallo Tino,
alles paletti. Nun noch eine Frage. Was ist bei zwei Vornamen zu tun ?
Gruß EM
Anzeige
AW: Hallo Tino
18.12.2009 13:34:59
Reinhard
Hallo Erich,
was ist mit Rudis zweiter Antwort?
Gruß
Reinhard
AW: Hallo Tino
18.12.2009 13:56:22
Erich
Hallo Reinhard,
um mit Rudis Antwort umzugehen, bin ich VBA-mäßig zu unbedarft. Tut mir leid.
Gruß EM
Verwendung...
18.12.2009 14:00:42
Tino
Hallo,
erstelle die Function in einen Modul
Function GrossUndKlein(sText As String) As String
Dim arrText, i As Integer
arrText = Split(sText, " ")
arrText(0) = UCase(arrText(0))
For i = 1 To UBound(arrText)
arrText(i) = WorksheetFunction.Proper(arrText(i))
Next
GrossUndKlein = Join(arrText, " ")
End Function
Bei deiner Übergabe an die Zelle machst Du
.Range("A" & lLetzte).Value = GrossUndKlein(Trim(TextBox1.Value))
Gruß Tino
Anzeige
AW: siehe Rudi Beitrag...
18.12.2009 14:01:48
Erich
Hallo Tino,
ich weiss nicht, wie ich Rudis Beitrag einbauen soll. Da bin ich in VBA zu unbedarft. Schade ....
Mit deiner Antwort bin ich klar gekommen.
Gruß EM
Anzeige
Herzlichen Dank an alle
18.12.2009 14:11:03
Erich
und viel Spaß bei den kommenden Feiertagen. Tino, du hast mir sehr geholfen. Dafür Extradank !!!
Gruß EM
AW: falsch interpretiert
18.12.2009 13:33:29
Hajo_Zi
Hallo Tino,
da hatte ich es dann falsch interpretiert. 
Option Explicit
Sub Erich()
' jedes Wort erster Buchstabe groß
Dim StWort As String
StWort = "jedes Wort erster Buchstabe gross"
MsgBox Left(StrConv(StWort, vbProperCase), InStrRev(StWort, " ")) & UCase(Mid(StWort,  _
InStrRev(StWort, " ")))
End Sub

Gruß Hajo
Anzeige
;

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
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
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
Anzeige
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
Anzeige
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
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
Anzeige
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
Größer und Kleiner
JACKD

Hallo Gemeinde.
Hab ich grad einen Denkfehler oder ist Excel komisch?
Mit Folgendem Makro selectiere ich Pivotitems
'Filter Alter( wie an der Notiz zu sehen, muss ich wenn ich die Jahre kleiner 85 auswählen will angeben
~f~ Alter analoges Problem bei größer 85 da muss es größe...
10.12.2012 13:53:38
Thread-ID: 1290117
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige