Sub neu()
For Each cb In Range("a2:k358")
cb.Value = UCase(cb.Value)
Next
End Sub
dank dir chris, hat geklappt, gruss o.T.
19.03.2006 18:17:15
mehmet
.
AW: zellinhalte nachtraeglich grossschreiben
19.03.2006 18:23:19
Nepumuk
Hallo Chris,
da es sich um eine einmalige Aktion handelt, ist das so Ok. Wenn das öfters mal gemacht werden muss, ist das ganze über in einem Array wesentlich schneller. Beispiel:
PublicSub mehmet() Dim vntArray AsVariant Dim lngRow AsLong Dim intColumn AsInteger vntArray = Range("A2:K358").Value For lngRow = 1 ToUBound(vntArray, 1) For intColumn = 1 ToUBound(vntArray, 2) vntArray(lngRow, intColumn) = _ UCase$(vntArray(lngRow, intColumn)) Next Next Range("A2:K358").Value = vntArray EndSub