Spalten ausblenden
18.12.2003 13:50:10
Ilona
bräuchte wieder einmal eure Hilfe.
Der Code zum Ausblenden von Spalten funktioniert nur zum Teil. Es wird immer nur eine von den zwei auszublendenden Spalten ausgeblendet. Kann mir einer sagen warum. Funktioniert in beiden Varianten nur so.
If Cells(10, 1) = "" And Cells(10, 2) = "" Then
Range("A10:B10").EntireColumn.Hidden = True
' Worksheets("Import").Columns("A").Hidden = True
' Worksheets("Import").Columns("B").Hidden = True
Cells(4, 5).Value = Cells(4, 1)
Cells(6, 5).Value = Cells(6, 1)
Cells(7, 5).Value = Cells(7, 1)
If Cells(10, 3) = "" And Cells(10, 4) = "" Then
Range("C10:D10").EntireColumn.Hidden = True
' Worksheets("Import").Columns("C").Hidden = True
' Worksheets("Import").Columns("D").Hidden = True
If Cells(10, 5) = "" And Cells(10, 6) = "" Then
Range("E10:F10").EntireColumn.Hidden = True
' Worksheets("Import").Columns("E").Hidden = True
' Worksheets("Import").Columns("F").Hidden = True
End If
End If
End If
Danke für eure Hilfe.
Ilona