Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In einer Namensliste Großbuchstaben einsetzen

Gruppe

Vergleich

Problem

Die Namen aus Spalte A sollen so umgewandelt werden, dass an den richtigen Positionen Klein- durch Großbuchstaben ersetzt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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