Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige