Forums Neueste Beiträge
 

Eleganter Zweizeiler gesucht

20/09/2007 - 09:45 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()".

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.

Meine hàssliche Aufzeichnungs-Lösung funktioniert (meistens) aber
langsam und mit viel "selection" und ist sehr hàsslich. 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:08 | Warnen spam
Hallo Frank,

probiers mal so:
Sub Klein()
Dim rngzelle As Range

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

End Sub


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

Ähnliche fragen