kann mir jemand sagen, weshalb folgendes Programm einen Fehler ausgibt?
Private Sub worksheet_Change(ByVal Auswahl As Range)
i = 1
For a = 1 To 10
Cells(1, a).Value = i
Next
End Sub
Vielen Dank!
Private Sub worksheet_Change(ByVal Auswahl As Range)
i = 1
For a = 1 To 10
Cells(1, a).Value = i
Next
End Sub
Private Sub worksheet_Change(ByVal Auswahl As Range)
Dim i As Long, a As Long
Application.EnableEvents = False
i = 1
For a = 1 To 10
Cells(1, a).Value = i
Next
Application.EnableEvents = True
End Sub
Gruß WernerPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.CountLarge = 1 Then
If Target.Column = 1 And Target.Row > 1 Then
Cells(1, 1).Resize(1, 10) = Target.Value
End If
End If
Application.EnableEvents = True
End Sub