ich habe 2 Makros, bzw. 3!
Mein Problem ist, ich muss beide in ein Blatt hinterlegen, aber wenn ich dies mache, funktioniert eben immer nur 1, da ich in jedem Makro mit dem Begriff "Target" arbeite!
Kann mir vielleicht jemand helfen, mir die beiden Makros zusammenzuschreiben!?
Danke!
Chris
MAKRO I:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("E5:E30")) Is Nothing Then Exit Sub
If Target.HasFormula = False Then Target.Interior.ColorIndex = 15
If Target.HasFormula = True Then Target.Interior.ColorIndex = 0
MAKRO II:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 And Target.Row > 11 Then
Application.EnableEvents = False
If Target.Value <> "" Then
Rows(Target.Row + 1).Insert
Else
Rows(Target.Row).Delete
End If
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count > 1 Then
MsgBox "Mehfachauswahl ist nicht gestattet.", 48, "Hinweis"
Cells(Target.Row, Target.Column).Select
End If
End Sub