Gruppe
Allgemein
Problem
Die Namen aus Spalte A sollen so umgewandelt werden, dass an den richtigen Positionen Klein- durch Großbuchstaben ersetzt werden.
StandardModule: Modul1
Sub ZuGross()
Dim iRow As Integer, iRowL As Integer, iChr As Integer
Dim sTxt As String
iRowL = Cells(Rows.Count, 1).End(xlUp).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(xlUp).Row
For iRow = 1 To iRowL
Columns(1).Replace _
WorksheetFunction.Proper(.Cells(iRow, 1).Value), _
.Cells(iRow, 1)
Next iRow
End With
End Sub