Thema Datum  Von Nutzer Rating
Antwort
09.03.2022 10:20:38 Alexandra
NotSolved
Blau VBA Zeilen gruppieren abhängig vom Format (bold/non-bold)
 09.03.2022 13:27:31 Gast48654
*****
NotSolved
09.03.2022 15:54:27 Alexandra
NotSolved

Ansicht des Beitrags:
Von:
Gast48654		 Datum:
09.03.2022 13:27:31		 Views:
810		 Rating:
     
Antwort:
  Ja
Thema:
VBA Zeilen gruppieren abhängig vom Format (bold/non-bold)

Hätte es so gelöst:

Option Explicit

Public Sub Test()
  
  Dim rngData As Excel.Range
  Dim rngValue As Excel.Range
  Dim rngGroup As Excel.Range
  
  With ActiveSheet
      On Error Resume Next
      .Rows.Hidden = False
      Call .Rows.Ungroup
      On Error GoTo 0
      Set rngData = .Range("A8", .Cells(.Rows.Count, 1).End(xlUp))
  End With
  
  For Each rngValue In rngData.Cells
    
    If rngGroup Is Nothing Then 'And Not rngValue.Font.Bold
      Set rngGroup = rngValue
      
    ElseIf rngValue.Value = rngGroup(1).Value Then 'And Not rngValue.Font.Bold
      Set rngGroup = rngGroup.Worksheet.Range(rngGroup(1), rngValue)
      
    Else 'If rngValue.Font.Bold Then
      Call rngGroup.Rows.Group
      Set rngGroup = Nothing
'    Else
'      'hier läge ein Problem vor; Wertänderung innerhalb der Gruppe/ vor Sub-Total
    End If
    
  Next
  
End Sub

Wie angedeutet, könnte man noch prüfen, ob die Schrift in der Zelle auf Fett eingestellt ist.

Man könnte auch auf das Vergleichen der Werte verzichten und rein nach dem Kriterium Schrift ist Fett => gruppiere mit alle Zellen darüber arbeiten.

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.03.2022 10:20:38 Alexandra
NotSolved
Blau VBA Zeilen gruppieren abhängig vom Format (bold/non-bold)
 09.03.2022 13:27:31 Gast48654
*****
NotSolved
09.03.2022 15:54:27 Alexandra
NotSolved