VBA: UF Workbook
16.06.2019 02:31:55
Charly
ich habe ein Problem beim Einlesen.
Mappe(1) mit UF, TextBoxen, "ComboBox (RowSource hinterlegt)" u. Buttons
Mappe(2) Daten
Mappe(3) ist eine Vorlage, alle Inhalte aus den TextBoxen in Zellen Eintragen
Mappe(4) Daten
Mappe(2) u. (4) sind Identisch aufgebaut.
Wenn Ich in Mappe(1) per Button meine UF Öffne u. per ComboBox einen Wert wähle wird daraufhin eine weiter Mappe(2) geöffnet. Der eingegebene Wert wird in Mappe(2) gesucht u. in die UF eingelesen. Daraufhin wird der Inhalt der Textboxen per Button weitergeleitet in Mappe(3) u. durch einen weiteren Button gespeichert.
Soweit so gut...
Mein Problem, Ich möchte so wie Mappe(2) auch Mappe(4) einlesen über den Wert der ComboBox, somit sind dann alle TextBoxen gefühlt u. können an Mappe(3) übertragen werden.
Wie od. was muss Ich am Code ändern um mein Vorhaben umzusetzen.
Hier mein Code:
Private Sub CB_ID_ErPr_Change()
' Button: Übernehmen
' - Suche über Me.CB_ID_ErPr die ID
'>>> RO
Workbooks.Open Filename:="P:\Mappe2.xlsm"
Workbooks("Mappe2.xlsm").Worksheets("RO").Activate
Dim strSuchRO As String, raFundRO As Range, shRO As Worksheet
Set shRO = Worksheets("RO")
strSuchRO = Me.CB_ID_ErPr
With shRO
Set raFundRO = .Columns(3).Find(what:=strSuchRO, LookIn:=xlValues, LookAt:=xlWhole)
If Not raFundRO Is Nothing Then
Me.TB_Aufnahme = raFundRO.Offset(, 9)
Me.TB_Wohnbereich = raFundRO.Offset(, 2)
Me.TB_Zimmer = raFundRO.Offset(, 4)
Me.TB_Bew_Name = raFundRO.Offset(, 6)
Me.TB_Geb_Date = raFundRO.Offset(, 7)
Me.TB_Versichert = raFundRO.Offset(, 11)
Me.TB_PVersichert = raFundRO.Offset(, 12)
Me.TB_HA_Arzt = raFundRO.Offset(, 14)
Me.TB_Rezept = raFundRO.Offset(, 16)
Me.TB_Geä_Date1 = raFundRO.Offset(, 18)
Me.TB_Lieferrand_RO = raFundRO.Offset(, 22)
Me.TB_Lieferdatum_RO = raFundRO.Offset(, 24)
Me.TB_Hersteller_RO = raFundRO.Offset(, 26)
Me.TB_Model_RO = raFundRO.Offset(, 28)
Me.TB_CE_RO = raFundRO.Offset(, 40)
Me.TB_Stre_Inv_RO = raFundRO.Offset(, 30)
Me.TB_SN_RO = raFundRO.Offset(, 32)
Me.TB_Reg_RO = raFundRO.Offset(, 34)
Me.TB_Reha_RO = raFundRO.Offset(, 36)
Me.TB_Baujahr_RO = raFundRO.Offset(, 42)
Me.TB_Geä_Date2_RO = raFundRO.Offset(, 52)
Me.TB_Änderungsgrund_RO = raFundRO.Offset(, 54)
End If
End With
Set raFundRO = Nothing
Exit Sub
'>>> RS
Workbooks.Open Filename:="P:Mappe4.xlsm"
Workbooks("Mappe4.xlsm").Worksheets("RS").Activate
Dim strSuchRS As String, raFundRS As Range, shRS As Worksheet
Set shRS = Worksheets("RS")
strSuchRS = Me.CB_ID_ErPr
With shRS
Set raFundRS = .Columns(3).Find(what:=strSuchRS, LookIn:=xlValues, LookAt:=xlWhole)
If Not raFundRS Is Nothing Then
Me.TB_Lieferrand_RS = raFundRS.Offset(, 22)
Me.TB_Lieferdatum_RS = raFundRS.Offset(, 24)
Me.TB_Hersteller_RS = raFundRS.Offset(, 26)
Me.TB_Model_RS = raFundRS.Offset(, 28)
Me.TB_CE_RS = raFundRS.Offset(, 40)
Me.TB_Stre_Inv_RS = raFundRS.Offset(, 30)
Me.TB_SN_RS = raFundRS.Offset(, 32)
Me.TB_Reg_RS = raFundRS.Offset(, 34)
Me.TB_Reha_RS = raFundRS.Offset(, 36)
Me.TB_Baujahr_RS = raFundRS.Offset(, 42)
Me.TB_Geä_Date2_RS = raFundRS.Offset(, 52)
Me.TB_Änderungsgrund_RS = raFundRS.Offset(, 54)
End If
End With
Set raFundRS = Nothing
Exit Sub
End Sub