Len(Text) Problematisch?
24.06.2021 12:31:44
Seb
ich möchte die Inhalte zweier Zellen miteinander vergleichen, allerdings sollen bei einer der Zellen die ersten 12 Zeichen (jeweils ein Datum) vernachlässigt werden. Der gesamte Code sieht so aus, relevant sind glaube ich nur die Zeilen 25 ff., vorher läuft's. Den Fehler bekomme ich bei s = Right(Text, Len(Text) - 12): "ungültiger Prozeduraufruf oder ungültiges Argument". Kann jemand von euch auf Anhieb erkennen, was in der Zeile nicht stimmt oder wo das Problem liegt? Die Mappe enthält sensible Daten, daher wenn möglich erst mal ohne.
Sub Historie()
Dim Name As String
Dim Bereich As String
Dim Text As String
Dim s As String
Name = "='Projektplan MS'!$A"
Bereich = "='Projektplan MS'!$B"
i = 5 'Beginnzeile in Historie
x = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Projektplan
For n = 9 To x Step 4 'Beginnzeile in Projektplan
y = Sheets(2).Cells(i, Columns.Count).End(xlToLeft).Column 'letzte Spalte in Historie
Sheets(2).Cells(i, 1).Value = Name & n
Sheets(2).Cells(i, 2).Value = Bereich & n
If IsEmpty(Sheets(1).Cells(n, 5)) = False Then
Text = Sheets(2).Cells(i, y).Value2
s = Right(Text, Len(Text) - 12)
Cells(2, 5).Value = s
If Sheets(1).Cells(n, 5).Value2 Sheets(2).Cells(2, 5).Value2 Then
Sheets(2).Cells(i, y + 1).Value = Date & vbCrLf & Sheets(1).Cells(n, 5).Value
Sheets(2).Cells(i, 3).EntireRow.AutoFit
i = i + 1
End If
End If
Next n
'On Error GoTo ErrorHandle
Cells(2, 5).Delete
'ErrorHandle:
'MsgBox Err.Description
'Exit Sub
End Sub
Vielen, vielen Dank im Voraus!