Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen aus Text filtern

Zahlen aus Text filtern
06.12.2006 20:51:29
Ulf
Hallo xlFreaks,
folgendes Problem: Wie kann ich aus einer Zelle mit unterschiedlichem Text zum einen eine dreistellige und eine vierstellige Zahl herausfiltern und diese Zahlen an die Variablen "ZahlDrei" und "ZahlVier" übergeben?
Danke schon im Vorraus
Gruß aus Franken

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen aus Text filtern
06.12.2006 21:09:43
Peter
Hallo Ulf,
angenommen deine TexteMitZahlen stehen in Spalte A1 und A2, dann so:

Sub ZahlExtrahieren()
Dim ZahlDrei   As Integer
Dim ZahlVier   As Integer
Dim iIndex     As Integer
Dim lZeile     As Long
Dim sErgebnis  As String
For lZeile = 1 To Range("A65536").End(xlUp).Row
sErgebnis = ""
For iIndex = 1 To Len(Range("A" & lZeile).Value)
If IsNumeric(Mid(Range("A" & lZeile).Value, iIndex, 1)) Then
sErgebnis = sErgebnis & Mid(Range("A" & lZeile).Value, iIndex, 1)
End If
Next iIndex
Select Case Len(sErgebnis)
Case 3: ZahlDrei = CInt(sErgebnis)
Case 4: ZahlVier = CInt(sErgebnis)
End Select
Next lZeile
MsgBox "ZahlDrei hat den Inhalt " & ZahlDrei & vbCrLf & _
"ZahlVier hat den Inhalt " & ZahlVier, _
64, "   Info für " & Application.UserName
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Zahlen aus Text filtern
06.12.2006 22:00:21
Ulf
Hallo Peter,
danke für die schnelle Antwort, aber irgendwie will das nicht so Recht
Dim ZahlDrei As Integer
Dim ZahlVier As Integer
Dim iIndex As Integer
Dim lZeile As Long
Dim sErgebnis As String
For lZeile = 1 To Range("A65536").End(xlUp).Row
sErgebnis = ""
For iIndex = 1 To Len(Range("A" & lZeile).Value)
If IsNumeric(Mid(Range("A" & lZeile).Value, iIndex, 1)) Then
Hier müsste das Problem liegen! Ab dieser Codezeile springt er sofort auf Next iIndex? If IsNumeric fragt doch ob ein numerischer Wert vorliegt, oder ?
Steht aber Text drin!
Vielleicht hast du ja noch ne Lösung. Bin für alles dankbar.
Gruß Ulf
Anzeige
AW: Zahlen aus Text filtern
06.12.2006 22:48:45
Peter
Hallo Ulf,
hier meine Test-Mappe - siehe Tabelle1 und Modul1 - der Rest ist ein anderer Test.
https://www.herber.de/bbs/user/38792.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Danke allen Beteiligten
07.12.2006 05:06:13
Ulf
Alle Lösungen haben super funktioniert. Danke für die schnelle Hilfe
Gruß aus Franken
AW: Zahlen aus Text filtern
07.12.2006 00:55:58
Erich
Hallo Ulf,
probiers mal mit 
Option Explicit
Sub Test_Zahl_aus_Text()
Dim ZahlDrei As Double, ZahlVier As Double, zz As Long
Columns("B:C").ClearContents
For zz = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ZahlDrei = Zahl_aus_Text(Cells(zz, 1), 3)
Cells(zz, 2) = ZahlDrei
ZahlVier = Zahl_aus_Text(Cells(zz, 1), 4)
Cells(zz, 3) = ZahlVier
Next zz
End Sub
Function Zahl_aus_Text(ByVal strTxt As String, ByVal intLen As Integer)
Dim ii As Integer
For ii = intLen To Len(strTxt)
If IsNumeric(Right(Left(strTxt, ii), intLen)) Then
If (ii = intLen Or Not IsNumeric(Right(Left(strTxt, ii - intLen), 1)) And _
(ii = Len(strTxt) Or Not IsNumeric(Right(Left(strTxt, ii + 1), 1)))) Then
Zahl_aus_Text = Right(Left(strTxt, ii), intLen)
Exit For
End If
End If
Next ii
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

319 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
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
16
6
9
4
4
1
5
30
3
1
2
5
2
4
8
5
9
2
1
4
2
4
22
1