Gleichheitszeichen vor Zahl einfügen

08/09/2008 - 20:33 von Philipp | Report spam
Hallo,
habe folgendes Problem:
Ich habe eine Excel Mappe, die Daten aus SAP automatisch in Excel zieht.
Damit einzelne Bereiche nicht aktualisiert werden muss vor der dort
stehenden Zahl ein Gleichheitszeichen stehen. z.B. 00. Steht nur 1000
wird die Zahl wieder aktualisiert.

Da es etwas làstig ist immer das Gleichheitszeichen einzutragen wollte ich
mir folgendes Makro basteln, dass für alle markierte Zellen das
Gleichheitszeichen vor die Zahl setzt:

Dim zelle As Range
Dim Wert As Variant
For Each zelle In Application.selection
Wert = zelle.Value
zelle.value = "=" & Wert
next zelle

=> leider Funktioniert das so nicht, ohne Wert würde er überall
Gleichheitszeichen eintragen. Mit festen Zahlen würde es auch funktionieren,
nur nicht mit der Variablen. Umwege über andere Zeichen einbauen und diese
wieder zu ersetzen habe ich auch schon erfolglos ausprobiert.
Danke schon einmal vorab für hilfreiche Tips.
 

Lesen sie die antworten

#1 Claus Busch
08/09/2008 - 20:46 | Warnen spam
Hallo Philipp,

Am Mon, 8 Sep 2008 20:33:38 +0200 schrieb Philipp:

Hallo,
habe folgendes Problem:
Ich habe eine Excel Mappe, die Daten aus SAP automatisch in Excel zieht.
Damit einzelne Bereiche nicht aktualisiert werden muss vor der dort
stehenden Zahl ein Gleichheitszeichen stehen. z.B. 00. Steht nur 1000
wird die Zahl wieder aktualisiert.



probiers mal so:
Dim rngZelle As Range

For Each rngZelle In Selection
If IsNumeric(rngZelle.Value) And _
rngZelle.Value <> "" Then
rngZelle = "=" & rngZelle.Value
End If
Next


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

Ähnliche fragen