Text aus Datenbank filtern in neuer Spalte ausgebe

Hallo zusammen,
ich habe ein Leistungsverzeichnis mit einem langen Text. Ganz am Ende steht das Material und die Farbe, die sich von Artikel zu Artikel unterscheiden.
Text sieht so aus und steht in A1:
Weltzeituhr und Wetterstation mit transparentem Display, 16 Wettersymbole, Temperaturanzeige °C + °F, Luftfeuchtigkeitsanzeige, Anzeige von Wetterrekorden, eingebaute Sensoren, Weltzeit-Check, 18 Weltzeitzonen, Heimatzeitanzeige, 24-Std.-Modus oder AM/PM, Metall, silbermatt
Nun muss ich "Metall" in eine Spalte und "silbermatt" in eine weitere Spalte bekommen.
Problem: Ich habe ca. 20 verschiedene Materialien und natürlich 100te von Farben.
Natürlich habe ich schon =SUCHEN("Metall";A1;1) ausprobiert und mit der Teil-Formel wieder eingefügt.
Sicherlich kann ich doch nicht nur ein Material einfügen sondern tausende....
Wer kann mich dabei ein wenig unterstützen, ich bin mit meinem Latein am Ende.
.... Als kleinen Hintergrund... die Datenbank die ich bearbeite umfasst ca 6000 Artikel und mehr...
Lieben Dank für eure Tipps
übrigens... ich arbeite mit Excel 2000 und möchte nach Möglichkeit kein VBA
LG
Barbara

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Barbara,
Dann sehe ich nur noch die Möglichkeit über ein VBA-Programm:
Mach doch folgendes:
1. Gehe in Excel in "Extras" - "Makro" - "Makro" und gib dort im Makrofenster im oberen Textfeld einfach "xxx" ein und drücke dann die Schaltfläche "Bearbeiten". Hat nur den Sinn, damit du einfach in die VBA-Entwicklungsumgebung kommst.
2. Kopiere nachfolgenden Code nach "


Sub xxx()   End Sub


Sub Separieren()
Dim Feld As Variant, i As Long, j As Integer, Länge As Integer, Anzahl As Integer
Dim xx As Worksheet
Set xx = Worksheets("Tabelle1")
For i = 1 To 64000
'       In Spalte A müssen die Einträge nacheinander stehen - bei leerer Zelle wird abgebrochen
If xx.Cells(i, 1) = "" Then Exit Sub
'         Textlänge feststellen
Länge = Len(xx.Cells(i, 1))
'Anzahl Felder feststellen
Anzahl = 0
For j = 1 To Länge
If Mid(xx.Cells(i, 1), j, 1) = "," Then
Anzahl = Anzahl + 1
End If
Next
'         Felder separieren
Feld = Split(xx.Cells(i, 1), ",", , vbTextCompare)
'         Die letzten beiden Felder in Spalte B und C schreiben
xx.Cells(i, 2) = Feld(Anzahl - 1)
xx.Cells(i, 3) = Feld(Anzahl)
Next
End Sub

3. Es wird vorausgesetzt, daß der zu seprierende Text in der Tabelle mit Namen "Tabelle1" und dort in der Spalte A steht.
4. Nach dem Abspeichern, kannst du über "Extras" - "Makro" - "Makro" den Makro "Separieren" markieren und mit der Schaltfläche "Ausführen" die Separierung durchführen. Der "vorletzte" Text (hier "Metall") steht dann in Spalte B und der letzte Text(hier "silbermatt") in Spalte C. Und das ist immer so egal wie lang der Text(wieviele Felder) in Spalte A ist. Es können bis zu 64000 Zeilen mit diesem Makro behandelt werden.
Gruß Manfred

Beliebteste Forumthreads (12 Monate)

Text aus Datenbank filtern in neuer Spalte ausgebe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text aus Datenbank filtern in neuer Spalte ausgebe

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread