zuordnung userform/tabbe über array
22.09.2003 14:14:52
Peter
gegeben sei ein userform sowie eine korrespondierende tabelle.
das userform soll als eingabeformular sowie als ansichtsformular (incl. änderungen + druck) genutzt werden können.
d.h., beim öffnen sollen die werte aus einer ggf. vorhandenen tabelle eingelesen werden, bzw. bei der neuerstellung in eine neue tabelle geschrieben werden.
da das ja eigentlich das gleiche, halt nur genau invers ist, habe ich vor, die zuordnungen der userform-elemente (also z.b. checkboxen, textfelder usw.) zu den korrespondierenden tabellenzellen in ein array zu legen, und dann zwei routinen zu schreiben, eine fürs einlesen, die andere fürs hineinschreiben, welche sich auf dieses zuordungs-array stützen.
nun ist es ziemlich leicht, die range für die zelle in eine string-variable zu packen, allerdings will es mich nicht gelingen, das steuerlement so in die variable zu legen, daß es hinterher als parameter nutzbar wäre.
gedacht habe ich mir das in etwa so:
dim varZtab(2, 10) as variant
varZtab(1,1)=txtTextfeld1
varZtab(1,2)=A1
varZtab(2,1)=txtTextfeld2
varZtab(2,2)=A2
varZtab(3,1)=chkCheckbox1
varZtab(3,2)=B1
varZtab(4,1)=chkCheckbox2
varZtab(4,2)=B2
'lesen/schreiben -> richtig würde ich dann schleifen erstellen
Sub lesen()
'liest tabellendaten in das formular
varZtab(1,1).text= tabelle.range(varZtab(1,2))
varZtab(2,1).text =tabelle.range(varZtab(2,2))
End Sub
Sub schreiben()
'schreibt formulardaten in die tabelle
tabelle.range(varZtab(1,2))=varZtab(1,1).text
tabelle.range(varZtab(2,2))=varZtab(2,1).text
End Sub
leider funktioniert das so nicht. was mache ich falsch?
thx4hlp
peter