Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

convert to number

Forumthread: convert to number

convert to number
15.12.2004 16:26:20
Sunny
Hi Leute.
Ich habe heute weiter an meiner EXceltabelle gearbeitet. Und da wollte ich die Summe aus der Spalte ermitteln. Die Daten werden durch eine VBA maske immmer in eine Zeile eingefügt. Somit schiebt es die Alte Zeile eins nach unten. Ich bräuchte eure Hilfe dabei wie die Summe aus den in einer Spalte stehenden Werten ausgeben kann. Das Problem ist dabei das die Werte keine Nummern sind. Sondern Text oder ähnliches. es ist eine Fehler meldung an der Zahl wo ich dann die Zahl zu einer nummer covertieren kann ("convert to number"). Wie kann ich das über VBA machen, das er automatisch den inhalt der Zelle zu einer Zahl macht.
Vilen Dank Sunny
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wert = CDbl(Wert)
UweD
o.t
AW: Wert = CDbl(Wert)
15.12.2004 16:47:11
Sunny
wie binde ich das ein? "Wert = CDbl(Wert)"
AW: Wert = CDbl(Wert)
UweD
Zeig mal dein Makro.
Anzeige
AW: Wert = CDbl(Wert)
UweD
Hallo
so aus dem Zusammenhang gerissenkann ich mir vorstellen, das dieses deine Lösung ist.

Application.ActiveSheet.Unprotect
zeile = 7
If Range("A7") = Range("A5") Then
If Name1.Value = True Then Application.ActiveSheet.Range("K" & zeile) = CDbl(Hauptmaske.TbZahlTP)
If Name1.Value = True Then Application.ActiveSheet.Range("L" & zeile) = CDbl(Hauptmaske.TbZahlPC)
If Name1.Value = True Then Application.Sheets("Tabelle3").Range("M" & zeile) = CDbl(Hauptmaske.TbZahlStd)
Range("M" & zeile).FormulaR1C1 = "=IF(RC[-2]+RC[-1]>0,Tabelle3!RC/ (RC[-2]+RC[-1]),0)"
If Name2.Value = True Then Application.ActiveSheet.Range("N" & zeile) = CDbl(Hauptmaske.TbZahlTP)
If Name2.Value = True Then Application.ActiveSheet.Range("O" & zeile) = CDbl(Hauptmaske.TbZahlPC)
If Name2.Value = True Then Application.Sheets("Tabelle3").Range("P" & zeile) = CDbl(Hauptmaske.TbZahlStd)
Range("P" & zeile).FormulaR1C1 = "=IF(RC[-2]+RC[-1]>0,Tabelle3!RC/ (RC[-2]+RC[-1]),0)"

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige