Cell.Value mehrerer Zellen auf einen Streich ändern - geht das ?

09/08/2009 - 21:37 von Sebastian Lange | Report spam
Hallo Zellengenossen,

Ich suche nach einem Weg den Ihnalt mehrerer bzw. vieler Zellen
mit einem oder wenigen Aufrufen zu àndern.
Konkret möchte ich in den Values der Zeilen immer das erste Zeichen entfernen.
Ich hab das hier probiert:

Set myRange = ActiveSheet.Range("A1;D5;F10");
myRange.Value = Right(myRange.Value, Len(myRange)-)

Allerdings steht danach überall der kastrierte Wert der ersten Zelle A1.
Gibts da irgendwelche Funktionen die mir das Veràndern einer Menge
in dieser Form erlauben ?

Viele Grüsse
Sebastian
 

Lesen sie die antworten

#1 Claus Busch
09/08/2009 - 21:50 | Warnen spam
Hallo Sebastian,

Am Sun, 9 Aug 2009 12:37:01 -0700 schrieb Sebastian Lange:

Ich suche nach einem Weg den Ihnalt mehrerer bzw. vieler Zellen
mit einem oder wenigen Aufrufen zu àndern.
Konkret möchte ich in den Values der Zeilen immer das erste Zeichen entfernen.
Ich hab das hier probiert:

Set myRange = ActiveSheet.Range("A1;D5;F10");
myRange.Value = Right(myRange.Value, Len(myRange)-)

Allerdings steht danach überall der kastrierte Wert der ersten Zelle A1.
Gibts da irgendwelche Funktionen die mir das Veràndern einer Menge
in dieser Form erlauben ?



probiers mal so:
Dim myRange As Range
Dim rngZelle As Range

Set myRange = ActiveSheet.Range("A1,D5,F10")
For Each rngZelle In myRange
rngZelle = Right(rngZelle, Len(rngZelle) - 1)
Next


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

Ähnliche fragen