|
Hallo,
ich bastel seit zwei Tagen an einem Code, der mir einen Text aus dem Arbeitsblatt suchen soll.
Also ab der Markiereten Zeile gibt es einen Laufzeitfehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht)
Wer kann mir sagen, was an diesem Code nicht richtig ist?
Danke euch
Sub Sortieren()
'
' Sortieren Makro
'
Dim rngWo As Range
Dim Anfang As Integer
Dim Ende As Integer
Dim strWasSuchen As String
strWasSuchen = "Materialverfolgung"
'
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("B:B").Select
ActiveWorkbook.Worksheets("User Texts").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("User Texts").Sort.SortFields.Add Key:=Range("B1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet("User Texts").Sort
.SetRange Range("A1:X16492")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
Set rngWo = ActiveWorkbook.ActiveSheet.UsedRange.Find(strWasSuchen, LookIn:=xlValues, Look:=xlPart)
If Not rngWo Is Nothing Then
MsgBox "Keine übereinstimmende Daten gefunden!"
End If
'If Not rngFind Is Nothing Then
'Debug.Print rngFind.Row
'Debug.Print rngFind.Column
'Anfang = rngFind.Row
'Ende = Anfang + 1000
'Rows(Anfang & ":" & Ende).Select
'End If
End Sub
|