Makro aus Text mach Zahl funktioniert nicht

Bild

Betrifft: Makro aus Text mach Zahl funktioniert nicht von: Andreas
Geschrieben am: 24.03.2005 15:46:58

Aus einem Programm außerhalb von Excell, werden Daten in eine Exceltabelle eingefügt. Darunter sind auch Zahlen, die von Excel aber nur als Text erkannt werden. Folgendes Macro habe ich gemacht:

Range("H1").Select HIER STEHT DIE ZAHL 1 DIE ICH SPÄTER ALS
MULTIPLIKATOR VERWENDE
Selection.Copy
Range("I10:L10").Select DAS IST DIE ERSTE ZEILE DIE UMGEWANDELT WERDEN
MUSS
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Nerven: HIER BEGINNT DER KREISLAUF FÜR DIE FOLGENDEN
ZEILEN, WEIL SICH DIE ANZAHL DER DATEN IMMER
ÄNDERN
ActiveCell.Offset(1, 0).Range("A1:D1").Select
Let K$ = ActiveCell
If K$ = "" Then GoTo ausvorbei
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
GoTo Nerven
Range("A1").Select
ausvorbei:
End Sub


Leider funktioniert das Ganze aber nicht, die Zahlen werden nicht umgewandelt, obwohl es ja händisch funktioniert. Hat vielleicht jemand eine Lösung dafür?

Bild


Betrifft: AW: Makro aus Text mach Zahl funktioniert nicht von: Martin Beck
Geschrieben am: 24.03.2005 16:27:06

Hallo Andreas,

wenn im relevanten Bereich keine Formeln sind, Bereich markieren und


Sub Text_in_Werte()
Selection.Value = Selection.Value
End Sub


Gruß
Martin Beck


Bild


Betrifft: AW: Makro aus Text mach Zahl funktioniert nicht von: Andreas
Geschrieben am: 24.03.2005 17:09:04

Vielen Dank :-) Funktioniert super :-)


 Bild

Beiträge aus den Excel-Beispielen zum Thema "UserForm aus UserForm heraus aufrufen"