Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sting Variable in Zahl umwandeln

Forumthread: Sting Variable in Zahl umwandeln

Sting Variable in Zahl umwandeln
25.01.2017 10:41:11
Florian23
Hallo,
ich möchte meine Variable zeiten die ich als string deklariert habe. Diese Variable ist die Zeit.
Ihr Format habe ich immer über 

FormatDateTime(zeiten, vbShortTime)
bestimmt.
Jetzt möchte ich die Variable jedoch als Zahl ausdrücken.
Wie bekomme ich das hin?
MfG Flori
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sting Variable in Zahl umwandeln
25.01.2017 10:48:20
Max2
Mit Int(variable).
Füge dass mal in den Code einer Tabelle ein und führe es aus: 

Sub a()
Dim vDate As String
vDate = FormatDateTime(Date, vbShortDate)
Cells(1, 1).Value = vDate
Cells(1, 2).Value = Int(vDate)
End Sub
möchtest du das Datum so dargestellt bekommen oder habe ich was falsch verstanden?
Anzeige
AW: Sting Variable in Zahl umwandeln
25.01.2017 10:52:02
Florian23
achja das hatte ich vergessen zu sagen, ich möchte die Variable nicht irgendwohin schreiben.
Die Umrechnung soll im Hintergrund passieren. Ist das möglich?
AW: Sting Variable in Zahl umwandeln
25.01.2017 10:55:58
Max2
Du musst es ja nicht hinschreiben...
Das war nur um dir grafisch zu zeigen was es macht
Du kannst entweder, jedes mal wenn du Zeiten als Integer brauchst es so schreiben:
Int(Zeiten)
oder sagst:
Dim izeiten As Integer
izeiten = Int(Zeiten)
Anzeige
AW: Sting Variable in Zahl umwandeln
25.01.2017 11:01:38
Florian23
dann bekomme ich einen Laufzeitfeher 13 - Typen unverträglich
AW: Sting Variable in Zahl umwandeln
25.01.2017 11:10:03
Max2
Mein Fehler, tut mir leid.

Sub a()
Dim a As String
Dim i As Long
a = FormatDateTime(Date, vbShortDate)
i = CDbl(a)
MsgBox i
End Sub
Muss mit CDbl konvertiert werden
AW: Sting Variable in Zahl umwandeln
25.01.2017 11:19:43
Florian23
Mit dem Datum funktioniert das, aber ich hätte es gerne für die Zeit.
Und wenn ich es mit der Zeit probiere kommt wieder Laufzeitfehler 13
Sub a()
Dim a As String
Dim i As Long
a = FormatDateTime(Time, vbShortTime)
MsgBox a
i = CDbl(a)
MsgBox i
End Sub

Anzeige
AW: Sting Variable in Zahl umwandeln
25.01.2017 11:35:08
Florian23
ich habe es selbst geschafft :D 
Sub a()
Dim a As String
Dim i As Double
a = FormatDateTime(Time, vbShortTime)
MsgBox a
i = CDbl(CDate(a))
MsgBox i
End Sub
so muss es aussehen.
Danke trotzdem für deine Hilfe :)
AW: Sting Variable in Zahl umwandeln
25.01.2017 11:47:14
EtoPHG
Hallo Florian,
Msgbox CDbl(CDate(zeiten))

Enhält zeiten auch noch ein Datum, dann 
MsgBox CDbl(CDate(zeiten)) - WorksheetFunction.RoundDown(CDbl(CDate(zeiten)), 0)

Gruess Hansueli
Anzeige
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Anzeige
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Anzeige
gleiche Zahlen nicht gleich in VBA?
Christian

Guten Tag,
ich habe hier zwei Zahlen, die meiner Meinung nach gleich sind, aber laut VBA dann doch wieder nicht.....
Ein Vergleich im Tabellenblatt mit folgender Formel zeigt mir, das die Zahlen gleich sind:
=WENN(C5'zahlen alt'!C5;"nicht gleich";"gleich")
Per Makro sind die gle...
26.01.2009 17:09:00
Thread-ID: 1043950
3 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Sting Variable in Zahl umwandeln

