VBA: Application.Match
12.01.2020 15:01:30
Charly
ich weiß nicht weiter.
Laufzeitfehler "13", Typen unverträglich
In der Zeile: n = Application.Match(VBA.CLng(UF4_Tab4_Ändern.CB_Zimmer.Value), sh.Range("A:A"), 0)
Sub Schreiben()
' Schreibe
Dim sh As Worksheet, n As Long
Set sh = ThisWorkbook.Sheets("Bewohner")
n = Application.Match(VBA.CLng(UF4_Tab4_Ändern.CB_Zimmer.Value), sh.Range("A:A"), 0)
sh.Range("B" & n).Value = UF4_Tab4_Ändern.TB_Name.Value
sh.Range("C" & n).Value = UF4_Tab4_Ändern.TB_Vorname.Value
sh.Range("E" & n).Value = UF4_Tab4_Ändern.TB_GebDate.Value
sh.Range("F" & n).Value = UF4_Tab4_Ändern.ChB_Dia_ja.Value
sh.Range("G" & n).Value = UF4_Tab4_Ändern.ChB_Dia_nein.Value
sh.Range("H" & n).Value = UF4_Tab4_Ändern.ChB_Ins_ja.Value
sh.Range("I" & n).Value = UF4_Tab4_Ändern.ChB_Ins_nein.Value
sh.Range("J" & n).Value = UF4_Tab4_Ändern.TB_PEG.Value
Set sh = Nothing
End Sub
Habe in dieser Zeile lediglich die unten stehenden sachen angepast- UF, ComboBox, sh.Range
Suchen od. Schreiben
es müssen zuvor ein Bereich u. eine Zi.-Nummer per Combobox ausgewählt werden.
Die Suche Funktioniert nur das Schreiben z.B. ("WB1" "Zi.-Nr. 0.01") will nicht.
Nutze den Code in andere Mappen um ins Tabellenblatt zu Schreiben, dort Fuhnktioniert er.
Hier eine Bsp.-Mappe
https://www.herber.de/bbs/user/134340.xlsm
Gruß Charly