Eleganter Dreizeiler gesucht

20/09/2007 - 10:02 von Frank Vellner | Report spam
Moin,

ich suche eine schöne Lösung für "scheibe in die rechte Spalte neben
die aktuelle Selektion den "Nur-Wert" der aktuell selektieren Zellen in
=klein()" und entferne Leerzeichen die sich gelentlich am Ende des
Urspungs-Eintrags befinden.

Manuell würde man es so machen: Groß geschriebene Worte stehen in
A1-A10 (oder irgendwo anders - hier nur Bespiel), man schreibt in B1
=klein(a1), kopiert das bis B10, markiert B1-B10, kopiert und fügt an
selber Stelle als Nur-Wert wieder ein. Für die am Ende befindlichen
Leerzeichen gehe ich über "Wechseln" und wechsel nicht, wenn sich zwei
Worte in der Ursprungszelle befinden.

Meine hàssliche Aufzeichnungs-Lösung funktioniert (meistens) aber
langsam und mit viel "select" und ist sehr hàsslich. Und die
Leerzeichen muss ich eh von Hand wegwechseln. Ich würde gerne mal
sehen, wie das in schön aussieht :-)

Viele Grüße
Frank
 

Lesen sie die antworten

#1 Claus Busch
20/09/2007 - 10:17 | Warnen spam
Hallo Frank,

eigentlich das Gleiche wie vorhin, aber mit Trim werden die Leerzeichen
davor und dahinter entfernt:
Sub Klein2()
Dim rngzelle As Range

'Hier Bereich anpassen
For Each rngzelle In Range("A1:A10")
rngzelle.Offset(0, 1).Value = _
Trim(LCase(rngzelle))
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen