Schönen Guten Tag Liebe Forumsfreunde,
ich bin auf ein Problem gestoßen und weiß nun leider selber nicht mehr weiter.
Ich Habe Eine Excel, welche ich als Datenbank verwende, diese Besitzt eine mir Unbekannte Anzahl an Arbeitsblättern.
Die Arbeitsblätter in sich haben einen Ähnlichen Aufbau.
Aufgabe ist es, die Eintragungen Alphabetisch zu Sortieren und Anschließend werden diese mit einer Firmen Internen Nummer Gekennzeichnet.
Nun zu meinem Problem ab dem 2.Worksheet spuckt diese Zeile "ThisWorkbook.Worksheets(Index1).Range(Columns(2), Columns(20)).Sort key1:=Columns(2), Header:=xlGuess" immer einen Objekt oder anwendungsdefinierten Fehler. Unten Findet ihr den Gesamten Code.
Wo steckt mein Fehler ?
Ich danke euch schon Vorab für eure Hilfe.
Sub SortAndNumber()
'Variablen Deklaration
Dim Number As Integer
Dim IntNrMax As Double
Dim Index1 As String
'Startwerte
Number = 0
IntNrMax = 0
'Code
For Each Worksheet In ThisWorkbook.Worksheets
Index1 = Worksheet.Name
If Worksheet.Name > "RAM" Then
Number = WorksheetFunction.CountA(ThisWorkbook.Worksheets(Worksheet.Name).Columns(2)) - 1
Problem --> ThisWorkbook.Worksheets(Index1).Range(Columns(2), Columns(20)).Sort key1:=Columns(2), Header:=xlGuess
For x = 1 To Number
ThisWorkbook.Worksheets(Worksheet.Name).Cells(x + 1, 1).Value = x + IntNrMax
Next
IntNrMax = WorksheetFunction.Max(ThisWorkbook.Worksheets(Worksheet.Name).Columns(1))
End If
Next Worksheet
End Sub