wer kann mir helfen?
Ich habe eine Arbeitsmappe erstellt mit einem Eingabeblatt und 12 Monatblättern.
Ich möchte nun Daten aus einem Eingabeblatt (Beispiel: Bereich C13:J13, wobei die Zelle B13 den Monatsnamen enthält) kopieren und dann in das entsprechende Monatsblatt in die nächste leere Zeile eintragen (besser noch nächste leere zelle in Spalte "B")
Follgende Anweisung funktioniert nicht:
Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Dim iRow As Integer
If Intersect(Target, Range("C13:J13")) Is Nothing Then Exit Sub
On Error Resume Next
Set wks = Worksheets(Cells(Target.Row, 2).Value)
If Err > 0 Or wks Is Nothing Then
Err.Clear
Exit Sub
End If
On Error GoTo 0
iRow = wks.Cells(Rows.Count, Target.Column - 2) _
.End(xlUp).Row + 1
wks.Cells(iRow, Target.Column - 2).Value = Target.Value
End Sub
Dieses Macro kann ich nicht an eine Schaltfläche anhängen (wird in der Liste Macro nicht angezeigt),
und wenn ich es über VBA Starte bleibt es in der Zeile: "If Intersect(Target, Range("C13:J13")) Is Nothing Then" hängen.
Wer kann mir sagen wo der Fehler liegt bzw. wer hat ein passendes Macro für mich.
Herzlichen Dank im Vorraus.
Gruß Fritz