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"