Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: UF Workbook

VBA: UF Workbook
16.06.2019 02:31:55
Charly
Hallo Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: UF Workbook
16.06.2019 02:40:24
Charly
Fehlerhaft!!! Close...
AW: VBA: UF Workbook
16.06.2019 07:21:28
Hajo_Zi
man muss nicht einen neuen Beitrag anfangen, Veränderungen können auch im alten Beitrag geschrieben werden. Der Beitrag kann als offen markiert werden.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige