wenn mein Code ausgeführt wird sagt er mir E + "Zeile" enthält keinen gültigen Blattnamen aber wieso?
Verstehe ich nicht!
Hat jemand ´ne Ahnung wie das kommt?
Gruß
Andre
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ii As Integer
For ii = 4 To 33 ' Zeilen 4 bis 8
If Not Intersect(Cells(ii, 4), Target) Is Nothing Then ' Spalte 2 = B
If BlattNam_Pruefung(Cells(ii, 4)) Then
Sheets(ii + 1).Name = Cells(ii, 4) ' Blätter 5 bis 9
Else
'MsgBox "E" & ii & " enthält keinen gültigen Blattnamen: " & vbLf & Cells(ii, 4)
End If
End If
Next ii
End Sub