Herbers Excel-Forum - das Archiv

Inhalt einer Spalte auf zwei Spalten verteilen

Bild

Betrifft: Inhalt einer Spalte auf zwei Spalten verteilen
von: Frank
Geschrieben am: 11.12.2003 08:40:07
In einer gegebenen Excel - Tabelle ist folgender Spalteninhalt vorhanden:

=000BR_001-W1BA1

Dieser Inhalt soll so auf zwei Spalten aufgeteilt werden, das alles was nach dem Minuszeichen steht in Spalte 2 eingefügt werden soll, der Rest vor dem Minuszeichen soll in Spalte 1 stehen bleiben.

Vielen Dank im Voraus

Frank

Bild

Betrifft: AW: Inhalt einer Spalte auf zwei Spalten verteilen
von: atikar
Geschrieben am: 11.12.2003 08:45:32
hallo frank,

mit excel normal geht es z.B. so dein inhalt steht bei dem beispiel in D20

=LINKS(D20;FINDEN("-";D20;1)-1) (die formel zeigt den linken teil)

=RECHTS(D20;LÄNGE(D20)-FINDEN("-";D20;1)) (die formel zeigt den rechten teil)

ciao

atikar
Bild

Betrifft: AW: Inhalt einer Spalte auf zwei Spalten verteilen
von: Frank
Geschrieben am: 11.12.2003 09:23:01
Hallo,
danke für die schnelle Hilfe.
Es geht einwandfrei, nur soll das Minuszeichen mit im rechten Teil erscheinen.
Also so:

Links: =000BR_001
Rechts: = -W1BA1

Wie kann ich das machen

Danke schon mal

Gruß Frank
Bild

Betrifft: AW: Inhalt einer Spalte auf zwei Spalten verteilen
von: DieterB
Geschrieben am: 11.12.2003 08:48:02
Hallo Frank,

hier ein Code für dein Problem



Sub ZelleTrennen()
Dim i As Integer
Dim e As Integer
Sheets("Name")
Range("Zelle").Select
Do Until ActiveCell.Value = ""
i = InStr(AcziveCell.Value, " - ")
e = Len(ActiveCell.Value)
ActiveCell.Offset(0, 2.Value = _
Mid(ActiveCell.Value, i + 1, e - 1)
ActiveCell.Offset(1, 0).Select
Loop
End Sub



Hoffe es funzt für Dein Problem

Gruß

DieterB
Bild
Excel-Beispiele zum Thema " Inhalt einer Spalte auf zwei Spalten verteilen"
Zellinhalt suchen und Zelle auswählen Zellinhalt in zweitem Blatt ermitteln
Einlesen von Zellinhalten in Variablen Unterverzeichnisse mit Inhalt löschen
Zellinhalte zeilenweise sortieren Zellinhalt als Internet-Suchbegriff
Zellinhalt als Label-Aufschrift in UserForm Textprogramm starten und Inhalte von Zelle A1 eingeben
Nur Zellen mit Inhalt in ComboBox listen Zellinhalt und Kommentar nach Eingabe festlegen