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?