Thema Datum  Von Nutzer Rating
Antwort
Rot Wie kann ich 2 worksheet_Change zusammen fuehgen
 26.02.2016 16:53:50 Kai Rohleder
NotSolved
26.02.2016 17:06:28 Crazy Tom
NotSolved
26.02.2016 17:15:58 Kai Rohleder
NotSolved

Ansicht des Beitrags:
Von:
Kai Rohleder		 Datum:
26.02.2016 16:53:50		 Views:
1180		 Rating:
     
Antwort:
  Ja
Thema:
Wie kann ich 2 worksheet_Change zusammen fuehgen

Hallo, 

 

ich habe eine frage, ich wuerde gerne die beiden Worksheet_Change zusammen fuegen, da man ja keine 2 in einem Worksheet einbauen kann.

Der erste ist dafuer da eine schaltflaeche sichtbar zu machen und der zweite schreibt mir das Datum und die Uhrzeit in einer Zelle. Da ich dieses nicht mit Heute() oder Jetzt() machen kann.

 

Private Sub CommandButton1_Click()
MsgBox "Richtig"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)



If Not Intersect(Target, Me.Range("C2")) Is Nothing Then
If LCase(Me.Range("C2").Value) = "a" Then


ActiveSheet.Shapes("Schaltfläche 4").Visible = True
MsgBox "Ich seh Dich!"
Else

ActiveSheet.Shapes("Schaltfläche 4").Visible = False

End If
End If

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:A13")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 4).ClearContents
        Else:
        Target.Offset(0, 4) = CDate(Format(Now()))
End If

End Sub


LG

Kai

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wie kann ich 2 worksheet_Change zusammen fuehgen
 26.02.2016 16:53:50 Kai Rohleder
NotSolved
26.02.2016 17:06:28 Crazy Tom
NotSolved
26.02.2016 17:15:58 Kai Rohleder
NotSolved