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

VBA: Zahlen erkennen und isolieren in Variable

Forumthread: VBA: Zahlen erkennen und isolieren in Variable

VBA: Zahlen erkennen und isolieren in Variable
07.09.2017 06:23:47
Darren
Hi,
besteht die Möglichkeit eine oder mehrere Zahlen aus einer Variable a) zu erkennen b) in einer anderen Variable zu speichern/ zu isolieren?
Variable = ("PLZ 76000 Hambuger Str. 17/23")
Gruß
Darren
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zahlen erkennen und isolieren in Variable
07.09.2017 08:17:14
ChrisL
Hi Darren
Ja es gibt diverse Möglichkeiten um einen String zu zerpflücken. Hier eine Variante (Trennung bei Leerzeichen):
Sub t()
Dim ar As Variant
ar = Split("PLZ 76000 Hambuger Str. 17/23", " ")
MsgBox ar(1)
End Sub
cu
Chris
AW: VBA: Zahlen erkennen und isolieren in Variable
07.09.2017 18:37:09
Darren
Danke Chris.
Gibt es auch ein Befehl, der Nummern oder Text erkennt?
Ich möchte aus einer Variable die Zahlen von dem Text trennen.
Anzeige
AW: VBA: Zahlen erkennen und isolieren in Variable
08.09.2017 08:20:35
ChrisL
Hi Darren
Auch das geht...
Sub t()
Dim strEingabe As String, strText As String, strZahlen As String
Dim lngZahlen As Long, i As Integer
strEingabe = "PLZ 76000 Hambuger Str. 17/23"
For i = 1 To Len(strEingabe)
If IsNumeric(Mid(strEingabe, i, 1)) Then
strZahlen = strZahlen & Mid(strEingabe, i, 1)
Else
strText = strText & Mid(strEingabe, i, 1)
End If
Next i
MsgBox strText
MsgBox CLng(strZahlen) ' CLng wandelt Text in Zahl um
End Sub

cu
Chris
Anzeige
AW: VBA: Zahlen erkennen und isolieren in Variable
08.09.2017 18:42:48
Darren
Danke sehr, werde es gleich mal testen - danke.
Es geht mir um das Vergleichen von Inhalte mit weitere damit Dubletten erkannt werden die nicht gleich identisch sind, andere Reihenfolgen haben usw.?
Variable in V1= "8808 SW 15th Ave STE 348"
vergleichen mit Daten, wenn die nicht vollständig sind bzw sich jemand verschrieben hat:
Variable in V2="880 Sw 15 th. Avenue Street 348"
Abweichung sind bewusst gesetzt. Die Reihenfolge ist hier gleich, aber sollte egal sein.
Das ist nur ein Beispiel von vielen...
Darren
Anzeige
Adress Dubletten Erkennung
08.09.2017 22:17:22
ChrisL
Hi Darren
Ich würde nach einer Fertiglösung suchen, aber wenn du trotzdem mal spielen willst, dann würde ich im ersten Schritt wie folgt vorgehen:
Alles auf Grossbuchstaben normieren z.B.
UCase(V1) = UCase(V2)
Häufige Fehler entweder mit Replace A durch B
strV1 = Replace(strV1, " Ave ", " Avenue ")
oder für den Vergleich ganz löschen
strV1 = Replace(strV1, " Ave ", " ")
8808 vs. 880 ist inhaltlich schon problematisch. Wenn sowieso nur die ersten 3 Stellen relevant sind, dann kannst du gleich alle Zahlen auf 3 Stellen kürzen.
TeilString = Left(TeilString, 3)
oder
Zahl = Abs(Zahl/10)
Wenn du die Reihenfolge auch noch normieren willst, dann kannst du die Einzelteile auch noch alphabetisch ordnen, dann ist das Durcheinander komplett :)
cu
Chris
Anzeige
AW: Adress Dubletten Erkennung
08.09.2017 22:42:07
Darren
Hi Chris,
danke für den Input.
Warum auf groß, warum nicht auf klein?
Wie ordne ich die Einzelteile (Inhalt in Variablen) alphabetisch?
Danke für den Input.
Darren
AW: Adress Dubletten Erkennung
09.09.2017 08:37:02
ChrisL
Hi Darren
Du darfst auch auf klein normieren, das ist egal.
Entweder splittest du den Inhalt auf mehrere Zellen und sortierst die Tabelle. Oder besser, du splittest in ein Array/Datenfeld (siehe erstes Codebeispiel) und dann schnappst du dir eine Sortierfunktion z.B.
https://www.herber.de/forum/archiv/456to460/459950_Array_sortieren.html
cu
Chris
Anzeige
AW: Adress Dubletten Erkennung
09.09.2017 08:42:28
Darren
Hi Chris
danke für Deine Antworten und den Link zu der Sortiert-Funktion. Ich werde es im Array splitten und dann sortieren.
Danke
Darren

Forumthreads zu verwandten Themen

Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
*Text* in einer Variable
Thomas

Hallo,
wie kann ich herausfinden ob ein Text in einer Variable enthalten ist?
Beispiel: If variable = *text* Then xxxxx
oder If *text* IsIn variable Then xxxx
Grüße
16.10.2008 12:09:00
Thread-ID: 1016816
8 Beiträge
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
per VBA Textvariable nach Word
ptonka

Hallo zusammen,
folgendes Problem:
Ich stelle per VBA aus mehreren Zelleinträgen in einer Tabelle einen langen String zusammen. Dieser wird der Variable "Langtext" zugewiesen.
Nun soll dieser Text aus der Variable Langtext in ein leeres Worddokument (.doc oder .txt-File) an den Anfa...
01.01.1970 00:00:00
Thread-ID: 1106384
3 Beiträge
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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