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

Werte eines Datentyps aus Zelle auslesen!

Werte eines Datentyps aus Zelle auslesen!
24.08.2015 19:56:00
Msg Box

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte eines Datentyps aus Zelle auslesen!
24.08.2015 20:07:18
Daniel
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

UDF MaskOn
24.08.2015 20:25:38
Matthias L
Hallo
Benutze die UDF MaskOn von Luc
hier noch die UDF Ziffern von KlausF
24.08.2015 20:51:27
Matthias L
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:
Anzeige

461 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige