Zellendefinition und -übernahme

[mnemo2007]

Hallo an alle, die mir helfen können und wollen.

ich habe 20 Zeilen, die in der ersten Spalte eine Eingabe einfordern. das Makro soll erkennen, dass sich nur eine Zelle von 0 unterscheidet (falls nicht 'Fehler') und die jeweils dazugehörigen 3 nächsten Spalten in eine andere Tabelle übernehmen.

kann mir da jemand helfen?

danke schon mal

 

[Zvoni]

Dein Freund ist das Change-Ereignis des Worksheets

Private Sub Worksheet_Change(ByVal Target As Range)
Dim AktuelleZeile As Long

    AktuelleZeile = Target.Row
    
    If Target.Column = 1 Then        'Prüfen ob die Eingabe in der ersten Spalte stattfand
            
            If Target(AktuelleZeile,1) = 0 Then      'Ist die Eingabe = 0?
                
                Worksheets(2).Cells(AktuelleZeile, 2) = target(AktuelleZeile,2)
                Worksheets(2).Cells(AktuelleZeile, 3) = target(AktuelleZeile,3)
                Worksheets(2).Cells(AktuelleZeile, 4) = target(AktuelleZeile,4)

            End If
     
    End If
    
End Sub