Inhaltsverzeichnis erstellen

Forumthread: Inhaltsverzeichnis erstellen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Inhaltsverzeichnis erstellen

24.07.2007 20:42:34

JStadler

Hallo Leute
ich bitte Euch mal wieder um Hilfe bei einem kleinen Problem.
Ich habe eine Liste (schön einfach, alle Begriffe stehen in einer Spalte untereinander, bereits alphabetisch sortiert) mit Ortsnamen. Ich suche nun nach einem Code, der alle Orte bis einschließlich mit L beginnend in eine andere Spalte untereinanderschreibt (also bis zum "letzten L") und alle Orte von M-Z in eine zweite Spalte. Hab schon mit "Characters" experimentiert, das klappt aber noch nicht so richtig.
Wär nett, wenn Ihr mir da helfen könnten.
Liebe Grüße
Johannes

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhaltsverzeichnis erstellen

24.07.2007 21:13:00

Beverly
AW: Inhaltsverzeichnis erstellen

24.07.2007 21:20:58

JStadler

AW: Inhaltsverzeichnis erstellen

24.07.2007 21:13:00

Beverly

Hi Johannes,
wenn deine Ortsnamen in Spalte A stehen und das Ergebnis in Spalte B und C ausgegeben werden soll, dann könttest du das mit diesem Code machen


Sub verzeichnis()
Dim loZeile As Long
Dim loZeile2 As Long
Dim loZeile3 As Long
loZeile2 = 1
loZeile3 = 1
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row,  _
Rows.Count)
Select Case UCase(Left(Cells(loZeile, 1), 1))
Case "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L"
Cells(loZeile2, 2) = Cells(loZeile, 1)
loZeile2 = loZeile2 + 1
Case "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
Cells(loZeile3, 3) = Cells(loZeile, 1)
loZeile3 = loZeile3 + 1
End Select
Next loZeile
End Sub

________________________________________