Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige