Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

GROSS Buchstaben

GROSS Buchstaben
08.09.2003 07:54:23
junny
Hallole,
Hab ein Problem: Ich will Zellen auf Grosbuchstaben formatieren.
Weiss jemand wie das geht?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GROSS Buchstaben
08.09.2003 07:56:37
Hajo
Hallo Junny

mit formatierung geht es nicht. Soll das Wort in Großbuchstaben in die gleiche Zelle geschrieben werden muß VBA ran. Schaue mal auf meine Hompage da gibt es ein Beispiel dazu. Adresse steht unter Profile.

Gruß Hajo
AW: GROSS Buchstaben
08.09.2003 08:01:48
WernerB.
Hallo Junny,

ich kenne dazu keine Formatierungsmöglichkeit.
Für Großschreibung gibt es aber diverse Excel-Funktionen.
Als VBA-Anregung:

Sub Umwandeln()
'Alles in Kleinbuchstaben
Range("A1") = StrConv(Range("A1"), vbLowerCase)
'oder
Range("A1") = LCase(Range("A1"))
'Alles in Grossbuchstaben
Range("A1") = StrConv(Range("A1"), vbUpperCase)
'oder
Range("A1") = UCase(Range("A1"))
'Erstes Zeichen in Grossbuchstaben
Range("A1") = StrConv(Range("A1"), vbProperCase)
End Sub

Gruß WernerB.
Anzeige
AW: GROSS Buchstaben
08.09.2003 08:26:04
Willie
für die Spalte A kannst du es somachen! Die Werte werden in B geschrieben:
Gruß Willie


Sub Grossbuchstaben()
iMax = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row
For i = 1 To iMax
Cells(i, 2).Activate
ActiveCell.FormulaR1C1 = "=UPPER(RC[-1])"
Next
End Sub


P.S. Danke auch für das Lob von vorhin!
Danke an alle
08.09.2003 08:29:35
junny
Danke, verschiedene Ansätze, ich probier das durch.
Gruss junny
Danke für die Rückmeldung oT
08.09.2003 08:31:54
Hajo_Zi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige