Hajo's Excelzeiten mit einer umfangreiche Beispielsammlung zum kostenfreien Download. 
			Sowohl Formellösungen als auch Beispiele für die Makroprogrammierung in Excel.
Home
VBA Beispiele

  Allgemein
  Bilder einfügen
  blinkender Zellinhalt
  Counter
  Datei schließen
  Dateikopie
  Dateiverwaltung
  Datensätze umschreiben
  Datum / Zeit
  DropDown-Listenfeld
  Drucken
  Ersatz bedingte Formatierung
  Füllfarbe
  Kontextmenü
  nur mit Makros
  Sound
  Stoppuhr
  Symbolleiste Formular
  Symbolleiste vor 2007
  Symbolleiste 2007
  UserForm
  Zellen markieren

ohne VBA Beispiele
fremde Dateien
Hinweise zu Excel 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
disclaimer

letzte Bearbeitung 27.08.11

Valid XHTML 1.0 Strict CSS ist valide!

Bing
Suchmaschinenoptimierung mit Ranking-Hits
Adresse
 EFGHIJKLM
1'- Autofilter, Gruppierung trotz Blattschutz   
2'- ab Version 2002 kann auf den Teil für Autoflter verzichtet werden, 
3  Einstellung über Schutz der Tabelle möglich               
4'- Code unter DieseArbeitsmappe   
5'- im Ereignis Sub Workbook_Open() müssen explizit alle Tabelle angegeben werden,   
6  in denen der Code wirken soll               

verbundene Zellen
E1:K1
E2:M2
E4:K4
E5:K5

Tabellendarstellung in Foren Version 5.46


' **************************************************************
'  Modul:  DieseArbeitsmappe  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit
'**************************************************
'* H. Ziplies                                     *
'* 05.10.06                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/                          *
'**************************************************
'    Autofilterfunktion, Gruppierung bei Blattschutz möglich?
'    Diese Frage wird in Foren öffters gestellt.
'    Das funktioniert normalerweise nicht. Man kann Excel aber austricksen:
'       bevor man den Blattschutz aktiviert, blendest man den AutoFilter ein.
Sub Workbook_Open()
    With Worksheets("Adresse")
        .Protect UserInterfaceOnly:=True, Password:="Hajo_Zi"
        .EnableOutlining = True     ' Für Gliederung
        .EnableAutoFilter = True    ' Für AutoFilter
    End With
End Sub

Code eingefügt mit: Excel Code Jeanie


Datei Autofilter