UserForm aus 2 Arbeitsblättern befüllen
19.05.2022 12:19:40
schoell@forum-alpinum.ch
Für eine klinische Studie habe ich gerade eine Eingabemaske (UserForm1) erstellt, welche zwei Arbeitsblätter befüllt. Diese Arbeitsblätter heissen "Patienten" und "Pat_entblindet". Die Eingaben sollen später wieder unter Umständen nochmals bearbeitet werden. Hierzu habe ich die UserForm2, welche im Tabellenblatt "Patienten" die entsprechende Zeile heraussucht:
Private Sub ListBox1_Click()
Dim i As Integer
i = ListBox1.ListIndex + 3
Range("A" & i).EntireRow.Select
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'doppelklicken auf Pat.
UserForm3.Show
Unload UserForm2
End Sub
Nun würde ich gerne die Checkboxes und Textfelder der UserForm3 mit den Daten aus beiden Tabellenblättern befüllen. Und da weiss ich nun nicht mehr weiter. Für das aktuelle Tabellenblatt bekomme ich das gut hin:
Bsp.:
.Name_Vorname.Value = ActiveCell.Value 'Name_Vorname
.DOB.Value = ActiveCell.Offset(0, 1).Value
.Eintritt.Value = ActiveCell.Offset(0, 4).Text 'Eintrittsdatum
.TimeOfEntry.Value = ActiveCell.Offset(0, 5).Text 'Eintrittszeit
.TimeOfSignature.Value = ActiveCell.Offset(0, 73).Text
usw.
Meine Frage lautet: wie bekomme ich die Daten aus dem anderen Tabellenblatt "Pat_entblindet" ebenfalls in die UserForm3? Ich müsste ja jeweils das andere Arbeitsblatt aktivieren, oder? Wie eingangs gesagt: die Zeilennummern beider Blätter sind identisch.
Liebe Grüsse von Ecki