Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auto-Gruppierung

Auto-Gruppierung
15.11.2014 01:11:00
Holger
Hallo,
ich würde gerne eine Gruppierung per VBA automatisieren, die z.B. an bestimmte "Zeichen" gebunden ist.
Bsp:
Gliederungstufe
3 wenn in Zelle A1 "*"
3 wenn in Zelle B1 "*"
2 wenn in Zelle C1 "**"
3 wenn in Zelle D1 "*"
3 wenn in Zelle E1 "*"
2 wenn in Zelle F1 "**"
1 wenn in Zelle G1 "***"
...
Hoffe es ist verständlich, bin für jegliche Hilfestellung dankbar.
Gruß
Holger

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auto-Gruppierung
17.11.2014 13:02:17
fcs
Hallo Holger,
hier ein entsprechendes Makro zur Gliederung von Spalten.
Gruß
Franz 
Sub Gliederung_Spalten()
Dim intLevel As Integer, Spalte As Long, wks As Worksheet, SpalteL As Long
Dim bolRechts As Boolean
'Hauptspaltenn in der Gliederung
bolRechts = False 'True = rechts, False = links
Set wks = ActiveSheet
With wks
.Columns.ClearOutline
If bolRechts = True Then
.Outline.SummaryColumn = xlSummaryOnRight
Else
.Outline.SummaryColumn = xlSummaryOnLeft
End If
SpalteL = .Cells(1, .Columns.Count).End(xlToLeft).Column
For Spalte = IIf(bolRechts, 1, SpalteL) To IIf(bolRechts, SpalteL, 1) _
Step IIf(bolRechts, 1, -1)
Select Case .Cells(1, Spalte).Text
Case "***": intLevel = 1
Case "**": intLevel = 2
Case "*": intLevel = 3
Case Else
intLevel = 0
End Select
If intLevel > 0 Then
.Columns(Spalte).OutlineLevel = intLevel
End If
Next
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige