Großbuchstaben
13.05.2004 16:19:18
Brillo
möchte in einer Tabelle Spalte B alles in Großbuchstaben darstellen !
Habe folgenden Code gefunden allerdings für Spalte A:
Sub zuGross()
Dim iRow As Integer, iRowL As Integer, iChr As Integer
Dim sTxt As String
iRowL = Cells(Rows.Count, 1).End(x1Up).Row
For iRow = 1 To iRowL
If Not IsEmpty(Cells(iRow, 1)) Then
Cells(iRow, 1).Value = _
WorksheetFunction.Proper(Cells(iRow, 1).Value)
End If
Next iRow
With Worksheets("NegativListe")
iRowL = .Cells(Rows.Count, 1).End(x1Up).Row
For iRow = 1 To iRowL
Columns(1).Replace_
WorksheetFunction.Proper (.Cells(iRow, 1).Value), _
.Cells(iRow, 1)
Next iRow
End With
End Sub
Leider funtz es nicht.
Auch nicht in Spalte A.
Wenn ich starte meldet der Compi:
Fehler beim Kompilieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
in der Zeile:
WorksheetFunction.Proper (.Cells(iRow, 1).Value), _
wird .Proper makiert.
Hat jemand eine Idee was falsch ist und welchen Parameter muß ich ändern muß
damit die Spalte B funktioniert.
Vielen Dank !!!
Gruß Erik