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