Spalte überprüfen
14.09.2006 11:57:47
Torsten
also kurze Darstellung des Problems und des VBA Programmes.
Ein Programm merkt bei Veränderung sich das Rangeobjekt und stellt damit diverse Sachen an.
In einem Modul soll nun festgestellt werden ob diese Range (eine Zelle groß) entweder aus A,C,E oder aus B,D,F stammt.
Komme da irgendwie nicht weiter, dachte zuerst an Columns aber das hilft mir auch nicht richtig weiter.Kann mir jemandhelfen?
Function Check1(Seite As Integer, Zelle As Range)
Dim a As Integer
Dim Box1 as Variant 'Nur falls es benötigt wird z.B. für ne Schleife(und die nächsten 3 Zeilen
Dim Box2 as Variant
Box1 = Array(A,C,E)
Box2 = Array(B,D,F)
If 'Die Range stammt aus Box1 dann...(hier ist mein Problem)
Check1 = a
Else
Check1 = a + 5
End If
End Function
Anzeige