Anzeige
Archiv - Navigation
1600to1604
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
Inhaltsverzeichnis

Anfangsbuchstaben pro Zeile

Anfangsbuchstaben pro Zeile
04.01.2018 17:28:40
Rahel
Hallo liebes Forum,
ich habe ein vermutlich recht simpel zu lösendes Problem:
Ich möchte in den Zellen des beigefügten Excel Sheets in Spalte B die verschiedenen vorkommenden Anfangsbuchstaben isolieren. Allerdings nicht einfach alle Anfangsbuchstaben, sondern jeden vorkommenden nur einmal.
Aus Zelle B1 soll also in Zelle C1 "G" und "H" übertragen werden - jeweils einmal, nicht 7 mal "H" und 10 mal "G".
Vielen Dank für eure Hilfe !!!
Grüße
Rahel
https://www.herber.de/bbs/user/118678.xlsx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
  • 04.01.2018 17:42:13
    Fennek
  • 04.01.2018 18:07:27
    Rahel
Anzeige
AW: vba
04.01.2018 17:42:13
Fennek
Hallo,
es ist immer wieder schön, Daimler zu unterstützen.

Sub Main
dim B as string
for i = 2 to cells(rows.count, 2).end(xlup).row
Tx = split(cells(i,2), chr(10))
B = ""
for k = 0 to  ubound(Tx)
if instr(1, B, left(Tx(k),1)) = 0 then B = B & ", " & left(Tx(k),1)
next k
cells(i,3) = mid(B,3)
next i
End Sub
mfg
AW: vba
04.01.2018 18:07:27
Rahel
Funktioniert bestens!
Herzlichen Dank
Rahel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige