none
Maximale spalten VBA MSProject RRS feed

  • Frage

  • Hallo ich komm direkt zu meinem problem in einem makro werden alle spalten durchgegangen und in ein array geschrieben via

     

    For A = 1 To 100
    If test4 = True Then
        zähler1 = zähler1 + 1
        spalte1 = spalte1 + 1
        SelectColumn column:=spalte1
        id = ActiveCell.FieldName
        idlist(zähler1) = id
    End If
    Next A

    So dsa problem ist jetzt allerdings sobald er alle spalten durchhat sagen wir es sidn 10 spalten is die schleife ja noch nicht vorbei da sie bis 100 laufen soll aber bei dem versuch spalte 11 auszuwählen welche ja nicht vorhanden ist gibt es eine fehlermeldung welche sich auch nicht mit einem OnError goto befehl umgehen lässt daher meien frage gibt es vllt eine funktion befehl irgendwas das anstatt der 100 stehen kann die sagt wie viele spalten vorhanden sind ?

    Freitag, 23. Juli 2010 11:30