Herbers Excel-Forum - das Archiv

zellen von Klein/Grossschrift in Grossschrift ?

Bild

Betrifft: zellen von Klein/Grossschrift in Grossschrift ?
von: MarioK

Geschrieben am: 28.02.2005 18:53:37
Hallo,
ich versuche aus zellen (B2 bis ca B5000) die Mischschrift haben Gross/Klein umzuwandeln auf komplett Grossschrift, und ausserdem soll wenn "gelöscht" in der zelle steht die Zelle übersprungen werden, nur irgendwie will es nicht klappen, ich habs mal so versucht, evtl fehlt ja nur ein kleines bisschen da meine Funktion irgendwie hakt :)

____

Sub Worksheet_Change()
Dim tb As Worksheet
Set tb = Worksheets("Tabelle1")
Dim i As Long
redo:
For i = 2 To 5000
inrange = "b" & i
Sheets("tabelle1").Select
Range(inrange).Select
zeile1 = ActiveCell.Row
spalte1 = ActiveCell.Column
Cells(zeile1, spalte1).Activate
ws = ActiveCell.Value
bs = "b" & i
Range(bs).Select
MsgBox bs
If ws = "gelöscht" Then GoTo skip
tb.[bs] = UCase(tb.[bs])
skip:
Next
Exit Sub
End Sub

___
Gruss Mario
Bild

Betrifft: AW: zellen von Klein/Grossschrift in Grossschrift ?
von: R@iner
Geschrieben am: 28.02.2005 19:11:20
Hallo,
ich schreibs mal anders:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Object
For Each a In Range("B2:B5000")
If a <> "" And a <> "gelöscht" Then
a = UCase(a)
End If
Next a
End Sub

MfG Rainer
Bild

Betrifft: AW: zellen von Klein/Grossschrift in Grossschrift ?
von: MarioK
Geschrieben am: 28.02.2005 19:25:34
Jau Danke,
warum einfach wenns auch schwierig geht :)
funzt 1A
Gruss Mario
Bild

Betrifft: AW: zellen von Klein/Grossschrift in Grossschrift
von: GraFri

Geschrieben am: 28.02.2005 19:22:11
Hallo
Vielleicht hilft dir folgender Code weiter.
Es ist nicht sinnvoll, bei jeder Eingabe alle Zellen zu überprüfen.


      
Option Explicit
' In entsprechende Tabelle, eventuell Tabellennamen anpassen
' Es wird nur immer die letzte Eingabe überprüft

Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim dB1         As Worksheet
Dim Wert        As String
Set dB1 = Worksheets("Tabelle1")
On Error GoTo Fehler
Application.EnableEvents = 
False
If Target.Column = 2 Then   'Spalte B
    Wert = dB1.Range(Target.Address).Value
    
If Wert = "gelöscht" Then GoTo Fehler
        
Select Case Asc(Wert)
            
Case 95 To 122
            dB1.Range(Target.Address).Value = UCase(dB1.Range(Target.Address).Value)
        
End Select
End If
Application.EnableEvents = 
True
Exit Sub
Fehler:
Application.EnableEvents = 
True
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0


Bei weiteren Fragen einfach melden.
mfg, GraFri
Bild

Betrifft: AW: zellen von Klein/Grossschrift in Grossschrift
von: MarioK
Geschrieben am: 28.02.2005 19:28:04
Ist natürlich noch komfortabler, besonders wenn ich mehrere Tabellenblätter habe.
Vielen Dank
Gruss Mario
 Bild
Excel-Beispiele zum Thema "zellen von Klein/Grossschrift in Grossschrift ?"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen