2.1k Aufrufe
Gefragt in Tabellenkalkulation von dutchi1972 Mitglied (419 Punkte)
Hallo Zusammen,

Ich hab einen Wert über einen bestimmten Sverweis-Formel in A1 dieser wert möchte ich in F1 kopieren per Makro einfügen, dieser Wert soll aber als Zahl eingefügt werden.
Formel geht eine ganze Tabelle nach somit hab ich es über eine Schleife laufen.

Ursprungsformel:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6) = aobjQuellBlatt.Cells(aQuellZeileEnd, 1)

der wert der so eingesetzt wird wird als Text angesehen und nicht als Zahl. Der darauf zugreifende sverweis funktioniert nicht. geh ich anschließend manuell hin un geb den Wert mit der Tastatur ein erkennt Excel das es einen Zahl ist und somit funktioniert der Sverweis.

Danke im voraus für eure Hilfe und Antwort.

Gruß Dutchi

5 Antworten

0 Punkte
Beantwortet von m-o Profi (20.3k Punkte)
Hallo Dutchi,

versuch es mal so:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6) = Val(aobjQuellBlatt.Cells(aQuellZeileEnd, 1))


Gruß

M.O.
0 Punkte
Beantwortet von dutchi1972 Mitglied (419 Punkte)
Bingooooooo
SUPER,,SUPER,,SUPER,,SUPER,,


Danke Danke Gruß Dutchi
0 Punkte
Beantwortet von dutchi1972 Mitglied (419 Punkte)
SUUUUUPER,
BINGO,BINGO,BINGO,BINGO,

hat funktioniert.

Danke Dutchi
0 Punkte
Beantwortet von m-o Profi (20.3k Punkte)
Da ist ja einer ganz aus dem Häuschen ;-).

Gruß

M.O.
0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Dutchi,

wenn Du auch Dezimalzahlen übertragen willst, dann:

aobjQuellBlatt.Cells(aQuellZeileEnd, 6).Value = CDbl(aobjQuellBlatt.Cells(aQuellZeileEnd, 1))


Gruß
Rainer
...