Alphanumerischer Wert - Buchstaben ausschneiden

Forumthread: Alphanumerischer Wert - Buchstaben ausschneiden

24.10.2006 09:03:45

Michael

Hallo zusammen!
Ich habe folgendes Problem:
In einer Tabelle habe ich eine Spalte (A) mit alphanumerischen Werten, von denen ich in der Spalte B die Ziffern und in der Spalte C den (die) Buchstaben haben möchte.
Wie ist das möglich?
https://www.herber.de/bbs/user/37622.xls

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alphanumerischer Wert - Buchstaben ausschneiden

24.10.2006 09:14:19

Christian
AW: Alphanumerischer Wert - Buchstaben ausschneiden

24.10.2006 09:24:50

Peter
AW: @Peter

24.10.2006 09:40:38

HermannZ
AW: @Peter

24.10.2006 14:32:57

Michael

AW: Alphanumerischer Wert - Buchstaben ausschneiden

24.10.2006 09:14:19

Christian

Hallo unbekannter!
Also wenn die Spalte A immer so aussieht wie in deinem Beispiel, dann versuch mal in Excel die Spalte A markieren, Daten-Text in Spalten, feste breite so festlegen, dass eine Trennung zwischen Nummer und Buchstaben ist und fertigstellen, Achtung Spalten neben der aufzutrennenden Spalte sollten leer sein, da die zielzellen gnadenlos überschrieben werden.
lg
Christian

AW: Alphanumerischer Wert - Buchstaben ausschneiden

24.10.2006 09:24:50

Peter

Hallo Michael,
ob es eine Formel-Lösung gibt, weiß ich nicht, ich habe hier eine VBA-Lösung für dein Problem:
Sub Trennen() Dim lZeile As Long Dim iZeichen As Integer For lZeile = 2 To Range("A65536").End(xlUp).Row Range("B" & lZeile & ":C" & lZeile).ClearContents For iZeichen = 1 To Len(Range("A" & lZeile).Value) If IsNumeric(Mid(Range("A" & lZeile).Value, iZeichen, 1)) Then Range("B" & lZeile).Value = Range("B" & lZeile).Value & _ Mid(Range("A" & lZeile).Value, iZeichen, 1) Else Range("C" & lZeile).Value = Range("C" & lZeile).Value & _ Mid(Range("A" & lZeile).Value, iZeichen, 1) End If Next iZeichen Next lZeile End Sub
Alt + F11 = VBA-Umgebung
Einfügen - Modul
in das Fenster das Makro übertragen
mit Schließen-Kreuz beenden
mit Alt + F8 oder Extras - Makro - Makros starten.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: @Peter

24.10.2006 09:40:38

HermannZ

Hallo Peter;
ja mann kann das auch mit einer Formel lösen;
ein Beispiel;

	A	B	C
145
146	1108A	1108	A
147	119A	119	A
148	11102ABC	11102	ABC
149	111156A	111156	A
150	1112A	1112	A
151	1AHJU	1	AHJU
152	114A	114	A
153

Formeln der Tabelle

B146 : {=LINKS(A146;SUMME(--(ISTZAHL(LINKS(A146;SPALTE(1:1))*1))))}
C146 : {=RECHTS(A146;LÄNGE(A146)-SUMME(--(ISTZAHL(LINKS(A146;SPALTE($1:$1))*1))))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Gruss hermann

AW: @Peter

24.10.2006 14:32:57

Michael

Hallo Leute!
Komme erst jetzt zum Antworten, sorry!
Die Lösung von HermannZ läuft perfekt! Vielen Dank dafür, aber auch an alle anderen!
You saved my day!
Danke nochmal und einen schönen Tag noch!
Michael

Beliebteste Forumthreads (12 Monate)

Alphanumerischer Wert - Buchstaben ausschneiden

Forumthread: Alphanumerischer Wert - Buchstaben ausschneiden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread