Office: 2x Private Sub Worksheet_Change(ByVal Target As Range)

Hallo Zusammen,

ich habe hier zwei funktionierende Markos, die ich gerne in einem Worksheet parallel laufen lassen würde.

Kann mir einer weiterhelfen und sagen wie ich diese zusammenführe?

Besten Dank *Smilie

Nr1.:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
If Not (Application.Intersect(Tabelle1.[B1], Target) Is Nothing) Then
Application.ScreenUpdating = False
Tabelle1.[4:24].EntireRow.Hidden = True
If Target.Value > 0 And Target.Value < 15 Then
Tabelle1.Range(Tabelle1.Cells(4, 1), Tabelle1.Cells(3 + Target.Value, 1)).EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End If
End Sub

Nr2.:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
If Not (Application.Intersect(Tabelle2.[B2], Target) Is Nothing) Then
Application.ScreenUpdating = False
Tabelle2.[F:O,R:AA,AD:AM].EntireColumn.Hidden = True
If Target.Value > 0 Then
Tabelle2.Columns("F:F").Resize(, Target.Value).EntireColumn.Hidden = False
Tabelle2.Columns("R:R").Resize(, Target.Value).EntireColumn.Hidden = False
Tabelle2.Columns("AD:AD").Resize(, Target.Value).EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End If
End Sub

:)

 

Du nimmst einfach den Code beider Prozeduren und fügst ihn gemeinsam in ein Worksheet_Change Ereignis ein. Durch die Ifs kommt das jeweilige zum Tragen.

 

Code:

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hat super funktioniert ! Vielen Vielen Dank

besteht die Möglichkeit, dass wenn sich das Target auf eine Kalkulation bezieht, den Code automatisch durchlaufen zulassen?

Aktuell muss ich bei jeder Änderung, die als Target definierten Zellen manuell aktualisieren

 

change wirkt bur bei Eingabe.
Berechnung sehr afwendig
Private Sub Worksheet_Calculate()