Umwandeln von großgeschriebenen Text

Computer: Software & Programmierung Office Software
1

Hallo Expertinnen und Experten,

ich habe in einer Excel-Datei in den einzelnen Feldern großgeschriebene Wörter, welche ich alles in kleinschrift umwandeln möchte. z.B. „KANTSTR. 35“ umwandeln in „Kantstr. 35“

wäre schön, wenn mir hier jemand helfen köönte, vielleicht auch mit einem anderen Programm.

danke vorab

Martin

2

Hallo Martin,

ich habe in einer Excel-Datei in den einzelnen Feldern
großgeschriebene Wörter, welche ich alles in kleinschrift
umwandeln möchte. z.B. „KANTSTR. 35“ umwandeln in „Kantstr.
35“

Das geht mit =GROSS2(A1), wenn alles klein sein soll, nimmst du =klein(a1)

Gruß Alex

3

Hallo Leute,

habs nach langen suchen jetzt doch gefundden, wies geht.

viele Grüße

Martin

4

Hallo Martin

ich habe in einer Excel-Datei in den einzelnen Feldern
großgeschriebene Wörter, welche ich alles in kleinschrift
umwandeln möchte. z.B. „KANTSTR. 35“ umwandeln in „Kantstr.
35“

Dieses altbewährte Makro kann noch etwas mehr:

Public ShiftCase As Integer, item
'zyklisches Umschalten von: lower UPER Proper
' nach PC Magazine Jan 23 1996 S. 258
'PROPER ist eine EXCEL-Funktion, Ucase und LCase sind VBA-Funktionen
Sub CaseChanger()
If Selection Is Nothing Then Exit Sub
 ShiftCase = ShiftCase + 1
 If ShiftCase \> 3 Then ShiftCase = 1
 For Each item In Selection
 Select Case ShiftCase
 Case 1
 item.Formula = Application.Proper(item)
 Case 2
 item.Value = UCase(item.Value)
 Case 3
 item.Value = LCase(item.Value)
 End Select
 Next item
End Sub

Viel Vergnügen
Erich

5

HALLO MARTIN,
probiere mal folgendes :o)

Option Compare Database
Option Explicit

Function Proper(strToChange As String) As String
On Error GoTo Err_Proper

Dim Temp$, C$, OldC$, i As Integer

If IsNull(strToChange) Then
Exit Function
Else
Temp$ = CStr(LCase(strToChange))
OldC$ = " "
For i = 1 To Len(Temp$)
C$ = Mid$(Temp$, i, 1)
If C$ >= „a“ And C$ „z“) Then
Mid$(Temp$, i, 1) = UCase$(C$)
End If
OldC$ = C$
Next i
Proper = Temp$
End If

Exit_Proper:
Exit Function

Err_Proper:
MsgBox Err.Description
Resume Exit_Proper

End Function

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]