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

Zahlen finden / schwierige Formel

Forumthread: Zahlen finden / schwierige Formel

Zahlen finden / schwierige Formel
24.01.2004 16:25:26
Erich M.
Hallo EXCEL-Freunde,
habe mir mit Hilfe des Forums verschiedene Formeln entwickelt, mit denen ich
aus einer Zelle nur Zahlen herausfinden will:
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen finden / schwierige Formel
24.01.2004 16:35:31
K.Rola
Hallo,
brauchst du unbedingt eine Formellösung?
Gruß K.Rola
AW: Zahlen finden / schwierige Formel
24.01.2004 17:08:10
Erich M.
Hallo K.Rola,
Formellösung nicht zwingend; wenn das mit VBA ginge, wäre das u.U. sogar
besser, da ich diese Problematik in verschiedenen Anforderungen habe und
dann vielleicht sogar flexibler wäre.
Oder gibt es sonst noch eine Möglichkeit??
Besten Dank!
mfg
Erich
Anzeige
Nachfrage...
24.01.2004 18:14:43
K.Rola
Hallo,
gehts nur um Ganzzahlen oder auch Dezimalzahlen?
Können auch negative Zahlen vorkommen?
Wenn zwei oder mehr Zahlen in einem Text vorkommen, wie soll
dann die Ausgabe gehandhabt werden?
Gruß K.Rola
AW: Nachfrage...
24.01.2004 19:01:22
Erich M.
Hallo K.Rola,
1. es geht immer um GANZZAHLEN
2. es gibt niemals negative Zahlen
3. wenn zwei oder mehr Zahlen vorkommen, dann (Bezeichnung steht in A1):
Zahl 1 in Zelle B1
Zahl 2 in Zelle C1
Zahl 3 in Zelle D1
Mehr als drei Zahlen kommen aus heutiger Sicht nicht vor.
Besten Dank!
mfg
Erich
Anzeige
AW: Nachfrage...
24.01.2004 19:40:14
K.Rola
Hallo,
das ist doch mal eine klare Aussage!
Markiere die zu bearbeitende Zelle. Ich hab jetzt einfach mal auf
diffenzierte Fehlerbehandlung verzichtet:
Option Explicit

Sub Zahlen_aus_Text()
Dim r As Range, intSpalte As Integer, i As Long
Set r = ActiveCell
intSpalte = r.Column
On Error Resume Next
For i = 1 To Len(r.Text)
If IsNumeric(Mid(r.Text, i, 1)) Then
r.Offset(0, intSpalte) = r.Offset(0, intSpalte) & Mid(r.Text, i, 1)
Else
If Len(r.Offset(0, intSpalte)) > 0 Then intSpalte = intSpalte + 1
End If
Next
End Sub

