Hey, ich bin relativ neu im Bereich der VBA und bekomme bei einer Programmierung immer den Fehler : "Die Methode Value für das Objekt Range ist fehlgeschlagen. Ich bekomme es leider nicht hin und hoffe ihr könnt mir helfen.

Idee der Vba: Es soll in dem Tabellenblatt "Teilnehmer" geprüft werden ob in der Spalte L ein "K." steht. Falls dies der Fall ist soll in der Unterschriftenliste der Vor und Nachname eingetragen werden. Die For-Schleife soll nur von 1 bis zur Anzahl der Teilenhemer laufen. Die Anzahl holt sich die VBA aus dem Tabellenblatt Auswertung und Anleitung.

der Code:

Public Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
Dim h As Integer
Dim k As Integer

k = Worksheets("Auswertung und Anleitung").Cells(3, 2) ' holt sich die anzahl der teilnehmer aus dem arbeitsblatt Auswertung und Anleitung

h = 2: 'start der zeile in Unterschriftenliste

For i = 2 To k

If Worksheets("Teilnehmer").Cells(i, 12).Value = "K." Then ' guckt anch wer von den teilnehmern ein K. hat

    Worksheets("Unterschriftenliste").Cells(h, 1).Value = Worksheets("Teilnehmer").Cells(i, 6) 'schreibt den namen etc in die Unterschriftenliste
    Worksheets("Unterschriftenliste").Cells(h, 2).Value = Worksheets("Teilnehmer").Cells(i, 7)
       
    h = h + 1: ' erhöht die Zeile um 1
    
End If

Next i


End Sub

Vielen Dank schonmal für eure Hilfe