Makro aus Text mach Zahl funktioniert nicht
24.03.2005 15:46:58
Andreas
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?