Gruß K.Rola
Anzeige
AW: Nachfrage...
24.01.2004 21:12:10
Erich M.
Hallo K.Rola,
zunächst besten Dank; werds ausprobieren und melde mich auf alle Fälle
nochmals. Heute leider keine Zeit mehr.
mfg
Erich
AW: Nachfrage...
25.01.2004 09:24:52
Erich M.
Hallo K.Rola,
das ist ja genial - hier tun sich (für mich) ganz neue EXCEL-Dimensionen auf. Ich habe
gleich mal einiges probiert - aber da muss ich noch üben. Derartige Probleme löse ich
z.Zt. mit riesigen Formeln und habe so immer sofort - aufgrund der Vielzahl der
Datensätze riesige MB-Dateien. Hier könnte ich mir wohl einiges erleichtern.
Das Zerlegen von Zellen würde zwar auch mit ACCESS gehen, aber da ich fast immer
Pivottabellen verwende, kommt immer nur EXCEL in Frage.
Deshalb wäre ich für nachstehende Hilfestellungen / Anregungen dankbar, da ich dann
daran weiter üben würde. Meine Idee:
1. Ich lege mir in die Menueleiste der Datei ein neues Menue "Berechnen mit Sub"
2. Mit diesem Code starte ich verschiedene Berechnungen mit Call..
.....Zahlen_aus_Text1
.....Zahlen_aus_Text2
.....Zahlen_aus_Text3 usw.
3. Ich lege mir dann die Codes an mit den entsprechenden Formeln - und hier ist
nun mein aktuelles Problem:
4. Wie kann ich die Ergebnisse der Auswertung der Zelle A1 zb. nach P1 und Q1 verlegen?
5. Wie kann ich es erreichen, dass die Zeilen A1 bis A4000 ausgewertet werden und in
die Spalten P1:P4000 bzw. Q1:Q4000 eingetragen werden?
6. Und geht es evtl., dass die Ergebnisspalten variabel gehalten werden? D.h.,
wenn ich zunächst P1 und Q1 als Ergebnisspalten habe und ich füge dann eine neue
Spalte D ein, müsste P1/Q1 auf Q1/R1 "wandern".
Sorry, wenn ich Dich hier so überfalle, aber mir gehen jetzt "tausend Ideen" durch
den Kopf was ich hiermit evtl. alles lösen könnte. Wäre für den einen oder anderen
Tipp dankbar - auch für den Hinweis, wenn das eine oder andere nicht geht, damit ich
mich nicht umsonst um die "Superlösung" bemühe.
mfg
Erich
Anzeige
AW: Zahlen finden / schwierige Formel
24.01.2004 18:22:50
FP
Hallo Erich,
schön, dass Du auch mit der Excel-Jeanie von Peter Haserodt arbeitest ;-)
Hier ein Beispiel ohne VBA - arbeitet zwingend mit "Namen", wegen Excel4-Funktion AUSWERTEN
Diese Technik wurde von Boris Georgi (zusammen mit Peter Haserodt?) im Excelforum http://forum.myphorum.de/list.php?f=3040 erarbeitet, um einen Satz in seine Worte zu "zerlegen", ich habe Sie dazu umfunktioniert, nur die Zahlen daraus herauszufiltern
Der Name "Zahlen" sollte dabei in Zeile 1 definiert werden (Spalte egal)
Der Name "Zahl" in der ersten Spalte, die Zahl #1 aufnehmen soll (Zeile egal)
hier ein Beispiel:
Excel Jeanie HTML
Anzeige
AW: Zahlen finden / schwierige Formel
24.01.2004 19:30:56
Erich M.
Hallo Franz,
zunächst besten Dank! Die EXCEL-Jeanie ist einfach spitze - die muss man haben!
Also die Formeln funktionieren perfekt. Ergänzungsfragen:
1. Was bedeutet EXCEL 4 Funktion AUSWERTEN ???
2. Gibt es einen Tipp wegen der Definition der Namen. Wenn man längere Formeln
eingeben will, und man geht mit dem Cursor weiter, dann wird immer die
neu ausgewählte Zelle angesteuert, so dass die Eingaben schwierig sind.
Oder mach ich da was falsch?
mfg
Erich
Anzeige
Chapeau...
24.01.2004 19:49:22
Ramses
Hallo Franz,
..ich glaube, ich hätte auch eher etwas auf K.Rola's Variante erarbeitet.
Aber das ist genial ;-))
Es ist eigentlich schon erstaunlich, zu was EXCEL ( wenn auch mit EXCEL4 Funktionen ) in der Lage ist ;-)
... warum MS die bloss so gut versteckt ?
Vielleicht arbeiten auch im XP-Code noch die EXCEL4 Funktionen ;-) *lol*
Gruss Rainer
Anzeige
AW: Chapeau...
24.01.2004 20:55:44
K.Rola
Hi Rainer,
wenn du nicht haben solltest, kann ich dir die Hilfedatei zu E4- Makros mailen.
Gruß K.Rola
Ja bitte...
24.01.2004 21:20:23
Ramses
Hallo K.Rola
Danke für das Angebot.
Dann könnte ich mich da mal ein wenig einlesen.
Ich finde die Dinger immer wieder faszinierend :-)
ramses@gmxpro.net
Gruss Rainer
Anzeige
AW: das würde mich auch interessieren
24.01.2004 23:14:16
FP
Hallo K.Rola,
von Nachträuber zu Nachträuberin:
"Könntest Du mir dieses Ding bitte auch schicken?"
f.poelt@aon.at
Herzlichsten Dank aus dem Salzkammergut
Franz

Forumthreads zu verwandten Themen

Zeichen in Zelle einfügen
Thomas Kaiserauer
Hallo,
hab ein kleines Problem mit Excel. Möchte in eine einzelne Zelle hin und wieder Sonderzeichen einfügen (z.B. umgedrehtes Fragezeichen für Spanisch-Vokabeln). Das Makro hab ich auch schon hinbekommen und mir eine eigenen Symbolleiste angelegt, nur wenn ich jetzt auf die Buttons klicke, wir...
24.04.2005 20:04:15
Thread-ID: 603070
11 Beiträge
Erwartungswert
Sebastian

