Add In erstellen
31.07.2002 15:05:48
cfrey
Sub Text_zu_Zahl()
For Each Zelle In Worksheets("Tabelle1").Range("D1:F1000")
s = Zelle.Value
If s <> "" And IsNumeric(s) Then
s = s * 1
Zelle.Value = s
End If
Next Zelle
End Sub
das Makro greift einfach nur jede Zelle einmal an und aktiviert diese. (F2)
Frage:
Was muß ich tun, damit dieses Makro beim starten von Excel immer zu Verfügung steht.
Gibt es eine Möglichkeit die Geschichte so Umzubauen, daß noch vor der Ausführung noch eine Abfrage über den zu behandelnden Zellbereich erscheint?(Range("D1:F1000")
Anzeige