|
Ich bin seit einer Woceh dabei mir gezwungener weise VBA anzueignen. Ich habe eine riesige Tabelle bekommen die spaltenweise in Stellenbezeichnungen unterteilt ist und welche durch zusammengefügte Zellen oberhalb zu einer Abteilung zusammengefasst wurden (Bsp: von Zelle D3 bis D11 stehen Stellenbezeichnungen, darüber also von C2 bis C11 wurden alle Zellen zusammengefügt zum Bereich X). Ich soll jetzt einen Filter programmieren mit dem man per Userform den gewählten Bereich gefiltert bekommt
Ich bin schon soweit das ich mir die Anfangsspalte der gewählten zusammengefügten Zelle ausgegeben bekomme (Die Ausgaben sind nur für mich um nachzuprüfen ob der algo auch das macht was ich erwarte).
Set rngN = Range("C2:MZ2").Find(a, LookIn:=xlValues, MatchCase:=True)
MsgBox rngN.Address
'a' ist hier ein String der die gewählte Abteilung aus der ComboBox der Userform trägt. Soweit so gut.
Jetz möchte ich mir die letzte Spalte der Zusammengefügten Zelle ausgeben lassen. Das kann ich nicht über die konkreten Spaltenbezeichnungen machen das die Tabelle dynamisch erweiterbar sein soll.
Ich kenne mich halbwegs mit Java aus und habe versucht logisch zu übertragen
Set rngM = rngN + Cells(0, 1)
While IsEmpty(rngM)
Set rngM = rngM + Cells(0, 1)
Wend
MsgBox rngM.Address
Das was ich hier geschrieben habe funktioniert nicht da ich wie gesagt Anfänger bin und mich mit den Konventionen, Syntax etc nicht wirklich gut auskenne. Kann mir da vllt jemand weiterhelfen. Aber wenn dann bitte so einfach wie möglich, ich möchte es ja selber verstehem :)
Danke im vorraus
J.
|