Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen aus einer Zelle in mehrere Verteilen

Forumthread: Zahlen aus einer Zelle in mehrere Verteilen

Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:03:01
Max
Guten Abend zusammen!
Ich möchte eine Zahl (steht in A1 z.B. 123,45) in die Zellen
B1, C1, D1, E1, F1 und G1 verteilen.
Dabei müsste aber immer in G1 die Cent-Beträge, in F1 die 10-er Cent, in D1 die Einer-Euros etc. stehen, da die Zahlen von 0,01 bis 9999,99 variieren und ich die
gewonnen Daten in einem neuen Tabellenblatt verarbeiten muss.
Beispiel:
siehe Anlage
Userbild
Wer kann mir helfen? Bin mit meinem Lateien leider am Ende.
Vielen Dank!!!
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:07:00
Unbekannter 

Sub trennen()
For a = 1 To Len(Range("a1"))
Cells(1, a + 1) = Mid(Range("a1"), a, 1)
Next a
End Sub

Gruß UN1
AW: Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:14:08
Max
Danke UN1, mit der 1 Zeile funktioniert das.
Was muss ich ändern, damit alle Zeilen nach unten aufgeteilt werden, in denen ein
Wert steht?
Anzeige
AW: Bsp passt nicht zu Erläuterung! - Gruß owT
30.11.2005 19:09:33
Luc:-?
:-?
AW: Bsp passt nicht zu Erläuterung! - Gruß owT
30.11.2005 19:14:52
Max
Sorry, Bild ist richtig!
AW: Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:41:10
Josef
Hallo Max!
Vieleicht so!
Tabelle3
 ABCDEFGH
10,010000,01
2199,480199,48
34879,794879,79
49999,999999,99
Formeln der Tabelle
B1 : =GANZZAHL(A1/1000)
C1 : =GANZZAHL((A1-(B1*1000))/100)
D1 : =GANZZAHL((A1-(B1*1000)-(C1*100))/10)
E1 : =GANZZAHL((A1-(B1*1000)-(C1*100)-(D1*10)))
G1 : =GANZZAHL((A1-GANZZAHL(A1))*10)
H1 : =((A1-GANZZAHL(A1))*100)-G1*10
B2 : =GANZZAHL(A2/1000)
C2 : =GANZZAHL((A2-(B2*1000))/100)
D2 : =GANZZAHL((A2-(B2*1000)-(C2*100))/10)
E2 : =GANZZAHL((A2-(B2*1000)-(C2*100)-(D2*10)))
G2 : =GANZZAHL((A2-GANZZAHL(A2))*10)
H2 : =((A2-GANZZAHL(A2))*100)-G2*10
B3 : =GANZZAHL(A3/1000)
C3 : =GANZZAHL((A3-(B3*1000))/100)
D3 : =GANZZAHL((A3-(B3*1000)-(C3*100))/10)
E3 : =GANZZAHL((A3-(B3*1000)-(C3*100)-(D3*10)))
G3 : =GANZZAHL((A3-GANZZAHL(A3))*10)
H3 : =((A3-GANZZAHL(A3))*100)-G3*10
B4 : =GANZZAHL(A4/1000)
C4 : =GANZZAHL((A4-(B4*1000))/100)
D4 : =GANZZAHL((A4-(B4*1000)-(C4*100))/10)
E4 : =GANZZAHL((A4-(B4*1000)-(C4*100)-(D4*10)))
G4 : =GANZZAHL((A4-GANZZAHL(A4))*10)
H4 : =((A4-GANZZAHL(A4))*100)-G4*10
 

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:54:29
Max
Sehr gut! Das habe ich gesucht! Vielen dank.
AW: Zahlen aus einer Zelle in mehrere Verteilen
30.11.2005 19:54:52
Unbekannter
Hier ne VBA Lösung.
Public text, zeile

Sub start()
For zeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Call teilen(zählen(Cells(zeile, 1)))
Next zeile
End Sub



Function zählen(ByVal zelle As Range) As Long
On Error Resume Next
Do Until Mid(zelle, zählen, 1) = ","
zählen = zählen + 1
Loop
text = zelle
End Function



Sub teilen(ByVal stelle As Long)
Select Case stelle
Case Is = 5
For a = 1 To Len(text)
Cells(zeile, 2 + a - 1) = Mid(text, a, 1)
Next a
Case Is = 4
For a = 1 To Len(text)
Cells(zeile, 2 + a) = Mid(text, a, 1)
Next a
Case Is = 3
For a = 1 To Len(text)
Cells(zeile, 2 + a + 1) = Mid(text, a, 1)
Next a
Case Is = 2
For a = 1 To Len(text)
Cells(zeile, 2 + a + 2) = Mid(text, a, 1)
Next a
End Select
End Sub

Gruß UN1
Anzeige
;

Forumthreads zu verwandten 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
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
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
Anzeige
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Zahlenreihe aus Zellen
Philipp

Hallo liebe Herber-Gemeinde,
heute möchte ich aus einer Zeilenreihe, die z.B. so aussieht:
A1 B1 C1 D1 E1 F1
12 16 22 45
Nun möchte ich, dass mir Excel aus der Zahlenreihe alle Zellen raussucht, wo Zahlen stehen und diese durch die Anzahl der der Zellen teilt, die Werte b...
16.12.2008 08:30:05
Thread-ID: 1033180
9 Beiträge
Vorgabe wie die Zahlen geschrieben werden müssen
ganz

Guten Abend,
ich möchte das in einer Zelle die Zahlen NUR genau nach Vorgabe geschrieben werden können, damit ich später besser per Autofilter sortieren kann.
ZB. soll eine solche Zahlenkombi auch nur in folgenden Blöcken eingetragen werden können:
222 0 78 937
_ _ _...
29.01.2009 20:42:37
Thread-ID: 1045190
8 Beiträge
Anzeige
+ Zeichen vor einer positiven Zahl
Ropa

HAllo
wie bekomme ich bei allen positiven Zahlen automatisch das + Zeichen davor
Grüße
Ropa
27.02.2009 12:27:01
Thread-ID: 1054699
4 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
Anzeige
Englische Postleitzahlen entfernen
MBorn

Grüß Gott,
ich habe eine Liste mit hunderten englischen Städten mit englischen Postleitzahlen.
Sowas: Irthlingborough NN9 5QF
Brauchen tue ich aber nur den Namen der Stadt und muß jetzt die Postleitzahl entfernen.
So: Irthlingborough
Für mich im Moment ein unlösbares Proble...
20.04.2009 15:18:32
Thread-ID: 1069858
12 Beiträge
Welche Zahl kommt zweimal vor
MBorn

Hallo,
ich glaube, das müßte ganz einfach sein, aber ich komm nicht drauf:
Wie finde ich die Zahl(en), die in einem bestimmten Bereich zweimal vorkommen?
gibt es dafür eine Excel-Funktion? Oder besser VBA?
Mit Schleife durchzählen lassen? Nö, oder? No idea...
Danke,
Born...
11.05.2009 18:18:28
Thread-ID: 1074433
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige