Spalten markieren wenn in Zelle Begriff gefunden

Sub SucheSpalteH() Dim c As Range Dim strBegriff As String, sR As String Dim laR As Long Dim t As Boolean strBegriff = InputBox("Suchbegriff:") If strBegriff = "" Then Exit Sub laR = Cells(Rows.Count, 8).End(xlUp).Row t = False For Each c In Range("H1:H" & laR) If c.Value = strBegriff Then t = True sR = sR & c.Row & ":" & c.Row & "," End If Next c If t = True Then sR = Left(sR, Len(sR) - 1) Range(sR).Select Else Beep MsgBox "Suchbegriff wurde nicht gefunden!" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Suche2() Dim rng As Range Dim strBegriff As String Set rng = Range("J4:NL4") strBegriff = InputBox("Suchbegriff:") If strBegriff = "" Then Exit Sub If WorksheetFunction.CountIf(rng, strBegriff) = 0 Then Beep MsgBox "Suchbegriff wurde nicht gefunden!" Else Columns(Application.Match(strBegriff, rng, 0) + rng.Column - 1).Select End If End Sub

Sub Suche2() Dim rng As Range, rng2 As Range, c As Range Dim strBegriff As String Set rng = Range("J4:NL4") strBegriff = InputBox("Suchbegriff:") If strBegriff = "" Then Exit Sub 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 End Sub

Sub SucheUNDgruppieren() Dim rng As Range, rng2 As Range, c As Range Dim strBegriff As String 'KW 1 gruppieren Set rng = Range("J7:NL7") strBegriff = "1" If strBegriff = "" Then Exit Sub 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 End Sub

Sub SucheUNDgruppieren() Dim rng As Range, rng2 As Range, c As Range Dim loBegriff As Long 'KW 1 gruppieren Set rng = Range("J7:NL7") For loBegriff = 1 To 51 If WorksheetFunction.CountIf(rng, loBegriff) = 0 Then Beep MsgBox "Suchbegriff wurde nicht gefunden!" Else For Each c In rng.Cells If c = loBegriff 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 loBegriff End Sub

Hallo Werner,
stimmt! Das ist richtig.
Habe gerade mal das Makro getestet anhand einer simplen Testdatei.
Da er immer abgebrochen hatte habe ich den Gruppieren Befehl weiter nach oben gesetzt (ausprobiert), aber jetzt macht er es auch nicht so richtig .....vor allem macht er die Gruppierebenen nicht richtig (sollen insgesamt 2 Gruppierebenen werden - einmal OHNE (Ebene 1)verdecken und einmal MIT (Ebene 2)! )
Markieren klappt aber schon mal aber das reicht mir halt noch nicht! :-(
Könnt ihr es euch mal anschauen, bitte.
hab die Datei hochgeladen:
https://www.herber.de/bbs/user/109850.xlsm
Der Code:

Sub SucheUNDgruppierenAlsSchleife()
Dim rng As Range, rng2 As Range, c As Range
Dim loBegriff As Long
Set rng = Range("J7:NL7")
For loBegriff = 1 To 51
If WorksheetFunction.CountIf(rng, loBegriff) = 0 Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
For Each c In rng.Cells
If c = loBegriff Then
If rng2 Is Nothing Then
Set rng2 = Columns(c.Column)
Selection.Columns.Group
Else
Set rng2 = Union(rng2, Columns(c.Column))
End If
End If
Next c
rng2.Select
End If
Next loBegriff
End Sub

Beliebteste Forumthreads (12 Monate)

Spalten markieren wenn in Zelle Begriff gefunden

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten markieren wenn in Zelle Begriff gefunden

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread