Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Umwandeln von Klein- in Großbuchstaben

Umwandeln von Klein- in Großbuchstaben
01.12.2004 14:03:47
Klein-
Hallo,
ich habe mal ne Frage:
Ich habe einige Zellen mit "Bedingter Formatierung" so formatiert, dass bei Eingabe eines "G" die Zelle grün eingefärbt wird, bei "Y" gelb und bei "R" rot. (also eine Statusabfrage) Leider ist es auch zulässig, Kleinbuchstaben einzugeben.
Nun habe ich eine Möglichkeit (siehe unten) gefunden, die auch meinen Vorstellungen entspricht...allerdings funktioniert dies nur für die Zelle A1. Ich würde gern Zelle B1 bis B25 nach diesem Prinzip belegen....wie muss ich es umformulieren...bin da absoluter Neuling, was das anbetrifft:-)
Vielen Dank für eure Hilfe

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").Value = UCase(Range("A1").Value)
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Umwandeln von Klein- in Großbuchstaben
Klein-
ungetestet:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B1:B25").Value = UCase(Range("B1:B25").Value)
End Sub

AW: Umwandeln von Klein- in Großbuchstaben
Klein-

Private Sub Worksheet_Change(ByVal Target As Range)
dim z as long
for z = 1 to 25
cells(z,2)= ucase(cells(z,2))
next
End Sub

Ulf
Anzeige
AW: Umwandeln von Klein- in Großbuchstaben
Klein-
Hallo Daniel
Ersetze die zweite Zeile mit folgendem Code
dim x as integer
for x = 1 to 25
Cells(x,2).value = UCase(cells(x,2).value)
next x
Gruss
Jürg
AW: Umwandeln von Klein- in Großbuchstaben
Klein-
Hallo Daniel,
versuchs mal so:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1:B25"), Target) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Gruß Ingo
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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