Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aufteilen, splitten als vba

Text aufteilen, splitten als vba
10.01.2013 16:06:57
karl
Hallo Excelprofis,
ich importiere Textzeilen (Handyrechnung - Datum,Zeit,Dauer,Nummer...)
als ein Datensatz.
Würde diesen Datensatz gerne splitten in die einzelnen Elemente.
Habe mir schon vba Beispiele angeschaut, kriegs aber nicht hin,
ja sorry ist mir zu kompliziert.
hier mal ein Muster wie es aussieht und nacher sein sollte.
https://www.herber.de/bbs/user/83337.xls
Wäre super wenn mir jemand das Makro einbaut.
Besten dank wie immer
karl

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aufteilen, splitten als vba
10.01.2013 16:21:38
karl
Hallo nochmals
hier mein Versuch mit dem gefundenen Makro.
Das Problem ist eigentlich nur der Bertrag.
Beispiel: 0, 3222
Also zwischen Vollem Euro und dem Komma und den Centbeträgen ist ein Leerzeichen
was ja nicht üblich ist. Hier kommt das makro durcheiander weil es ja die Leerzeichen splittet
und aus dem Betrag zwei spalten macht
https://www.herber.de/bbs/user/83339.xls
karl

AW: Text aufteilen, splitten als vba
10.01.2013 16:25:33
karl
Versehentlich geschlossen, Frage aber noch offen
kalr

AW: Text aufteilen, splitten als vba
10.01.2013 16:26:32
Peter
Hallo Karl,
dann eliminiere das Leerzeichen nach dem Komma, z. B. so: 
Option Explicit
Public Sub Aufteilen()
Dim lZeile   As Long
Dim vTemp    As Variant
Dim iIndx    As Integer
Dim iSpalte  As Integer
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen
For lZeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A" & lZeile).Value = Replace(.Range("A" & lZeile).Value, ", ", ",")
vTemp = Split(.Range("A" & lZeile).Value, " ")
iSpalte = 2
For iIndx = 0 To UBound(vTemp)
.Cells(lZeile, iSpalte + iIndx).Value = vTemp(iIndx)
Next iIndx
Next lZeile
End With
End Sub

Gruß Peter

Anzeige
AW: Text aufteilen, splitten als vba
10.01.2013 16:34:54
karl
Hallo Peter,
danke für die schnelle antwort.
Funktioniert nur zum teil,
aus 1, 319 wird 1319,00
oder muss ich noch irgendetwas beachten?
karl

AW: Text aufteilen, splitten als vba
10.01.2013 16:38:16
karl
mit Beträgen unter 1 Euro, also 0, 123 funktioniert es einwandfrei
Grösser als 1, 123 nicht
karl

AW: Text aufteilen, splitten als vba
10.01.2013 16:39:25
robert
Hi,
probier mal das.
Gruß
robert
Private Sub CommandButton1_Click()
Dim aTemp    As Variant
Dim iIndex   As Integer
Dim iSpalte  As Integer
Dim lZeile   As Long
For lZeile = 5 To Cells(Rows.Count, 1).End(xlUp).Row
aTemp = Split(Trim(Cells(lZeile, 1).Value))
iSpalte = 2
For iIndex = 0 To UBound(aTemp)
Cells(lZeile, iSpalte).Value = aTemp(iIndex)
iSpalte = iSpalte + 1
Next iIndex
Next lZeile
For lZeile = 5 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(lZeile, 7) = (Cells(lZeile, 7) & Cells(lZeile, 8)) * 1
Next
Columns(8).Clear
End Sub

Anzeige
AW: Text aufteilen, splitten als vba
10.01.2013 16:47:08
karl
Hallo Robert,
jawoll so ist das wie ich es brauche.
Euch beiden recht herzlichen dank
karl

301 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
3
11
3
1
2
7
4
3
3
2
5
4
3
6
4
3
3
14
3
1
6
15
11
15
2