raFund.Offcet / ClearContents
25.06.2019 10:30:54
Charly
bitte um Hilfe, bei einem Löschvorgang.
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
Ablauf:
Ich Öffne Mappe(1) per Button rufe Ich die UF, per ComboBox wähle Ich dann
einen Wert daraufhin Öffnet sich eine weiter Mappe(2).
Der gewählte Wert wird in Mappe(2) gesucht u. in die UF/TextBoxen eingelesen.
Per Button wird der Inhalt der TextBoxen an Mappe(3) weitergeleitet u. gespeichert.
Soweit so gut...
Mein Problem:
Ich möchte nach dem Speichern, alle Werte die per raFund.Offcet gefunden wurden in Mappe(2) löschen (Inhalt der Zellen).
Es sollen später wieder neue Werte übernommen werden.
Anmerkung:
Der Untenstehende Code wird per Call Modul1.InhaltIDLöschen aufgerufen.
Wie od. was muss Ich am Code ändern um mein Vorhaben umzusetzen sofern dies möglich ist.
Danke für jede Hilfe, im Vorraus.
Gruß Charly
Hier mein Code:
Public Sub InhaltIDLöschen()
Dim strSuchRO As String, raFundRO As Range, shRO As Worksheet
Dim passwort As String
passwort = "0000"
Workbooks("Mappe(1).xlsm").Worksheets("RO").Activate
Set shRO = Worksheets("RO")
strSuchRO = UF4_Austragen.CB_ID_ErPr
ActiveSheet.Unprotect (passwort)
With shRO
Set raFundRO = .Columns(3).Find(what:=strSuchRO, LookIn:=xlValues, lookat:=xlWhole)
If Not raFundRO Is Nothing Then
UF4_Austragen.TB_Aufnahme = raFundRO.Offset(, 9).ClearContents
UF4_Austragen.TB_Wohnbereich = raFundRO.Offset(, 2).ClearContents
UF4_Austragen.TB_Zimmer = raFundRO.Offset(, 4).ClearContents
UF4_Austragen.TB_Bew_Name = raFundRO.Offset(, 6).ClearContents
UF4_Austragen.TB_Geb_Date = raFundRO.Offset(, 7).ClearContents
UF4_Austragen.TB_Versichert = raFundRO.Offset(, 11).ClearContents
UF4_Austragen.TB_PVersichert = raFundRO.Offset(, 12).ClearContents
UF4_Austragen.TB_HA_Arzt = raFundRO.Offset(, 14).ClearContents
UF4_Austragen.TB_Rezept = raFundRO.Offset(, 16).ClearContents
UF4_Austragen.TB_Geä_Date1 = raFundRO.Offset(, 18).ClearContents
UF4_Austragen.TB_Lieferant_RO = raFundRO.Offset(, 22).ClearContents
UF4_Austragen.TB_Lieferdatum_RO = raFundRO.Offset(, 24).ClearContents
UF4_Austragen.TB_Hersteller_RO = raFundRO.Offset(, 26).ClearContents
UF4_Austragen.TB_Model_RO = raFundRO.Offset(, 28).ClearContents
UF4_Austragen.TB_CE_RO = raFundRO.Offset(, 40).ClearContents
UF4_Austragen.TB_Stre_Inv_RO = raFundRO.Offset(, 30).ClearContents
UF4_Austragen.TB_SN_RO = raFundRO.Offset(, 32).ClearContents
UF4_Austragen.TB_Reg_RO = raFundRO.Offset(, 34).ClearContents
UF4_Austragen.TB_Reha_RO = raFundRO.Offset(, 36).ClearContents
UF4_Austragen.TB_Baujahr_RO = raFundRO.Offset(, 42).ClearContents
UF4_Austragen.TB_Geä_Date2_RO = raFundRO.Offset(, 52).ClearContents
UF4_Austragen.TB_Änderungsgrund_RO = raFundRO.Offset(, 54).ClearContents
End If
End With
Set raFundRO = Nothing
ActiveSheet.Protect (passwort)
ThisWorkbook.Activate
End Sub