Thema Datum  Von Nutzer Rating
Antwort
01.06.2023 13:53:42 Blue Raven
Solved
Blau Spalten ungruppieren - Laufzeitfehler
 01.06.2023 14:42:39 Mase
Solved
01.06.2023 14:48:21 Mase
NotSolved
01.06.2023 14:55:52 Blue Raven
NotSolved
19.09.2023 14:04:46 Gast8522
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
01.06.2023 14:42:39		 Views:
168		 Rating:
     
Antwort:
 Nein
Thema:
Spalten ungruppieren - Laufzeitfehler		 
Option Explicit

Sub GruppierungSpalten()
    Dim ws As Worksheet
    Dim ersteSpalte As Integer
    Dim letzteSpalte As Integer
    
    ersteSpalte = 35
    letzteSpalte = 45
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Columns(fGetColumnLetter(Range("A1"), ersteSpalte) & ":" & fGetColumnLetter(ws.Range("A1"), letzteSpalte)).Ungroup
    Next ws
    
 End Sub


Function fGetColumnLetter(ByRef c As Excel.Range, ByVal lngSpalte As Long)

    Dim mc As Object
    
    With CreateObject("VBScript.RegExp")
        .Pattern = "[A-Z]+"
        If .Test(c.Offset(0, lngSpalte).Address) = True Then
            Set mc = .Execute(c.Offset(0, lngSpalte).Address)
            fGetColumnLetter = mc(0)
        End If
    End With

End Function

 

Denk dran zuerst abzuprüfen,  ob eine Gruppierung existiert.

 

Deine Verkettung von Datentypen in der Parameterliste funktioniert so nicht.

 

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
01.06.2023 13:53:42 Blue Raven
Solved
Blau Spalten ungruppieren - Laufzeitfehler
 01.06.2023 14:42:39 Mase
Solved
01.06.2023 14:48:21 Mase
NotSolved
01.06.2023 14:55:52 Blue Raven
NotSolved
19.09.2023 14:04:46 Gast8522
NotSolved