hab in zeile 8 nen fixen wert und ca 200 spalten..
wenn wert = 0, dann spalte deleten..
schleifen über zeilen kein prob, aber wie bei spalten ?
get char + 1 ? für buchstabenerhöhung?
danke
Sub tt()
Dim Spa As Integer
For Spa = Cells(8, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Cells(8, Spa) = 0 Then Columns(Spa).Delete
Next Spa
End Sub
Gruß
Reinhard