Schritt-für-Schritt-Anleitung

Um eine String-Variable in VBA in eine Zahl umzuwandeln, kannst Du die Funktion CDbl oder CInt nutzen, abhängig von den Anforderungen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Deklariere Deine Variable: Zuerst musst Du die String-Variable deklarieren.

    Dim zeiten As String

  2. Setze einen Wert für die Variable: Weise der Variable einen Zeitwert zu.

    zeiten = FormatDateTime(Time, vbShortTime)

  3. Wandle die String-Variable in eine Zahl um: Nutze CDbl oder CInt, um die Umwandlung durchzuführen.

    Dim zahl As Double
zahl = CDbl(CDate(zeiten))

  4. Optional: Ausgabe: Du kannst das Ergebnis in einer Meldung anzeigen lassen, um zu überprüfen, ob die Umwandlung erfolgreich war.

    MsgBox zahl

Häufige Fehler und Lösungen

  • Laufzeitfehler 13 - Typen unverträglich: Dieser Fehler tritt häufig auf, wenn die String-Variable nicht in das erwartete Format konvertiert werden kann. Achte darauf, dass die String-Variable in einem gültigen Zeitformat vorliegt, bevor Du die Umwandlung vornimmst.

  • Falsche Umwandlung: Wenn Du versuchst, einen String, der kein gültiges Datum oder keine gültige Zeit enthält, in eine Zahl umzuwandeln, wird das auch zu einem Fehler führen. Überprüfe immer den Inhalt der Variable.

Alternative Methoden

Es gibt verschiedene Ansätze, um eine String-Variable in VBA in eine Zahl umzuwandeln:

  1. Direkte Verwendung von Int: Wenn Du nur den ganzzahligen Teil benötigst, kannst Du Int verwenden:

    Dim i As Long
i = Int(CDbl(a))

  2. Verwendung von WorksheetFunction: Manchmal kann es hilfreich sein, Excel-Funktionen zu verwenden, um die Umwandlung durchzuführen:

    Dim result As Double
result = WorksheetFunction.RoundDown(CDbl(CDate(zeiten)), 0)

Praktische Beispiele

Hier sind einige Beispiele, die das Umwandeln eines Strings in eine Zahl veranschaulichen:

  1. Beispiel für Zeit:

    Sub BeispielZeit()
   Dim zeiten As String
   Dim zeitInZahl As Double
   zeiten = FormatDateTime(Time, vbShortTime)
   zeitInZahl = CDbl(CDate(zeiten))
   MsgBox "Die Zeit als Zahl: " & zeitInZahl
End Sub

  2. Beispiel für Datum:

    Sub BeispielDatum()
   Dim datum As String
   Dim datumInZahl As Double
   datum = FormatDateTime(Date, vbShortDate)
   datumInZahl = CDbl(CDate(datum))
   MsgBox "Das Datum als Zahl: " & datumInZahl
End Sub

Tipps für Profis

  • Verwendung von CInt für ganze Zahlen: Wenn Du sicher bist, dass die Umwandlung in eine ganze Zahl erfolgen soll, verwende CInt, um sicherzustellen, dass die Umwandlung korrekt durchgeführt wird.

  • Prüfe die Eingabewerte: Vor der Umwandlung kann es hilfreich sein, die Werte zu validieren, um Laufzeitfehler zu vermeiden. Du kannst beispielsweise die Funktion IsDate verwenden, um zu überprüfen, ob der String ein Datum oder eine Zeit darstellt:

    If IsDate(zeiten) Then
   ' Umwandlung durchführen
End If

FAQ: Häufige Fragen

1. Wie wandle ich einen String in eine ganze Zahl um?
Verwende die Funktion CInt oder Int, um den String in eine Integer-Variable umzuwandeln. Achte darauf, dass der String ein gültiges Zahlenformat hat.

2. Kann ich auch Fließkommazahlen umwandeln?
Ja, dafür verwendest Du CDbl, um den String in Double umzuwandeln. Dies ist nützlich, wenn Du präzisere Werte benötigst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige