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

Erster Buchstabe groß in bestimmten Rang

Forumthread: Erster Buchstabe groß in bestimmten Rang

Erster Buchstabe groß in bestimmten Rang
29.06.2021 08:57:59
Chris
Hallo Forum,
ich möchte per VBA in den Ranges B10:B100 und H10:H100 jeden Buchstaben automatisch großschreiben lassen, per VBA und bspw. Application.proper
Wie setze ich das um?
Schon mal danke für Eure Hilfe.
Gruß
Chris
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erster Buchstabe groß in bestimmten Rang
29.06.2021 09:18:53
UweD
Hallo
so?

Sub Grossbuchstaben()
Dim RNG As Range, Zelle
Set RNG = Range("B10:B100, H10:H100")
For Each Zelle In RNG
Zelle.Value = UCase(Zelle.Value)
Next
End Sub
LG UweD
AW: Erster Buchstabe groß in bestimmten Rang
29.06.2021 09:25:15
Chris
Hallo Uwe,
danke für die Rückmeldung.
Ich hatte mich vertan: Es soll nur der erste Buchstabe groß geschrieben werden....
Gehört das unter Worksheet_Change oder _SelectioChange?
Mit dem obigen Makro erscheint die Meldung: Nicht genügen Speicher und Excel beendet sich selbst...
Gruß
Chris
Anzeige
AW: Erster Buchstabe groß in bestimmten Rang
29.06.2021 09:40:27
Daniel
Hi
Dieses Makro gehört als eigenständiges Makro in ein allgemeines Modul, weil es dazu dient, bereits vorhandene Daten entsprechend zu korrigieren.
Wenn du Eingaben des Benutzers korrigieren willst, dann gehört das ins Change-Event des Tabellenblatts, allerdings musst du das dann etwas anders schreiben:

Dim Zelle as Range
If Not Intersect(Target, Range("B10:B100,H10:H100")) is nothing then
Application.EnableEvents = False
For each Zelle in Intersect(Target, Range("B10:B100,H10:H100"))
If Zelle.Value  "" Then
Zelle.Value = UCase(Left(Zelle.Value, 1)) & Mid(Zelle.Value, 2)
End If
Next
Application.EnableEvents = True
End if
Gruß Daniel
Anzeige
AW: Erster Buchstabe groß in bestimmten Rang
29.06.2021 09:24:30
UweD
Wenn es nur der Erste Buchstabe sein soll

Sub Grossbuchstaben2()
Dim RNG As Range, Zelle
Set RNG = Range("B10:B100, H10:H100")
For Each Zelle In RNG
Zelle.Value = WorksheetFunction.Proper(Zelle.Value) 'nur Erster jedes Wortes
Next
End Sub
Sub Grossbuchstaben3()
Dim RNG As Range, Zelle
Set RNG = Range("B10:B100, H10:H100")
For Each Zelle In RNG
Zelle.Value = UCase(Left(Zelle.Value, 1)) & Mid(Zelle.Value, 2) 'nur vom ersten Wort
Next
End Sub
LG UweD
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
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
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
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
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
Anzeige
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