"Typen unverträglich"
18.12.2003 08:29:02
Hendrik
habe folgendes Problem unter xl XP wird unten aufgeführter code einwandfrei ausgeführt, unter xl 97 kommt die Fehlermeldung : "Laufzeitfehler '13' Typen unverträglich" und die If-Zeile ist bis "then" in VBA gelb unterlegt.
Ich habe aber keine Wahl bezüglich der xl-Version! Gibt es noch jemanden, der weiß warum xl 97 nicht mitspielt?
Sub Spaltenausblenden ()
Dim c As Byte
With Worksheets("Tabelle1")
For c = 1 To 15
If .Cells(3, c) = "" Or .Cells(3, c) = 0 Then .Columns(c).EntireColumn.Hidden = True
Next c
End With
End Sub
Ciao Hendrik