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

Zahlen aus Zelle auslesen

Zahlen aus Zelle auslesen
08.11.2022 11:04:04
Captain
Moin zusammen,
ich brauche eure Hilfe beim auslesen von Zahlen aus Zellen.
Meine Tabelle hat insgesamt 2300 Einträge. In der Spalte E befinden sich folgende unterschiedliche Einträge:

Von: +41788491430 Frank Müller
Von +33605786608
Von +33605786608 null
An: 07762510913 Samir Hoffmann
An: 0033769155487 Hendrik

Diese Spalte ist auch nur als Text formatiert.
Also alle sehr unterschiedlich.
Wie kann ich mit VBA nun alle Zahlen auslesen und gerne in die Spalte F eintragen? Wäre sehr dankbar für eure Hilfe.
Danke
Jack

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen aus Zelle auslesen
08.11.2022 11:07:30
Oberschlumpf
Hi,
zuerst all diese Zellen markieren
dann über Daten/Text in Spalten die Werte, als Trennzeichen = Leerzeichen, auf die Nachbarspalten verteilen
zum Schluss alle Spalten wieder löschen, die du nicht benötigst.
Ciao
Thorsten
AW: Zahlen aus Zelle auslesen
08.11.2022 11:24:54
Captain
Hi Thorsten,
ja, wäre auch eine Möglichkeit... danke.
Jack
AW: Zahlen aus Zelle auslesen
08.11.2022 11:33:34
Fennek
Hallo,
alter Code nur etwas angepasst:

Function fn_Tel_2(rng As Range) As String 'konvertiert ins Standard-Format
Dim Tel As String
Tel = Split(rng)(1)
Select Case Left(Trim(Tel), 1)
Case Is = "+", "0"
Tel = Replace(Tel, Chr(32), "")
Tel = Replace(Tel, "/", "")
Tel = Replace(Tel, "-", "")
Tel = Replace(Tel, "(0)", "")
Tel = Replace(Tel, "(", "")
Tel = Replace(Tel, ")", "")
If UCase(Tel)  LCase(Tel) Then Exit Function
pos = InStr(1, Tel, "-")
If pos And pos  0 Then Tel = "+49" & Mid(Tel, 2)
fn_Tel_2 = Tel
Case Else
'Debug.Print "Tel", Tel
End Select
End Function
Es ist eine UDF, die mit "=fn_Tel2(A1)" im Sheet genutzt wird.
mfg
Anzeige
AW: Zahlen aus Zelle auslesen
08.11.2022 11:43:07
Captain
Hi Fennek,
klasse Idee... danke .-)
AW: Zahlen aus Zelle auslesen
08.11.2022 11:09:39
MCO
Moin Jack!
Versuch das mal:

Sub Zahlen_extract()
For Each cl In Range("E:E").SpecialCells(xlConstants)
cl.Offset(0, 1) = "'" & Split(cl, " ")(1)
Next cl
End Sub
Gruß, MCO
AW: Zahlen aus Zelle auslesen
08.11.2022 11:24:06
Captain
Hi MCO,
hat leider nichts funktioniert. Es gibt gar keine Überträge in Spalte F
Jack
AW: Zahlen aus Zelle auslesen
08.11.2022 11:34:16
GerdL
Moin

Sub Unit()
Dim C As Range
For Each C In Range("D2:D6") 'anpassen
With C.Offset(0, 4)
.NumberFormat = "@"
.Value = Replace(Split(C, " ")(1), "+", "")
End With
Next
End Sub
Gruß Gerd
Anzeige
AW: Zahlen aus Zelle auslesen
08.11.2022 11:43:57
Captain
Hi Gerd,
danke, aber der Value ist immer =""
C wird richtig ausgelesen
Jack
AW: Zahlen aus Zelle auslesen
08.11.2022 11:50:33
GerdL
Hallo Jack,
ob D2:D6 stimmt, musst du selbst wissen.
P.S.: Deine Definition von Zahl wäre noch von Interesse gewesen.
Aber du bist ja schon bedient worden.
Gruß Gerd
AW: Zahlen aus Zelle auslesen
08.11.2022 11:46:00
MCO
Hi!
Versteh ich nicht. Bei mir hat´s geklappt. Ohne Zicken.
Naja, vielleicht demnächst mit Beispieltabelle...
Gruß, MCO
AW: Zahlen aus Zelle auslesen
08.11.2022 11:48:56
Captain
Ja komisch... ich guck nochmal.
Leider sind es sensible Daten und kann sie nicht hochladen.
Jack
AW: Zahlen aus Zelle auslesen
08.11.2022 12:22:11
Daniel
Hi
kann man davon ausgehen, dass du immer den Text zwischen ersten und zweiten Trennzeichen brauchst, dh die Zahlen werden ohne Trennzeichen zwischendrin ausgegeben?
wenn ja, ist per VBA Text in Spalten ein gutes Mittel.
beispielsweise mit diesem Code.
die 20 bei Dim F_Info(1 To 20) musst du ggf anpassen, der Wert richtet sich danach, aus wievielen Wörtern ein Text maximal bestehen kann , ist der Wert zu groß, schadet das nicht, ist der Wert zu klein, werden ggf die "überzähligen" Wörter in den Folgespalten ausgegeben.

Sub Makro1()
Dim i As Long
Dim F_Info(1 To 20)
For i = 1 To UBound(F_Info)
F_Info(i) = Array(i, 9)
Next
F_Info(2) = Array(2, 2)
Columns("A:A").TextToColumns _
Destination:=Range("F1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=F_Info
End Sub
Gruß Daniel
Anzeige
AW: Zahlen aus Zelle auslesen
08.11.2022 14:09:00
Captain
Hey Daniel,
Mega! Danke, genau so hatte ich es mir gewünscht.
Vielen Dank...
Jack

329 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
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 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
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
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 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
2
1
5
6
6
4
3
4
1
2
4
3
6
3
15
13
3
5
2
6
11
2
5
5