Forums Neueste Beiträge
 

Ziffern rauswerfen

02/09/2007 - 18:17 von Heiner Berghoff | Report spam
Hallo liebe Excel-Helfer,
das nachfolgende Makro soll
solange das erste Zeichen einer
Anzahl von Zellen löschen, bis ein
Buchstabe kommt ( A-Z) !
Ziffern, Satzzeichen, Leerzeichen und
Sonderzeichen sollen eleminiert werden.
Es klappt nicht ! Was mache ich falsch ?
Danke im Voraus !

mit excel(-lenten) Grüßen Heiner


Sub Anfangsleerzeichen()
Dim zelle As Range
Dim Auswahl As Range

For Each zelle In Selection
Set Auswahl = Selection
ActiveCell.Characters(1, 1).=<chr(64)
ActiveCell.Offset(1, 0).Activate
Next zelle
Auswahl.Select

End Sub
 

Lesen sie die antworten

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

Am Sun, 2 Sep 2007 18:17:57 +0200 schrieb Heiner Berghoff:

Hallo liebe Excel-Helfer,
das nachfolgende Makro soll
solange das erste Zeichen einer
Anzahl von Zellen löschen, bis ein
Buchstabe kommt ( A-Z) !
Ziffern, Satzzeichen, Leerzeichen und
Sonderzeichen sollen eleminiert werden.



probiere es mal so an einer Kopie deiner Mappe:
Sub RestWort()

Dim rngZelle As Range
Dim intChar As Integer
Dim Erg As Integer

For Each rngZelle In Selection
For intChar = 65 To 90
If InStr(1, rngZelle, Chr(intChar)) > 0 Then
Erg = InStr(1, rngZelle, Chr(intChar))
Exit For
End If
Next intChar
rngZelle.Value = Right(rngZelle, Len(rngZelle) + 1 - Erg)
Next rngZelle

End Sub


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

Ähnliche fragen