Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!!!

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?
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

320 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
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
+ 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

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
11
4
7
5
2
8
7
3
7
6
11
4
3
4
3
5
10
7
9
11
5
5
3
6