wie kann ich die Spalten die in Zeile 9 folgende Füllfarbe 6, 39, 46, 48, 51, 52, 53 haben, ausblenden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Sub ausblenden()
Dim i As Integer
For i = 256 To 1 Step -1
Select Case Cells(9, i).Interior.ColorIndex
Case 6, 39, 46, 48, 51, 52, 53
Columns(i).Hidden = True
End Select
Next i
End Sub
Schönen Gruß,
Andi
Option Explicit
Sub Sema()
Dim InI As Integer
For InI = 1 To 256
Select Case Cells(9, InI).Interior.ColorIndex
Case 6, 39, 46, 48, 51, 52, 53
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
End Sub
Sub Test()
ActiveCell.Interior.ColorIndex = 6
End Sub
Sub ausblenden_no_43()
Dim InI As Integer
For InI = 1 To 256
Select Case Cells(9, InI).Interior.ColorIndex
Case 6, 39, 46, 48, 51, 52, 53
Case Else
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
End Sub
Damit werden die Spalten mit der Füllfabe 43 in Zeile 9 ausgeblendet. Es soll anders sein. Nur die Spalte mit der Füllfarbe 43 in Zeile 9 soll eingeblendet bleiben.
LG,
Selma
Sub ausblenden_no_43()
Dim InI As Integer
For InI = 1 To 256
Select Case Cells(9, InI).Interior.ColorIndex
Case 6, 39, 46, 48, 51, 52, 53
Case 43
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
End Sub
geht es auch nicht. Die Spalten mit Füllfarbe 43 werden ausgeblendet ;)
LG,
Selma
Sub ausblenden_no_43()
Dim InI As Integer
For InI = 1 To 256
Select Case Cells(9, InI).Interior.ColorIndex
Case 6, 39, 46, 48, 51, 52, 53
Case 43
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
End Sub
Im Ersten Code wurden die Spalten mit ColorIndex 43 doch nicht ausgeblendet.
Gruß Hajo
Sub ausblenden_no_43()
Dim InI As Integer
For InI = 1 To 256
Select Case Cells(9, InI).Interior.ColorIndex
Case 43
Case else
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
End Sub
Option Explicit
Sub ausblenden_no_43()
Dim InI As Integer
Application.ScreenUpdating = False
For InI = 1 To Columns.Count
Select Case Cells(9, InI).Interior.ColorIndex
Case 43
Case Else
Columns(InI).EntireColumn.Hidden = True
End Select
Next InI
Application.ScreenUpdating = True
End Sub