Werte eines Datentyps aus Zelle auslesen!

Bild

Betrifft: Werte eines Datentyps aus Zelle auslesen!
von: Msg Box
Geschrieben am: 24.08.2015 19:56:00

Hallo zusammen,
wir haben da mal wieder eine Frage: Wir haben eine Liste mit Spalte, in welcher in jeder Zelle jeweils Buchstaben und Zahlen sind (z.B. 1AB, 12C,...). Wir suchen nun eine Funktion, mit welcher man nur die Zahlen aus diesen Zellen rauslesen kann, sodass wir am Ende z.B. nur 1 oder 12 haben.
Dabei dürfen wir keine Hilfsspalte verwenden und es muss eine reine VBA-Funktion sein!
Vielen Dank im Voraus,
Msg Box

Bild

Betrifft: AW: Werte eines Datentyps aus Zelle auslesen!
von: Daniel
Geschrieben am: 24.08.2015 20:07:18
Hi
wenns so ist, wie du beschrieben hast, dh nur Ganzzahlen, die Zahl steht immer links vorm ersten Buchstaben, dann relativ einfach mit folgendem Code (bearbeitet wird der selektierte Bereich)


dim Zelle as range
for each Zelle in Selection.SpecialCells(xlcelltypeconstants, 2)
    Zelle.Value = VAL(Zelle.Value)
next
Gruß Daniel

Bild

Betrifft: UDF MaskOn
von: Matthias L
Geschrieben am: 24.08.2015 20:25:38
Hallo
Benutze die UDF MaskOn von Luc

 AB
11AB1
212C12
34L5K9459

Formeln der Tabelle
ZelleFormel
B1=--WECHSELN(MaskOn(A1;"num");" ";"")
B2=--WECHSELN(MaskOn(A2;"num");" ";"")
B3=--WECHSELN(MaskOn(A3;"num");" ";"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Diese UDF ist im Archiv zu finden.
Gruß Matthias

Bild

Betrifft: hier noch die UDF Ziffern von KlausF
von: Matthias L
Geschrieben am: 24.08.2015 20:51:27
Hallo
Hab gerade erst gesehen "Basiskenntnisse in VBA"
Also den Code in ein allgemeines Modul kopieren

Option Explicit
Function Ziffern(rng As Range)
 Dim intZ As Integer
     For intZ = 1 To Len(rng)
       Select Case Asc(Mid(rng, intZ, 1))
          Case 48 To 57
            Ziffern = Val(Ziffern & Mid(rng, intZ, 1))
       End Select
     Next intZ
 End Function
hier der Link
https://www.herber.de/forum/archiv/1324to1328/1325557_Zahlen_aus_einer_Zeichenkette_extrahieren.html#1325596
In der Zelle dann so:
 AC
11AB1
212C12
34L5K9459

Formeln der Tabelle
ZelleFormel
C1=Ziffern(A1)
C2=Ziffern(A2)
C3=Ziffern(A3)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variablen aus Function holen"