bitte helft mir weiter. Ich bin da auch echt mit rumprobieren nicht weiter gekommen!
ALso meinen Code habe ich unten aufgeführt.
Was soll der Code eigentlich tun?
Suche erst alle Spalten mit "1",
markiere diese
gruppiere diese,
dann verlasse Markierung,
dann suche alle Spalten mit "2",
markiere diese
gruppiere diese,
dann verlasse Markierung,
dann suche alle Spalten mit "3",
markiere diese
gruppiere diese,
dann verlasse Markierung,
usw.
Was tut der unten genannte Code nicht bzw. warum stoppt der Durchlauf?
-weil er die Selektion/die markierten Spalten von "vorher" nicht auflöst und dann ne Fehlermeldung bringt, da die Spalten z.B. von 1 und 2 nicht zusammenhängend sind (bzw. immer noch eine Spalte dazwischen ist) und Excel dann nicht gruppieren kann.
MEIN PROBLEM:
ich weiß nicht wie ich es mache, dass er die Selektion von vorher auflöst um dann die nächste Suche zu starten und diese dann wiederum zu selektieren und zu gruppieren.
BITTE , BITTE helft mir.
Gruss
Julia
Sub einsSUCHENundGRUPPIEREN()
Dim rng As Range, rng2 As Range, c As Range
Dim strBegriff As Long
'KW 1 gruppieren
Set rng = Range("J7:NL7")
For strBegriff = 1 To 51
If WorksheetFunction.CountIf(rng, strBegriff) = 0 Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
For Each c In rng.Cells
If c = strBegriff Then
If rng2 Is Nothing Then
Set rng2 = Columns(c.Column)
Else
Set rng2 = Union(rng2, Columns(c.Column))
End If
End If
Next c
rng2.Select
End If
Selection.Columns.Group
Next strBegriff
End Sub