Clever-Excel-Forum

Moin mal wieder!
1. In einem allgemeinen Modul (Einfügen, Modul) wird folgender Code eingefügt:
Modul Modul1

Option Explicit 



Sub Rectangle() 

Dim FirstChar As String 

FirstChar = ActiveSheet.Shapes(Application.Caller).DrawingObject.Characters.Text & "*" 

Dim Letzte As Long 

Letzte = Cells(Rows.Count, 1).End(xlUp).Row 

With Range(Cells(2, 1), Cells(Letzte, 2)) 

   .AutoFilter _

       field:=1, Criteria1:=FirstChar, VisibleDropDown:=False 

   .AutoFilter field:=2, VisibleDropDown:=False 

End With 

End Sub 

2. Um die einzelnen Rechtecke wird mit Start, Suchen und Auswählen, Objekte markieren ein Rechteck um die Schaltflächen gezogen, damit sind alle markiert.
3. Mittels der Taste rechts neben Alt GR wird das Kontextmenue aufgerufen, dort Makro zuweisen
4. Das Makro Rectangle zuweisen.
5. Eine ActiveX-Schaltfläche zum Löschen des Filters einfügen darauf Doppelklick und folgenden Code einfügen:
Microsoft Excel Objekt Tabelle1

Option Explicit 



Private Sub CommandButton1_Click() 

If Me.AutoFilterMode Then Cells(2, 1).AutoFilter 

End Sub 

Fettich, Datei im Anhang.

Gruß Ralf

Hallo Stefan, ich würde (gerade weil anfangs du eine Lösung ohne VBA erbeten hast) das so lösen ..:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K
1	Ber	Ber	A	B	C	D	E	F	G	H
2	Name	Vorname
3	Abendroth	Clemens
4	Achenmüller	Klaus
5	Adler	Jochen
6	Adler	Melanie
7	Ammer	Christian
8	Ammermeier	Jenny
9	Andres	Rodriguez
10	Aschberger	Roland
11	Aschenberger	Frank
12	Auer	Reinhard

Zelle	Formel
B1	=HYPERLINK("#A"&AGGREGAT(15;6;ZEILE(A3:A43)/(LINKS(A3:A43;LÄNGE(A1))=A1);1);A1)
C1	=HYPERLINK("#A"&VERGLEICH(ZEICHEN(64+SPALTE(A1))&"*";$A$2:$A$1000;0)+1;ZEICHEN(64+SPALTE(A1)))

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Danke.
Diese Lösung klappt und gefällt mir schon ganz gut.
Muss mir nur noch überlegen wo ich die ganzen Anfangsbuchstaben unterbringe.