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
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wort zerlegen,nach Zahlen und Wörtern

Wort zerlegen,nach Zahlen und Wörtern
Jürgen
Hallo liebe Helfer,
ich habe in beiliegender Mappe ein Makro geschrieben. Wenn man das so nennen kann.
Es arbeitet sich von Zelle zu Zelle tiefer und soll die Werte sofern eine Ziffer enthalten ist getrennt in andere Zellen schreiben.
In Zeile 17 funktioniert das wie gewollt.
Ab Zeile 18 geht es nicht mehr, da hinten im Wort nochmal ein Leerzeichen ist.
Zeile 18 solllte eigentlich so aussehen wie Zeile 17 (nach Makro !!)
J18 sollte dann 10018626 sein und K18 sollte Bandmodul 2 sein
Kann ich irgendwie beim Durchsuchen mit Instr suchen, wo die Zahl aufhört ?
In der Suche habe ich nichts gefunden.
Ich hoffe ich habe mich verständlich ausgedrückt.
Danke schon mal im voraus
Gruß Jürgen
Datei: https://www.herber.de/bbs/user/70449.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Mein Codevorschlag
06.07.2010 09:50:08
NoNet
Hallo Jürgen,
ich habe den Code einfach nochmal neu geschrieben, so wie ich ihn mir vorstelle - teste ihn doch mal an einer Kopie Deiner Daten :
Sub Trennen2()
'Codevorschlag NoNet - www.excelei.de
Dim lngZ As Long, lngS As Long
Dim strInhalt As String, strZahl As String
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
strInhalt = Cells(lngZ, 1)
If strInhalt Like "*-- *[0-9]*" Then
lngS = InStr(strInhalt, "-- ") + 2
strInhalt = Trim(Mid(strInhalt, lngS + 3, 100))
lngS = InStr(strInhalt, " ")
strZahl = Left(strInhalt, lngS - 1)
If IsNumeric(strZahl) Then
Cells(lngZ, 10) = "'" & Trim(strZahl)
Cells(lngZ, 11) = Trim(Mid(strInhalt, lngS, 100))
End If
End If
Next
End Sub
Gruß, NoNet
PS: Deutschland spielt "Vier gewinnt" :
gegen 4:0    gegen 4:1    gegen 4:0    gegen ?:? ;-)
Anzeige
AW: Mein Codevorschlag
06.07.2010 10:01:12
Jürgen
Hallo NoNet,
ich verstehe zwar nicht genau warum,
aber super , das Ergebnis ist genau das was ich wollte.
Werde deinen Code mal genau studieren, vielleicht lerne ich ja was !!!.
Danke vielmals
Gruß Jürgen
Klitzekleine Korrektur noch (>100 Zeichen)....
06.07.2010 10:08:42
NoNet
Hallo Jürgen,
habe mir Deine Daten eben nochmal angesehen und daher noch einen kleinen Korrekturvorschlag :
Da einige Bezeichnungen länger als 100 Zeichen sind (z.B. Zeile 67) schneidet der Code diese ab dem 100. Zeichen ab !
Das kannst Du korrigieren, indem Du die beiden 100 im Code z.B. in 200 änderst : 
             strInhalt = Trim(Mid(strInhalt, lngS + 3, 200))
Cells(lngZ, 11) = Trim(Mid(strInhalt, lngS, 200))
Gruß, NoNet
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Anzahl gleicher Elemente einer Spalte
Pascal

Hallo,
wie kann ich die Anzahl der gleichen elemente in einer Spalte ermitteln?
die Tabelle sieht etwa so aus:
1
3
0
1
1
2
0
1
das ergebis soll dieses sein:
0: 2
1: 4
2: 1
3: 1
03.11.2008 08:35:37
Thread-ID: 1021264
5 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Anzeige
Zahlen in Extra spalte separieren
Dirk

Hallo zusammen,
ich habe eine Liste von Adressen bei der die Hausnummer immer hinter dem Strassenamen steht. Und zwar in der selben Spalte.
Z.B. Hauptstr. 12
Kirchweg 23
u.s.w
Ich brauche die Hausnummern aber in einer extra Spalte. Hat jemand eine Idee?
Nach dem Strassen...
12.01.2009 16:55:27
Thread-ID: 1038937
8 Beiträge
Zahlen in Spalte umpolen
andi

Hallo zusammen,
ich möchte einen Fragebogen in Excel auswerten, bei dem einige Items umgepolt sind.
So sollte ich bei einigen Items die Zahlenwerte "vertauschen
1 wird zu 5
2 wird zu 4
3 wird zu 3
4 wird zu 2
5 wird zu 1
wie kann ich die Zahlen
a) in der g...
05.02.2009 08:49:55
Thread-ID: 1047287
2 Beiträge
Ganzzahlen in Spalte zählen
MBorn

bonjour,
weiß jemand wie man mit einer Formel die Anzahl aller Ganzzahlen (Zahlen, die 0 hinter Komma haben)
in einer Spalte zählen kann?
Danke,
Born
02.04.2009 13:06:10
Thread-ID: 1066304
4 Beiträge
Wort suchen und alle gleichen zusammennehmen
blaze

Hallo zusammen
Ich habe folgendes zu lösen und komme nicht weiter:
In einem neuen Tabellenblatt sollen alle vorkommenden Worte (z.B. Flasche) untereinander angeordnet werden.
Das Tabellenblatt 1 sieht z.b so aus:
A | Q | R | S |
Flasche bla1 bla2 bla3
Glas bla4...
04.05.2009 10:05:40
Thread-ID: 1072657
6 Beiträge
Spaltenbuchstaben in zahlen wandeln
Tobiax

Guten Morgen!
Ich gebe die var Spalte als zahl vor und möchte dann in die z.b. 25.Spalte (das wäre dann Y) gehen und dort in die Zeile 3 auswählen
Range( Spalte & "3").Select klappt ja nicht.
Wie kann ich das konvertieren ?
Toby...
13.05.2009 08:21:56
Thread-ID: 1074706
3 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
1
4
4
3
3
7
1
3
5
2
4
6
11
1
7
2
3
2
6
8
8
8
4
7
11