Zeilen ausblenden und zellen formatieren

Hallo ihr alle,
ich würde gerne folgendes realisieren und habe selbst zu wenig wissen dafür.
Excel Tabelle
Ab zeile 6 (inklusiv) bis zeile 155 (inklusiv)
1. Immer aktiv im Hintergrund mit VBA
wird in spalte b etwas eingetragen, so sollen die zellen spalte b und c in der jeweiligen zeile automatisch verbunden werden, und der text fett formatiert.
wird der inhalt der dann verbundene zelle gelöscht, so sollen die formatierungen wieder rückgängig gemacht werden.
2. Bei Klick auf ein Button (1)
sollen alle Zeilen ausgeblendet in deren spalte b nicht steht
3. Bei Klick auf ein Button (2)
sollen alle Zeilen eingeblendet werden die ausgeblendet sind
Anmerkung es sind zusätzlich noch spalten ausgeblendet, die nicht eingeblendet werden sollen.
Danke.
Gruß Tom

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
ich habe versucht den vorherigen code selbst etwas zu erweitern was mir nur bedingt gelungen ist und nun brauche ich HILFE.
Code:
'Automatische Formatierung

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZ As Range
If Not Intersect(Target, [B6:B155]) Is Nothing Then
For Each rngZ In Intersect(Target, [B6:B155])
Cells(rngZ.Row, 2).Resize(, 5).Font.Bold = Not IsEmpty(rngZ.Value) 'fett  _
geschrieben
Cells(rngZ.Row, 2).Resize(, 5).MergeCells = Not IsEmpty(rngZ.Value)
Cells(rngZ.Row, 2).Resize(, 5).Interior.Color = RGB([255], [153], [0])
' ist der Zellenwert zwischen 11 und 161 = Farbe hellorange
Next
End If
End Sub

Ist in Zelle von Spalte B etwas drin, so wird von spalte b bis f die zellen verbunden
schriftart fett und zelle farblich hinterlegt.
Nur wie bekomme ich die Farbe wieder raus wenn die Zelle B leer ist.
Außerdem hätte ich gerne das die dann leeren zellen von spallte c bis f weiter verbunden bleiben und nur die zelle der spalte b nicht mehr mit den übrigen zellen verbunden ist.
ist bestimmt einfach wenn man weiß wie ?!
gruß tom

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZ As Range If Not Intersect(Target, [B6:B155]) Is Nothing Then For Each rngZ In Intersect(Target, [B6:B155]) Cells(rngZ.Row, 2).Resize(, 5).Font.Bold = Not IsEmpty(rngZ.Value) 'fett _ geschrieben Cells(rngZ.Row, 2).Resize(, 5).MergeCells = Not IsEmpty(rngZ.Value) ' ist der Zellenwert zwischen 11 und 161, dann : 'Farbe hellorange : Farbindex 45 = RGB([255], [153], [0]) Cells(rngZ.Row, 2).Resize(, 5).Interior.ColorIndex = _ IIf((rngZ.Value > 11) * (rngZ.Value

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZ As Range If Not Intersect(Target, [B6:B155]) Is Nothing Then For Each rngZ In Intersect(Target, [B6:B155]) Cells(rngZ.Row, 2).Resize(, 5).Font.Bold = Not IsEmpty(rngZ.Value) Cells(rngZ.Row, 2).Resize(, 5).MergeCells = Not IsEmpty(rngZ.Value) Cells(rngZ.Row, 2).Resize(, 5).Interior.ColorIndex = _ IIf(IsEmpty(rngZ.Value), xlNone, 20) Cells(rngZ.Row, 3).Resize(, 4).MergeCells = _ IIf(IsEmpty(rngZ.Value), xlNone, 20) Next End If End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden und zellen formatieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread