User Forms
05.01.2004 13:05:10
Jennifer
Ich habe ein für mich unlösbares Problem.
Ich habe eine UserForm erstellt, in die man Daten eingeben und diese mittels Button in ein Tabellenblatt übertragen kann. Die UserForm wird beim Clicken auf eine Zelle aktiviert (A1). Die Daten in der UserForm habe ich genaue Zellen zugewiesen (damit meine ich, der Wert der Textbox wird in eine genannte Zelle übertragen).
Zur Orientierung hier der Code für das Übertragen in das Tabellenblatt und für das Übertragen von dem Tabellenblatt in die UserForm beim Öffnen dieser:
Sub UserForm_Initialize()
Nachname = ActiveSheet.Range("B10")
Vorname = ActiveSheet.Range("E10")
Firma = ActiveSheet.Range("G10")
End Sub
Sub Datenübertragen_click()
ActiveSheet.Range("B10") = Nachname.Value
ActiveSheet.Range("E10") = Vorname.Value
ActiveSheet.Range("G10") = Firma.Value
End Sub
Nun aber zu meinem Problem:
Ich habe nicht nur eine Zeile in der die Daten eingegeben werden, sondern in etwa 100, sowie 12 Tabellenblätter. D.h. im Prinzip müsste ich für jede Zeile eine eigene Userform, erstellen. Das beim Click auf Zelle A1 UserForm1 geöffnet wird, beim Click auf Zelle A2 UserForm2 usw. Dafür müsste ich dann ja knapp 1200 Userforms mit immer neuen Verweisen auf die Zeilen erstellen. Geht das auch anders? Ich bin für jede Idee wirklich sehr dankbar!!!!!!!
MfG
Jennifer