Bestimmte Wörter bei Korrektur auslassen

Hallo Claus,

sie sind Teilstrings eines Satzes.

Ich habe jetzt versucht das Problem mit Replace zu lösen:

Sub kleininGROß()

Dim Zelle As Range

For Each Zelle In Selection

Zelle.Replace " usa ", " USA ", xlPart

Next Zelle

End Sub

Jetzt wird USA aber nur erkannt, wenn vorher und nachher eine Leertaste ist, am Satzanfang bzw Ende funktioniert es also nicht. Wenn ich die Leertasten weglasse wird das Wort auch geändert wenn es nur Teil eines anderen Wortes ist. Gibt es dafür eine Variable?

Danke,

Simon

Wenn Du Wörter in einem Satz ändern willst, dann musst Du zuerst den Satz in Wörter splitten. Das ist jedoch nicht trivial, weil Du alle Trennzeichen berücksichtigen musst.

Erst dann kannst Du die einzelnen Wörter korrigieren und ersetzen.

Zum Schluss baust Du den Satz wieder zusammen.

Andreas.

Option Explicit

Option Compare Text

Sub WandleInKleinBuchstabenUm()

  Dim Zelle As Range

  For Each Zelle In Selection

    With Zelle

      Select Case .Value

        Case "USA", "BRD"

          'Ignore

        Case Else

          .Value = LCase(.Value)

      End Select

    End With

  Next

End Sub

Hallo Simon,

probiere mal:

Sub Kleinschreibung()

Dim rngC As Range

Dim varTmp As Variant

Dim strTmp As String

Dim i As IntegerConst strLand = "USABRD"

For Each rngC In Selection

   varTmp = Split(rngC, " ")

   For i = LBound(varTmp) To UBound(varTmp)

      strTmp = strTmp & " " & _

         IIf(InStr(strLand, varTmp(i)) = 0, LCase(varTmp(i)), varTmp(i))

   Next

   rngC = Mid(strTmp, 2)

   strTmp = ""

Next

End Sub

Claus

Hallo Simon,

wenn du nicht gerade Worte wie "Usambara-Veilchen" in deinen Zellen hast, kannst du auch alles klein schreiben und dann die "usa" und "brd" durch "USA" und "BRD" ersetzen:

Sub Klein()

Dim rngC As RangeFor Each rngC In Selection

   With rngC

      .Value = Replace(Replace(LCase(.Value), "brd", "BRD"), "usa", "USA")

   End With

Next

End Sub

Claus