Das Archiv des Excel-Forums

Zelleninhalt aufteilen in einzelene Zellen

Bild

Betrifft: Zelleninhalt aufteilen in einzelene Zellen
von: edie

Geschrieben am: 14.10.2003 10:07:33

Hallo zusammen,

im nachfolgenden VBA-Code wird eine 4-stellige Zahl (z. B. 12,03)
in der einzelne Zellen aufgeteilt.

Wenn ich aber eine 3-stellige Zahl eingebe (z. B. 9,99) funktioniert
das Makro nicht.

Das Makro soll unabhängig von der Zahllänge in die einzelne Zellen
aufgeteilt werden. Wichtig dabei daß in der vorletzten Zelle
das Komma und die Zahl in einer Zelle stehen (z.B. ,0).


Sub ZahlAufteilen2()
Dim z As Range
For Each z In Selection
z.Offset(0, 3).Value = Right(z.Value, 1)
z.Offset(0, 2).Value = Mid(z.Value, 3, 2)
z.Offset(0, 1).Value = Mid(z.Value, 2, 1)
z.Value = Mid(z.Value, 1, 1)
Next z
End Sub


Kann mir jemand helfen?

Vielen Dank im Voraus

Grüße
Bild


Betrifft: AW: Zelleninhalt aufteilen in einzelene Zellen
von: IngoG
Geschrieben am: 14.10.2003 10:53:19

Hallo edie,
versuchs mal mit mathe-functionen:

For Each z In Selection
z.Offset(0, 1).Value = int(z.Value-int(z.value/10)*10)
z.Offset(0, 2).Value = "," & int((z.value-int(z.value))*10)
z.Offset(0, 3).Value = int((z.value*10-int(z.value*10))*10)
z.Value = int(z.Value/10)
Next z
End Sub


es sollte funktionieren, wenn Du in der selection nur zahlen hast.
Du kannst es ja ausprobieren und dich nochmal melden

Gruß Ingo


Bild


Betrifft: AW: Vielen Dank es funktioniert
von: edie
Geschrieben am: 14.10.2003 11:09:45

Vielen Dank es funktioniert.

Grüße


Bild


Betrifft: AW: Zelleninhalt aufteilen in einzelene Zellen
von: RAnton
Geschrieben am: 14.10.2003 11:10:18

Hallo edie

hier der modifizierte Code



Sub ZahlAufteilen2()
Dim z As Range
Dim i As Integer
For Each z In Selection
i = InStr(1, z.Value, ",")
On Error Resume Next
z.Offset(, 1).Resize(1, 4).Value = ""
z.Offset(0, 4).Value = Mid(z.Value, i + 2, 1)
z.Offset(0, 3).Value = Mid(z.Value, i, 2)
z.Offset(0, 2).Value = Mid(z.Value, i - 1, 1)
z.Offset(0, 1).Value = Mid(z.Value, i - 2, 1)
Next z
End Sub


Achte bitte drauf, daß ich deinen Offset um 1 nach rechts geschoben habe, damit ich das Ergebnis kontrollieren kann.

Gruß
RAnton


Bild


Betrifft: AW: Zelleninhalt aufteilen in einzelene Zellen
von: Dan
Geschrieben am: 14.10.2003 11:43:05

Hallo Edie
versuch es mit diesem code. Ich weiss nicht genau ob es so richtig ist, also testen :-).
Aber im excel gibt es auch eine moglichkeit : wahle Daten/Text in die Spalten aus ... es ist mogliche weise das was du brauchst :-).
Gruss dich, Dan.

Public