Ich arbeite in Excel mit Statistiken und würde anstatt der Grafiken gerne Sonderzeichen für die mathematischen Zeichen einsetzen. Dass ich für xquer die 8 in Bookshelf 5 nehmen kann, weiß ich inzwischen, aber wie kann ich das u - ähnliche Symbol für den Erwartungswert einfügen?
Vielen Dank...
01.11.2004 17:09:14
Thread-ID: 510182
1 Beitrag
Anzeige
Wiedergabe Zelle aus Tabellenpos. aus anderen Arbeitsblatt
Cordovan
Ich habe ein Problem mit dem Befehl INDIREKT in Kombination mit den Befehlen Adresse und Vergleich.

Zum Problem: in Zelle J2 steht eine Zahl (Personalnummer). Auf diese soll in einem anderen Tabellenblatt (Name lautet auf PowerQuery) zugegriffen werden und aus einer Tabelle die richtige Zel...
10.03.2025 13:55:54
Thread-ID: 2008428
2 Beiträge
Text in Zahlen umwandeln...ich scheitere irgendwie
Fjolnir
Hallo zusammen,

aus einer Mail habe ich eine Bestellung in Excel kopiert (Strg+Paste).

Nun habe ich in den Spalten D und E jeweils €-Beträge stehen. Mit denen will ich weiter
arbeiten - dazu müssen dass aber anstatt "Text" nun "Zahlen" werden. Und das gelingt
mir nicht.
12.07.2024 16:07:22
Thread-ID: 1984626
6 Beiträge
hex zahl wird falsch umgewandelt
edi

Hallo zusammen,ich will HexZahlen (Z.B. "&H0000D2F0") in einen Dezimalwert umwandeln. Ich kann machen was ich will ich krieg mit dem Beispiel immer "-11536" statt der gewünschten "+54000". Was mach ich falsch? Ich hab auch schon probiert das mit DIM in den Griff zu kriegen, aber weder mit long...
08.04.2003 01:17:18
Thread-ID: 241638
2 Beiträge
Ergebnisse in Zahlen umwandeln?
Marco1973

Hallo Leute,
muß diese Tage eine 100-seitige Exceltabelle editieren. Eine sich immer wiederholende Formel a = c/b soll geändert werden in c = a*b.
Ich würde jetzt hingehen, und die erechneten Ergebisse manuel mit der selben Zahl überschreiben und dann mit dem 2ten Wert multiplizieren -...
20.07.2004 23:28:48
Thread-ID: 458221
3 Beiträge
Formelergebnis in Datum umwandeln
Martina

Hi,
ich versuche (leider erfolglos) folgendes zu erreichen:
Ich habe aus beispielsweise dieser Zahl 1010_140865 die letzten 6 Ziffern mit der Formel =TEIL(A859;6;6) extrahiert. Das Ergebnis: 140865. Jetzt möchte ich diese 6 Ziffern als Datum erscheinen lassen. Über Formatierung funktion...
15.01.2015 14:43:07
Thread-ID: 1403026
4 Beiträge
Wert in Formel durch Formel ersetzen
OrstenPowers
Hallo zusammen,

nach langem erfolglosen Ausprobieren bin ich nun auf der Suche nach externer Hilfe! :-)

In meiner Datei steht in H4 die folgende Formel, die auch wie gewünscht funktioniert.

H4 = SUMMENPRODUKT(RUNDEN(I2*(1+L2)^KÜRZEN((ZEILE(1:120)-1)/12);2)*(1+J2/12)^ZEILE...
05.06.2024 16:52:42
Thread-ID: 1980314
1 Beitrag
Sverweis ? richtige Formel?
lemmy

Ich verstehe nicht wie so der Sverweis nicht funktioniert!
Ich habe eine Zahlen Tabelle D8-D28 (Refrenz-Suchfeld) , diese möchte ich in eine andere Zahl umwandeln. (Ergebnis- Tabelle)
Wenn ich nun in der Ausgabetabelle (B8-B28) meinen sverweis einsetze werden die ersten 4 Zeilen richt...
26.07.2019 15:52:01
Thread-ID: 1704326
4 Beiträge
Funktion links rechts
Tom

Hallo,
der Code soll nach der Berechnung das Ergebnis in eine Zahl umwandeln. Wie mache ich das am besten?
Gruß Tom
Sub Formel_Vers() Dim Vers As Long, i As Long With ActiveSheet Vers = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 7830 To Vers If .Cells(i, 18) = "" Then .Cells(i, 18...
25.01.2019 15:57:56
Thread-ID: 1670976
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum