Hallo ihr,
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