Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Gruppierung per Makro
zurück: Range(Cells.. Probleme weiter: Farbige Zellenwerte addieren??? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Alterweg
Excel Helfer & Access Anfänger


Verfasst am:
26. Mai 2008, 16:01
Rufname: Excelandi
Wohnort: Dresden

Gruppierung per Makro - Gruppierung per Makro

Nach oben
       Version: Office 2k (2000)

Ich möchte gern das ein und Ausblenden mit der Gruppierung Gliederung per Makro machen. Aber als ich das mit dem Makrorekorder aufzeichnen wollte hat der das nicht gemacht das makro blieb leer!
Was tun? weiß jemand einen Rat?
SNX
Anfänger


Verfasst am:
26. Mai 2008, 16:28
Rufname:


AW: Gruppierung per Makro - AW: Gruppierung per Makro

Nach oben
       Version: Office 2k (2000)

Hallo,

Ich hab das i.e. so gelöst:

[code]Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

ActiveSheet.Unprotect

If Tabelle999.Cells(135, 6) = "WAHR" Then
ExecuteExcel4Macro "Show.detail(1, 14,true)"
ExecuteExcel4Macro "Show.detail(1, 17,false)"
Else
ExecuteExcel4Macro "Show.detail(1, 14,false)"
ExecuteExcel4Macro "Show.detail(1, 17,true)"
End If

Range("A1:o1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("e46").Select
Tabelle411.ScrollArea = "a1:o100"

ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True

Application.ScreenUpdating = True

End Sub[/code]


Das Problem bei mir bleibt aber, das ich damit die Änderung wirksam wird erst auf ein anderes Blatt wechseln muss.
Hier im Forum wurde mir jedoch eine etwas andere Lösung geboten die dir vielleicht hiermit kombiniert helfen könnte:

http://www.office-loesung.de/ftopic233957_0_0_asc.php
Alterweg
Excel Helfer & Access Anfänger


Verfasst am:
28. Mai 2008, 09:49
Rufname: Excelandi
Wohnort: Dresden

AW: Gruppierung per Makro - AW: Gruppierung per Makro

Nach oben
       Version: Office 2k (2000)

Danke für deine Mühe. Ich habe das Problem jetzt so gelöst das ich die Gruppierung nicht nehme sondern direkt Über einblenden und Ausblenden gehe. Trotzdem danke für deine Hilfe
bekahuna
Gast


Verfasst am:
29. Nov 2012, 15:21
Rufname:


AW: Gruppierung per Makro - AW: Gruppierung per Makro

Nach oben
       Version: Office 2k (2000)

Ich glaub der Fehler ist behoben - bin dankbar für verbesserungen!!!

Viel Spaß damit

Sub group()
Dim maxLines As Integer
Dim aktLevel As Integer
Dim aktLine As Integer
Dim lastLine As Integer
Dim j As Integer

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

For i = 3 To maxLines
j = i + 1


If Cells(j, 1).Value > Cells(i, 1).Value Then

Do
j = j + 1
Loop While Cells(j, 1).Value > Cells(i, 1).Value

aktLine = i + 1
lastLine = j - 1

Range("A" & aktLine, "A" & lastLine).Select

If Cells(i, 1).Value <= 8 Then
Selection.Rows.group
End If



End If
Next
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: End up, Markieren, Löschen mit Makro 10 detlef42 1290 21. Nov 2006, 16:13
Detlef 42 End up, Markieren, Löschen mit Makro
Keine neuen Beiträge Excel Formeln: Makro mit Selection.AutoFill 2 GastAlex 3911 18. Okt 2006, 15:25
GastAlex Makro mit Selection.AutoFill
Keine neuen Beiträge Excel Formeln: Makro entfernen 4 Holger 996 979 07. Sep 2006, 09:29
brans Makro entfernen
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung nicht drucken? (oder Makro?) 1 Gast 1223 23. Aug 2006, 13:46
Cabation Bedingte Formatierung nicht drucken? (oder Makro?)
Keine neuen Beiträge Excel Formeln: wert kopieren aber nicht formel per vba 4 red-shark 1607 04. Aug 2006, 15:08
Gast wert kopieren aber nicht formel per vba
Keine neuen Beiträge Excel Formeln: Gruppierung 5 Katrin77 3722 29. Jun 2006, 16:05
< Peter > Gruppierung
Keine neuen Beiträge Excel Formeln: Auswahl per Pull Down 30 sisqonrw 6163 05. Apr 2006, 15:48
ae Auswahl per Pull Down
Keine neuen Beiträge Excel Formeln: Makro durch Funktion starten 11 Borsty22 12858 01. Apr 2006, 18:35
Hübi Makro durch Funktion starten
Keine neuen Beiträge Excel Formeln: Auffinden von Duplikaten per Formel 2 andrehamburg 606 25. März 2006, 18:10
andrehamburg Auffinden von Duplikaten per Formel
Keine neuen Beiträge Excel Formeln: Farben einer Zeile per Wenn-Funktion ändern??? 2 disposible 4951 14. März 2006, 09:07
disposible Farben einer Zeile per Wenn-Funktion ändern???
Keine neuen Beiträge Excel Formeln: Zeile kopieren per funktion 2 Gast_Mike 1181 13. März 2006, 11:57
Klaus-Dieter Zeile kopieren per funktion
Keine neuen Beiträge Excel Formeln: Mappe öffnen mit automatische Makro 0 Vase 1610 23. Feb 2006, 13:31
Vase Mappe öffnen mit automatische Makro
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project