Ich habe im Tabelle1 folgenden Code ( verkürzt)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then
If Cells(Target.Row, 5) = "Müller" Then
Müller.Show
End If
End If
'If Target.Column = 12 Then
'If Cells(Target.Row, 5) = "Müller" Then
'Müller.Show
'End If
'End If
If Target.Column = 10 Then
If Cells(Target.Row, 5) = "Meier" Then
Meier.Show
End If
End If
If Target.Column = 12 Then
If Cells(Target.Row, 5) = "Meier" Then
Meier.Show
End If
End If
End Sub
Diese Tabelle wird nach Datum gefiltert und für jeden Tag
ein neues Tabellenblatt angelegt. Wie kann ich den Code auch in die
neuen Tabellenblätter kopieren?
Ein Ansatz währe super
Gruss Erich