Warum funzt das hier nicht ?
24.03.2009 07:15:41
Kai
ich möchte auf dem Sheet "Ablage" diesen Code ausführen. Er soll klein in GROSS-Schrift umwandeln.
Nur wenn ich den Code direkt mit einem Button auf das Sheet setze , wird die Spalte angesprochen. Wenn ich auf einem anderen Blatt bin geht es nicht, woran liegt denn das ? Spreche ich die Spalte nicht an ? Hier der Code
With Sheets("Ablage")
Dim Zei As Long
For Zei = 1 To 1000
Cells(Zei, 57) = UCase(Cells(Zei, 57))
Next Zei
End With
Danke
Kai