Sub WertInEinzelneZellenAufteilen()
Dim Wert$, WertLen%, CharNr%, Char$, NeueSp%, Zelle As Range, Zellen As Range
' testen ob zellen ausgewahlt sind
If (TypeName(Application.Selection) <> "Range") Then
MsgBox "Keine Zellen ausgewahlt.": End
Else
' referenz an die ausgawahlte selection setzen
Set Zellen = Application.Selection
End If
' alle zellen durchgehen und Wert$ In Einzelne Zellen Aufteilen
For Each Zelle In Zellen
Wert$ = CStr(Zelle.Value)
WertLen% = Len(Wert$)
' wenn ein Komma da ist, brauchen wir eine zelle weniger
If (InStr(1, Wert$, ",")) Then
' in diese spalte wird der neue character eingefugt
NeueSp% = Zelle.Column + WertLen% - 2
Else
NeueSp% = Zelle.Column + WertLen% - 1
End If
' fur jeden character in Wert$, beginnend mit dem letzten
For CharNr% = -WertLen% To -1
Char$ = Mid(Wert$, -CharNr%, 1)
' testen, ob es sich um Komma handelt oder nicht
If (Char$ <> ",") Then
Cells(Zelle.Row, NeueSp%).Value = Char$
NeueSp% = NeueSp% - 1
Else
Cells(Zelle.Row, NeueSp% + 1).Value = Char$ & Cells(Zelle.Row, NeueSp% + 1).Value
End If
Next CharNr%
Next Zelle
End Sub



 Bild

Excel-Beispiele zum Thema " Zelleninhalt aufteilen in einzelene Zellen"

Zeichenfolge aufteilen download In eine InputBox eingegebene Daten in Elemente aufteilen download
Text aus Textbox in Zellen aufteilen download Telefonnummern nach Vorwahl und Anschluß aufteilen download
Hyperlink aufteilen download Zeichenfolge in Ziffern und Buchstaben aufteilen download
Zelleingaben in Gruppen von 5 Zeichen aufteilen download Aufteilen der Arbeitsblätter in neue Arbeitsmappen download
Aufteilen einer Tabelle auf mehrere Arbeitsblätter download Tabelle nach Gruppen aufteilen download
Namen nach dem Zufallsprinzip in variable Gruppen aufteilen download Aufteilen eines Strings mit Zeilenumbrüchen download
Tabelle in neue Blätter nach Gruppen aufteilen. download Text gemäß Zeilenumbrüchen in Einzelzellen aufteilen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Zeitspann in Zeitgruppen aufteilen download
Zeichenfolge nach Zeilenumbrüchen aufteilen download Aufteilen mehrzeiliger Zellinhalte in UserForm-ListBox download
Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Zellen vergleichen und markieren download
Zählen formatierter Zellen download Daten aus Textdatei gezielt in Zellen übernehmen download
Zellen verbinden und trennen download Zellen bei Minuswerten schraffieren download
Zeilen oberhalb der markierten Zellen einfügen download Drei Zellen rechts der aktiven Zelle markieren download
Zellen vom Druck ausschließen download Zellenwert als Autofilter-Kriterienwert download
Nur Zellen mit Inhalt in ComboBox listen download Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download
Zellen nach Schriftfarbe summieren download Füllen aller leeren Zellen mit einem Platzhalter download
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download Zeilen mit Zellen mit rotem Hintergrund ausblenden download
Anzahl der gelb hinterlegten Zellen ermitteln download Editieren von Zellen durch DoppelKlick verhindern download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download
Prüfung, ob Parallelzellen übereinstimmen download Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download
Kofpzeilenwerte angekreuzter Zellen multiplizieren download Zellen über Tabellenblatt-Schaltfläche multiplizieren download
Wert aus A1 in mehrere Zellen übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download Nur sichtbare Zellen addieren download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Blatt auswählen und Zellen nacheinander drucken download
Leere und Zellen mit 0 aus-/einblenden download Zugriff auf Zellen unter Verwendung eines Bereichsnamens download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download Prüfung, welche Zellen nach Öffnen verändert wurden download
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeilenhöhe bei verbundenen Zellen anpassen download Einfügen von Zeilen vor und nach Zellen mit Fettdruck download
Bei Zelleingabe andere Zellen füllen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Gültigkeitsliste ohne Lerrzellen download Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download
Zellen verbinden, ohne dass Werte verlorengehen download