Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
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
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwert

Zellwert
Einzel
Hallo,
Habe folgenden Zellwert in B2
Meyer Müller GmbH 7853701010 000000634285 xy 4227
oder
MeyerMüller GmbH 7853701010 000000634285 xy 4227
oder
MeyerMüllerGmbH 7853701010 000000634285 xy4227
Was immer gleich ist 7853701010 000000634285, nur andere Zahlen.
Nun das Problem.
Ich muss es in vier Zellen bringen.
Alles was vor der 7 ist in Zelle A1,
alles das 7853701010 in B2, (Zahlen unterschiedlich nur Anzahl gleich)
dann das 000000634285 in C3, (Zahlen unterschiedlich nur Anzahl gleich)
alles was nach der 5 kommt in C4.
Auch VBA OK
Habe zwar schon mal gepostet, hatte mich aber vertan sorry.
Gruß
Stephan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ein 2ter Thread, machts nicht besser!!
17.03.2010 21:22:56
Einzel
Stimmt aber ich wollte nochmals neu anfangen, da ich es im ersten thread wohl falsch beschrieben hatte.
Das macht es auch nicht besser...
17.03.2010 21:45:51
Renee
Stephan,
Wenn die Helfer nicht von den Lösungsansätzen und den Kommentaren im ersten Thread wissen und ggf. darauf aufbauen könnten.
Wie WF gesagt hat, die Logik wird immer undurchsichtiger und auch ich bin überzeugt, es kämen nach einer Lösung noch weitere kleine Fälle dazu.
GreetZ Renée
AW: Zellwert
18.03.2010 01:05:54
JOWE
Hallo Stephan,
wenn diese Bedingungen zutreffen:
pro Zelle gibt es maximal 7 Leerzeichen
pro Zelle gibt es demzufolge maximal 7 zusammenhängende Zeichenketten
die numerischen zusammenhängenden Zeichenketten sind a) 10 Zeichen und b) 12 Zeichen
Dann evtl. so: (das Makro schreibt die Daten in B1:E1 und Folgezeilen bei weiteren Datensätzen) Sub splitten() zaehler = 0 On Error Resume Next For i = 1 To Sheets(1).Range("A1").End(xlDown).Row For j = 1 To Len(Sheets(1).Cells(i, 1)) If Mid(Sheets(1).Cells(i, 1), j, 1) = 7 Then Sheets(1).Cells(i, 2) = Left(Sheets(1).Cells(i, 1), j - 1) Sheets(1).Cells(i, 3) = Mid(Sheets(1).Cells(i, 1), j, 10) Sheets(1).Cells(i, 4) = Mid(Sheets(1).Cells(i, 1), j + 10, 12) Sheets(1).Cells(i, 5) = Mid(Sheets(1).Cells(i, 1), j + 24, 99) Exit For End If Next Next End Sub
Gruß
Jochen
Anzeige
AW: Zellwert
18.03.2010 09:25:38
JoWE
geht auch mit Formeln:
Tabelle1

 ABCDE
1Meyer Müller GmbH 7853701010 000000634285 xy 4227Meyer Müller GmbH7853701010000000634285xy 4227
2MeyerMüller GmbH 7853701010 000000634285 xy 4227MeyerMüller GmbH7853701010000000634285xy 4227
3MeyerMüllerGmbH 7853701010 000000634285 xy4227MeyerMüllerGmbH7853701010000000634285xy4227

Formeln der Tabelle
ZelleFormel
B1=LINKS(A1;FINDEN("7";A1;1)-2)
C1=TEIL(A1;FINDEN("7";A1;1); 10)
D1=TEIL(A1;FINDEN("7";A1;1)+11;12)
E1=TEIL(A1;FINDEN("7";A1;1)+24;99)
B2=LINKS(A2;FINDEN("7";A2;1)-2)
C2=TEIL(A2;FINDEN("7";A2;1); 10)
D2=TEIL(A2;FINDEN("7";A2;1)+11;12)
E2=TEIL(A2;FINDEN("7";A2;1)+24;99)
B3=LINKS(A3;FINDEN("7";A3;1)-2)
C3=TEIL(A3;FINDEN("7";A3;1); 10)
D3=TEIL(A3;FINDEN("7";A3;1)+11;12)
E3=TEIL(A3;FINDEN("7";A3;1)+24;99)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Da darf nur keine "7" vor der mit 7 beginnenden 10stelligen Ziffer sein!
Anzeige
AW: Zellwert
18.03.2010 14:08:06
Einzel
Es klappt.
Danke Danke
MfG
Stephan
AW: uups, 1. Anwort in falschem Bezug
18.03.2010 01:07:52
JOWE
Hallo Stephan,
wenn diese Bedingungen zutreffen:
pro Zelle gibt es maximal 7 Leerzeichen
pro Zelle gibt es demzufolge maximal 7 zusammenhängende Zeichenketten
die numerischen zusammenhängenden Zeichenketten sind a) 10 Zeichen und b) 12 Zeichen
Dann evtl. so: (das Makro schreibt die Daten in B1:E1 und Folgezeilen bei weiteren Datensätzen) 
Sub splitten()
zaehler = 0
On Error Resume Next
For i = 1 To Sheets(1).Range("A1").End(xlDown).Row
For j = 1 To Len(Sheets(1).Cells(i, 1))
If Mid(Sheets(1).Cells(i, 1), j, 1) = 7 Then
Sheets(1).Cells(i, 2) = Left(Sheets(1).Cells(i, 1), j - 1)
Sheets(1).Cells(i, 3) = Mid(Sheets(1).Cells(i, 1), j, 10)
Sheets(1).Cells(i, 4) = Mid(Sheets(1).Cells(i, 1), j + 10, 12)
Sheets(1).Cells(i, 5) = Mid(Sheets(1).Cells(i, 1), j + 24, 99)
Exit For
End If
Next
Next
End Sub
Gruß
Jochen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige