|
Benanntes Argument nicht gefunden
Set rngWo = ActiveWorkbook.ActiveSheet.UsedRange.Find(strWasSuchen, xlValues, xlPart)
A21015_IBN_2023_02_14_mba \Programmbausteine\A1 - Allgemein\A1_20_Materialverfolgung_Prüftisch\Bausteinkommentar
Ichhabe den Code ersteinmnal gekürzt um definiert den Text zu suchen.
Bei diesem Code kommt eine Meldung mit "Benanntes Argument nicht gefunden"
Das Blatt indem gesucht werden soll hat den Namen "User Texts" Die Excelliste heisst TIAProjectTexts.xlsx
Sub Versuch1()
'
Dim rngWo As Range
Dim Anfang As Integer
Dim Ende As Integer
Dim strWasSuchen As String
strWasSuchen = "Materialverfolgung"
Set rngWo = ActiveWorkbook.ActiveSheet.UsedRange.Find(What:=strWasSuchen, LookIn:=xlValues, Look:=xlPart)
End Sub
|