Office: Worksheet_Change Befehle nacheinander ausführen

__PK__ · 11. August 2015

Hallo,
ich habe ein Tabellenblatt für ein Turnierprogramm erstellt.
Wenn im Bereich P11 bis P82 ein Wert eingetragen wird soll in R11 bis R82 die Startzeit eines Spieles eingetragen werden.
Wenn im Bereich S11 bis S82 ein Wert eingetragen wird soll in U11 bis U82 die Endzeit eines Spieles eingetragen werden.
Dies klappt auch prima mit:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("p11:p82,s11:s82")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 2).ClearContents
Else:
Target.Offset(0, 2) = CDate(Format(Now, "hh:mm"))
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn im Bereich M11 bis O82 ein Ergebnis eingetragen wird soll automatisch ein Makro starten mit dem Namen TabAktSP
Das klappt auch prima mit:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M11:O82")) Is Nothing Then Exit Sub
Call TabAktSP

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Problem ist das ich keine Ahnung habe wie ich den Code eintragen muss, damit beide Aktionen laufen sollte sich in den Bereichen was ändern. WIe muss ich die beiden Codes "verbinden" damit das geht.
Mit:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("p11:p82,s11:s82")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 2).ClearContents
Else:
Target.Offset(0, 2) = CDate(Format(Now, "hh:mm"))
End If

If Intersect(Target, Range("M11:O82")) Is Nothing Then Exit Sub
Call TabAktSP

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bekomme ich zwar keine Fehlermeldung, aber er trägt mir nur die Start- und Endzeiten ein, das Makro wird nicht gestartet wenn ich ein Ergebnis eintrage.

Ich hoffe ich habe mich verständlich ausgedrückt. Vielen Dank schonmal für Eure Hilfe

:)

Luschi · 12. August 2015

Hallo __PK__,

so klappt das bei mir: Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Bearbeiten mehrerer Zeilen wird abgefangen
If Target.Count > 1 Then Exit Sub

If Not (Intersect(Target, Range("P11:P82, S11:S82")) Is Nothing) Then
'wenn Veränderung in diesem Bereich
If Target.Value = "" Then
Target.Offset(0, 2).ClearContents
Else
Target.Offset(0, 2).Value = CDate(Format(Now, "hh:mm"))
End If
End If

If Not (Intersect(Target, Range("M11:O82")) Is Nothing) Then
Call TabAktSP
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

__PK__ · 12. August 2015

klappt prima

vielen, vielen Dank!

Office: Worksheet_Change Befehle nacheinander ausführen

Worksheet_Change Befehle nacheinander ausführen

Worksheet_Change Befehle nacheinander ausführen

Worksheet_Change Befehle nacheinander ausführen - Similar Threads - Worksheet_Change Befehle nacheinander

Problem mit Private Sub Worksheet_Change

2x Worksheet_Change(ByVal Target As Range)

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

Worksheet_Change über mehrere Tabellenblätter

2x Private Sub Worksheet_Change(ByVal Target As Range)

VBA Autoform einfärben

Worksheet_Change auf bestimmte Zeilen beschränken