Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

6-Stellige Zahl in String finden VBA

6-Stellige Zahl in String finden VBA
12.10.2018 11:15:01
Hendrik
Hallo zusammen,
leider habe ich im Web nichts passendes gefunden, daher stell ich die Frage mal hier rein.
Ich suche nach einer VBA-Lösung, welche die Spalte A-F nach 6-stelligen Zahlen durchsucht und diese in einer Zelle ausgibt.
Beispiel: String = "test 123 test 56 test 123456 test"
Daraus soll die folgendes isoliert werden: 123456
Ich habe überhaupt keine Idee und einen Plan wie ich das umsetzen kann.
Vielen Dank für Eure Hilfe.
VG
Hendrik

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

Betreff
Datum
Anwender
Anzeige
AW: 6-Stellige Zahl in String finden VBA
12.10.2018 11:39:49
{Boris}
Hi Hendrik,
können auch 7- oder 8-stellige usw. Zahlen vorkommen oder ist die 6-stellige immer das Maximum?
VG, Boris
Hier mal ein...
12.10.2018 11:40:50
Case
Hallo :-)
... Beispiel.
Entweder Du nutzt die UDF in einer Formel, oder in einem Code wie im Beispiel. Bau jetzt noch eine Schleife für den entsprechenden Bereich und fertig.
Servus
Case
AW: Hier mal ein...
12.10.2018 15:04:28
Hendrik
Servus Case,
ich bin immer wieder beeidruckt von den Ideen und der Aktivität dieses Forums.
Deine Methode läuft wunderbar! Vielen Dank!
An die Anderen: Vielen Dank für Eure Ideen, bevorzuge aber die von Case.
VG
Hendrik
Anzeige
Falls diese Arbeit häufig bei dir anfällt und ...
13.10.2018 16:43:08
Luc:-?
…das Szenario immer exakt dasselbe ist, Hendrik,
ist Case' Kombi von Funktions- und SubProzedur wohl die beste Wahl. Ist das aber nicht der Fall und es können auch ähnliche, aber nicht gleiche Aufgaben anfallen, wirst du damit ein Problem haben, denn der reguläre Ausdruck müsste für jeden Fall angepasst wdn. Erstens kannst du das und zweitens wieviel solch jeweils angepasste FunktionsProzeduren kannst du verwalten ohne die Übersicht zu verlieren…‽
Luc :-?
AW: 6-Stellige Zahl in String finden VBA
12.10.2018 12:04:55
Ludwig
Ne Beispieldatei wäre gut und eine Darstellung des Soll-Zustandes, also so wie es aussehen soll. Es sei denn Case hats schon gelöst, dann kann mein Post getrost ignoriert werden ;)
Anzeige
OT: Was ist mit Paste, PasteSpecial ? (owT)
12.10.2018 12:26:41
EtoPHG

6-Stellige Zahl in String finden - ohne VBA
12.10.2018 12:39:51
{Boris}
Hi,
zum Spaß hier noch eine VBA-freie Lösung (für alle, die es interessiert):
Dein durch Leerzeichen getrennter String steht in A1. Selektiere B1 (oder irgendeine andere Zelle in Zeile 1) und definiere den Namen x mit Bezug auf:
=AUSWERTEN("{"&""""&WECHSELN($A1;" ";""""&"."&"""")&""""&"}")
In C1 dann die Formel zur Ermittlung der genau 6-stelligen Zahl:
{=MAX(WENN(ISTZAHL(--x)*(LÄNGE(x)=6);--x))}
Kannst Du dann auch runterkopieren, um alle Einträge aus Spalte A entsprechend auszulesen.
VG, Boris
Dann hast du schlecht gesucht, ...
12.10.2018 15:24:34
Luc:-?
…Hendrik,
denn ein passendes Thema steht zZ sogar noch im Forum:
https://www.herber.de/forum/messages/1650369.html
Im Archiv dann unter …
https://www.herber.de/forum/archiv/1648to1652/t1650344.htm#1650369
Dieser BT enthält die erforderlichen UDF-Archiv-Links, um die folgende (singulare) MatrixFml bilden zu können (die nachfolgenden könnten aber ebenfalls interessant sein, denn unter einem weiteren Link dort findet man einen UDF-Ersatz für die alte XLM-Fkt AUSWERTEN (vgl Boris' AW):
{=INDEX(VSplit(MaskOn(A1;"num");;1);VERGLEICH(6;LÄNGE(VSplit(MaskOn(A1;"num")));0))}
Eine Alternative wäre eine ebensolche Fml ohne INDEX, aber mit einer anderen UDF:
{=--Splint(MaskOn(A1; "num");;VERGLEICH(6;LÄNGE(Splint(MaskOn(A1;"num")));0)) }
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …
Anzeige

357 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
3
3
2
1
2
2
3
2
5
2
4
2
18
4
4
4
5
2
2
2
13
11
2