Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

303 Forumthreads zu ähnlichen 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
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
Nur Erster Buchstabe in Zelle groß
nuernberg@esm-ept.de

Guten Morgen zusammen,
ich bin auf der Suche nach einem Makro mit dem ich den ersten Buchtstaben (nur den ersten) in allen Zellen in einer Tabelle groß machen kann. Ich habe schon im Forum gesucht und habe leider nur Makros gefunden die immer jedes Wort groß anfangen - ich will aber nur da...
25.11.2010 08:14:56
Thread-ID: 1188658
6 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
3
20
3
6
3
2
5
2
2
4
3
4
16
6
2
2
4
2
8
2
1
8
12