Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array

Array
11.07.2006 15:14:12
Rudi
Hallo zusammen
Ich habe ein Sheet mit ca. 3000 Namen, alphabetisch sortiert.
Nun möchte ich für diese Namen pro Buchstabe ein Register erstellen, z.B. ein Register für alle Namen, die mit "A" beginnen, etc.
Damit ich jeweils weiss, von wo bis wo die einzelnen Namensbereiche gehen, stelle ich mir vor, diese Abschnittswechsel in ein Array einzulesen, welches ich später weiterverwenden kann.
Wie geht das?
Danke für eure Hilfe!
Gruss Rudi

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

Betreff
Datum
Anwender
Anzeige
AW: Array
11.07.2006 17:31:10
Martin
Hallo Rudi,
Annahme: Namen stehen in Spalte a ab Zelle A1, Spalte B. ist leer:

Sub Daten_in_Array()
Dim arr()
Application.ScreenUpdating = False
Z = Range("A65536").End(xlUp).Row
x = 2
For i = 1 To Z - 1
If Left(Cells(i, 1), 1) <> Left(Cells(i + 1, 1), 1) Then
ReDim Preserve arr(x)
arr(x) = i + 1
x = x + 1
End If
Next i
arr(1) = 1
'Zur Kontrolle
For j = 1 To UBound(arr)
Cells(j, 2) = arr(j)
Next j
Application.ScreenUpdating = True
End Sub

Gruß
Martin Beck
AW: Array
12.07.2006 08:21:19
Rudi
Hallo Martin
Vielen Dank für die Unterstützung!
Gruss Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige