Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aufteilen, splitten als vba

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten 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
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
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
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
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
Anzeige
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
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
TextBox Eingabe als Zahl
Frank

Hallo Excelianer!!!
Ein herzlicher Gruß an alle, rutscht gut ins neue Jahr, bleibt gesund und Excel treu!!! Nun zu meiner Frage.
Durch Klick in eine Zelle wird eine UF geöffnet und mittels Klick auf eine Schaltfläche folgender Code ausgelöst.
ActiveCell.Offset(0, -2).Value = TextBox...
30.12.2008 20:32:00
Thread-ID: 1036052
4 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