Text und Zahlen trennen

Hallo liebe Forenbenutzer,
ich habe mich schon schlau gemacht und Module eingefügt aber,
bei dem Programm only_digits zeigt er, bei mir keine Fehlermeldung,
einfach nichts.
Eiige haben es mit Funktionen gemacht, bei den kleinen Funktionen
kommt bei mir immer #NV. Ich habe auch nicht das Problem www34ddd
und will 34 haben.
Ich will gerne bei folgendender Zeile;
" Verkaufspreis: EUR 9,99(Auktion) "
den Wert 9,99 zum weiterrechnen haben,
Jetzt habe ich es so gelöst:
=RECHTS((B2);13+H1)
und dann
=LINKS(F1;FINDEN(" ";F1;1))
hier brauche ich nicht immer den vollen Betrag
abschreiben, aber ich muss immer die Stellen vor dem Koma
über H1 angeben.
Es wäre Super wenn jemand von euch eine Idee hat
und mir so zu einer schönen Exceltabelle verhelfen könnte.
lg
Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi claudia :)
wie gewuenscht :)
gruss nighty
einzufuegen alt f11(vbeditor)/projektexplorer/DeineTabelle


Private Sub Worksheet_Change(ByVal Target As Range)
Application Calculate
End Sub

schreibweise der formel
innerhalb der parameter ,hier 10 und 25 wird eine zahl gesucht und uebergeben
Rem =Sumtext(A1:A4;10;25)
Rem =Sumtext(A1;10;25)
einzufuegen alt f11(vbeditor)/einfuegen/modul
Function Sumtext(Zellen As Range, AnfangX As Long, EndeX As Long) As Double
Dim Zelle As Range
Dim zahl1
Dim zahl2
Application.Volatile
For Each Zelle In Zellen
If EndeX > Len(Zelle) Then EndeX = Len(Zelle)
If AnfangX For zeich1 = AnfangX To EndeX
If Asc(Mid$(Zelle, zeich1, 1)) > 47 And Asc(Mid$(Zelle, zeich1, 1)) Or Asc(Mid$(Zelle, zeich1, 1)) = 44 Or Asc(Mid$(Zelle, zeich1, 1)) = 46 Then
zahl1 = zahl1 & Mid$(Zelle, zeich1, 1)
End If
Next zeich1
If zahl1 = "" Then zahl1 = "0"
zahl2 = zahl1 * 100
Sumtext = Sumtext + (zahl2 / 100)
zahl1 = ""
zahl2 = ""
Next
End Function

Function DezimalAusString(Text As String) As Double Dim Tx As String Dim Vv As Boolean Dim Hh As Boolean Dim i As Long For i = 1 To Len(Text) Vv = Hh If Asc(Mid(Text, i, 1)) >= 48 And Asc(Mid(Text, i, 1)) <= 57 Then Tx = Tx & Mid(Text, i, 1) Hh = True Else Hh = False End If If Mid(Text, i, 1) = "," And Vv Then Tx = Tx & Mid(Text, i, 1) End If Next i DezimalAusString = CDbl(Tx) End Function

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text und Zahlen trennen

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

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread