Laufzeitfehler 13
05.06.2020 15:02:21
Hendrik
ich habe bei der Ausführung des Makro einen "Laufzeitfehler 13" "Typen unverändert" bekommen und kann mit dem Fehler nicht wirklich was anfangen.
Der Fehler taucht in dieser Zeile auf : If .Cells(iRow, 26) "" Then
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
Dim iRow As Long
Set wks = Tabelle1 'Codename der Tabelle
With wks
For iRow = 1 To .Cells(.Rows.Count, 26).End(xlUp).Row
If Not IsEmpty(.Cells(iRow, 26)) Then
If .Cells(iRow, 26) "" Then
.Cells(iRow, 27).Value = .Cells(iRow, 27).Value
End If
End If
Next iRow
End With
End Sub
Viele Gruße,
Hendrik
Anzeige