ich suche nun schon seit einigen Stunden nach der Ursache der Fehlermeldung im Code:
Sub Find_Peak()
Dim Peak As String
Dim MaxCell, SearchColumn As Range
Dim n, NumberOfColumns As Integer
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle1")
NumberOfColumns = .Range(Cells(21, 23), Cells(21, 23).End(xlToRight)).Columns.Count
For n = 1 To NumberOfColumns
Set SearchColumn = Worksheets("Tabelle1").Range(Cells(22, 22 + n), Cells(22, 22 + n). _
End(xlDown))
Peak = WorksheetFunction.Max(SearchColumn)
MsgBox "Peak = " & Peak
Set MaxCell = SearchColumn.Find(Peak, LookIn:=xlValues, LookAt:=xlWhole)
MaxCell.Select
Next n
End With
End Sub
Der VBA-Code hängt in der Zeile fest, in der ich "MaxCell" selektieren will, weil angeblich diese Zelle nicht vorhanden wäre.Die zugehörige Fehlermeldung lautet "Objekt- oder With-Blockvariable nicht festgelegt."
Ich habe natürlich auch schon probiert, den zu suchenden Wert (Peak)zu Beginn in verschiedenster Form zu deklarieren, was aber nicht zum gewünschten Ergebnis geführt hat.
In der MsgBox wird ja auch der richtige Wert angezeigt.
Das Problem hängt jedoch offensichtlich an den Werten, die in der entsprechenden Tabelle stehen. Wenn es sich nur um gerade Zahlen handelt, funktioniert der Code, nur bei Kommazahlen fängt er an zu streiken.
Ich freue mich über jeden Lösungsansatz!