Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl im String finden (VBA)

Zahl im String finden (VBA)
chris
Hallo VBA experten,
ich habe ein kniffliges Problem bei dem ich Hilfe benötige.
Ich habe einen Text mit zahl in einer zelle.
z.b "test time 33"
Wenn in der zelle ein Inhalt ist ist nach dem text immer ein zeilenumbruch also chr(10)
Jetzt möchte ich gerne prüfen
if (zahl im string) = 33 then ...
ich könnte zwar z.b if instr(string,33) verwenden aber da bekomme ich dannz.b bei der zahl 133 weil ja die 33 auch vorhanden ist.
Weiß jemand eine Lösung für mich ?
Vielen Dank im voraus für die Hilfe.

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahl im String finden (VBA)
15.09.2010 15:37:38
Dirk
Hallo!
Falls vor Deiner Zahl immer ein Leerzeichen ist koenntest Du dieses bei instr mit einbinden z.B. instr(string, " 33")
Gruss
Dirk aus Dubai
AW: Zahl im String finden (VBA)
15.09.2010 15:39:05
chris
Nein ist es aber leider nicht.
Schon mal danke trotzdem für die Antwort
AW: Zahl im String finden (VBA)
15.09.2010 15:43:31
Sobotta
Hallo chris,
versuch doch mal InStr(sring, vbLf)
bei mir funktioniert das.
Gruß
AW: Zahl im String finden (VBA)
15.09.2010 15:53:18
chris
Sorry aber was soll ich damit ?
damit finde ich nur den zeilenumbruch und nicht die zahl ?
Danke für weitere Hilfe
AW: Zahl im String finden (VBA)
15.09.2010 16:01:48
Nepumuk
Hallo,
na dann halt so:
If Cbool(InStr(DeinString, vbLf & "33")) Then

Gruß
Nepumuk
Anzeige
AW: Zahl im String finden (VBA)
16.09.2010 07:03:58
chris
Hmm Vielen Dank.
Aber das mit der 33 war nur ein beispiel Nepumuk:)
Es handelt sich immer um andere zahlen.
ich will immer rausfinden welche Zahl in einem String steckt,
AW: Zahl im String finden (VBA)
15.09.2010 15:53:28
ChrisL
Hi Chris
Oder so...
Sub t()
Dim strTest As String
strTest = "text text 133"
MsgBox ExtractNumber(strTest)
End Sub 
Private Function ExtractNumber(str As String) As Long
Dim i As Byte, ii As Byte
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then Exit For
Next i
For ii = i To Len(str)
If Not IsNumeric(Mid(str, ii, 1)) Then Exit For
Next ii
ExtractNumber = Mid(str, i, Len(str) - (ii - i))
End Function

cu
Chris
Anzeige
AW: fast perfekt
16.09.2010 07:08:25
chris
Hey Chris.Super genau das wollte ich :)
Wirklich super Dein code.
Aber gibt es noch die möglichkeit die erste oder letzte Zahl herauszufiltern ?
Aktuell kommt bei deinem Code ein fehler wenn im String 2 zahlen stecken Also ich meine so.
String = "hdsfjkahsd33dkn22"
Dann kommt ein Fehler.
Gibt es die möglichkeit zu sagen mann will nur die erste zahl also 33 oder die letzte Zahl 22 ?
Dann wäre ich glücklich :)
Danke im voraus ! An alle noch einmal
AW: fertig geschlossen
16.09.2010 07:51:51
chris
Hallo chris,
ich habe mir selbst was gebastelt.Schliese diesen Beitrag sonst macht sich noch jemand unnötig einen Kopf.
Ich lese die zahl nach dem zeilenumbruch einfach ein.
Mach das so.
Function Funct_NUR_Zahl_Alt_Auslesen(alt_Inhalt)
Dim WoUmbruchstart As Integer
Dim LaengeString As Integer
Dim LaengeZahl As Integer
LaengeString = Len(alt_Inhalt)
WoUmbruchstart = InStr(1, alt_Inhalt, Chr(10))
LaengeZahl = LaengeString - WoUmbruchstart
Funct_NUR_Zahl_Alt_Auslesen = Right(alt_Inhalt, LaengeZahl)
End Function

Anzeige
Trotzdem noch eine Möglichkeit
16.09.2010 08:42:31
JogyB
Hallo Chris,
trotzdem noch eine Möglichkeit, wie sich das sehr flexibel lösen lässt: 
' Liest Zahlen aus einem String heraus
' matchNr gibt an, welcher Treffer ausgelesen werden soll
Function getZahl(ByVal myStr As String, Optional ByVal matchNr As Integer = 1)
Dim regEx As Object
Dim Matches As Object
'

Gruß, Jogy
AW: Trotzdem noch eine Möglichkeit
16.09.2010 08:53:50
chris
Cool Super danke
Schönen Tag noch !

300 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Ordner in Explorer-Struktur suchen VBA
andreas

Hallo zusammen,
habe ein Formular mit einem Button "Speichern" und unter anderem ein Feld "Angebotsnr."
Wird der Button Speichern gedrückt soll das Programm den Ordner der im Feld Angebotsnr. eingetragen ist suchen. Dieser Ordner ist zum Zeitpunkt der Erstellung des Formulares im Window...
11.11.2008 08:50:00
Thread-ID: 1023400
2 Beiträge
Anzeige
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 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
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
6
11
2
1
1
3
4
8
21
3
2
4
8
10
3
1
7
8
2
7
4
5
4
6
2