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
148to152
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
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenwerte in Texten auslesen

Zahlenwerte in Texten auslesen
16.08.2002 10:40:41
Piet
Ich habe eine Tabelle bekommen, bei der Texte und Werte in einer Zelle eingegeben wurden. Beispiele:

TS / 1,5
FS (2h)
FN18h

Ich möchte nur die Zahlenwerte in eine neue Spalte kopieren, ohne alles abzutippen. Weiß jemand Rat?

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

Betreff
Datum
Anwender
Anzeige
Re: Zahlenwerte in Texten auslesen
16.08.2002 10:45:40
michel
hallo piet,

wenn die zahlenwerte immer gleich gestaltet sind kannst du über links und rechts-funktion auslesen...

michel

Re: Zahlenwerte in Texten auslesen
16.08.2002 11:04:55
Berai
Hallo Piet,

da hilft ausser einem Makro wahrscheinlich nur eine Formel von WF, schau mal in diesen Link

http://www.excelformeln.de/formeln.html?welcher=103

Gruß
Rainer

Re: Zahlenwerte in Texten auslesen
16.08.2002 11:33:24
Piet
Mit Links/Rechts krieg ich es nicht hin.
@Rainer: Vielen Dank für den Link, das ist ja eine erstklassige Sammlung! Die Funktion ist wahrscheinlich genau, was ich suche, ich kapier's aber nicht und krieg es von daher auch nicht hin. Sieht nach manuellem Abtippen aus.
Vielen Dank noch mal für die schnellen Antworten!
Piet
Anzeige
Re: Zahlenwerte in Texten auslesen
16.08.2002 11:42:16
michel
hallo piet,
die angegebene formel ist genau was du suchst....kopier sie in deine zelle, ohne die geschweiften {} klammern...ersetze die A1-Angabe in der Formel durch deine Zelle und schließe die eingabe mit STRG SHIFT ENTER ab.....

michel

Re: Zahlenwerte in Texten auslesen
16.08.2002 12:24:43
L.Vira
Kannst du in einer Schleife über alle Zellen laufen lassen:

Option Explicit
Sub Zahl_aus_Text()
Dim VarStr As String, Tmp2 As String
Dim n As Integer
If ActiveCell = "" Then Exit Sub
VarStr = ActiveCell.Text
Tmp2 = vbNullString
For n = 1 To Len(VarStr)
If IsNumeric(Mid(VarStr, n, 1)) Then
Tmp2 = Tmp2 & Mid(VarStr, n, 1)
End If
Next
ActiveCell.Offset(0, 1) = Tmp2

End Sub

Anzeige
Re: Zahlenwerte in Texten auslesen
16.08.2002 13:31:09
Piet
@L.Vira: Vielen Dank für dein Makro. Das kommt der Sache schon recht nahe, allerdings macht es aus 1,5 eine 15. Ich hab von VBA keinen Schimmer, wie fügt man ein, dass der Cursor zum Ende des Makros eine Zelle nach unten springt?
Piet
Re: Zahlenwerte in Texten auslesen
16.08.2002 15:11:42
L.Vira
Ja, das Komma hab ich glatt verschwitzt.
Ich poste später am Abend mal eine Schleife.
Nun mit Schleife und Komma
16.08.2002 18:18:36
L.Vira
''Written by L.Vira zur freien Verwendung aber unter
''Ausschluss jeglicher Garantie!
''Sollte in einem String mehr als ein Komma vorkommen,
''führt das zu einem Fehler, der nicht behandelt wird!
''Das kann auch nicht sein, weil nicht eindeutig wäre,
''welches Komma das richtige ist!
Sub nur_Zahlen_und_Komma()
Dim VarStr As String, Tmp1 As String
Dim n As Integer
Dim Zeile As Long
Dim Spalte As Integer
Dim lZ As Long
Dim e As Long
''hier wird die Spalte festgelegt
Spalte = 1 'Spalte A
lZ = Cells(65536, Spalte).End(xlUp).Row
Application.ScreenUpdating = False
For Zeile = 1 To lZ
On Error Resume Next
VarStr = Cells(Zeile, Spalte)
Tmp1 = vbNullString
For n = 1 To Len(VarStr)
If Mid(VarStr, n, 1) = Chr(44) Or _
IsNumeric(Mid(VarStr, n, 1)) Then
Tmp1 = Tmp1 & Mid(VarStr, n, 1)
End If
Next
Cells(Zeile, Spalte + 1) = CDbl(Tmp1)
Cells(Zeile, Spalte + 1).NumberFormat = "0.00000000"
If Err Then e = e + 1
On Error GoTo 0
Next
Columns(Spalte + 1).AutoFit
Application.ScreenUpdating = True
If e > 0 Then
MsgBox e & " Fehler aufgetreten!" & Space(20) & Chr(10) & Chr(10) & _
lZ - e & " Werte wurden bearbeitet.", 64, "gebe bekannt..."
Else
MsgBox lZ & " Werte wurden verarbeitet!" & Space(20), 64, "stelle fest..."
End If
End Sub


Anzeige

326 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 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
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge

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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4