Thema Datum  Von Nutzer Rating
Antwort
03.12.2021 14:03:07 Jakob
*****
Solved
03.12.2021 16:08:24 volti
*****
Solved
03.12.2021 19:18:14 Jakob Luft
NotSolved
04.12.2021 00:18:22 volti
NotSolved
05.12.2021 08:29:29 Jakob
NotSolved
05.12.2021 09:21:15 Jakob
NotSolved
Rot Code Ausführung, wenn Change Ereignis eintritt
05.12.2021 10:30:13 volti
NotSolved
05.12.2021 11:39:59 Gast293
NotSolved
05.12.2021 12:14:00 volti
Solved
06.12.2021 20:23:07 Jakob
NotSolved
06.12.2021 22:10:25 volti
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
05.12.2021 10:30:13
Views:
676
Rating: Antwort:
  Ja
Thema:
Code Ausführung, wenn Change Ereignis eintritt

Hallo Jakob,

(fast) alles ist möglich.

Aber leider habe ich Dein Anliegen nicht richtig verstanden (mit Paketen und so). Da fehlt dann wohl doch eine Beispieldatei mit Muster.

Hier einfach mal eine weitere Anregung ins Blaue. Vielleicht hilft es ja...

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Worksheet_Change(ByVal Target As Range)

  With Tabelle2

      If InStr("A1,B1,C1,", Target.Address(00) & ",") > 0 Then
' Mach was
         With .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
             .Offset(00).Value = Date
             .Offset(01).Value = "'" & Target.FormulaLocal
             .Offset(02).Value = Time
         End With

      ElseIf InStr("A3,B3,C3,", Target.Address(00) & ",") > 0 Then
' Mach was anderes
         With .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
             .Offset(00).Value = Target.Value
             .Offset(01).Value = Date
             .Offset(02).Value = Time
         End With
      End If

  End With
End Sub
_________
viele Grüße
Karl-Heinz

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
03.12.2021 14:03:07 Jakob
*****
Solved
03.12.2021 16:08:24 volti
*****
Solved
03.12.2021 19:18:14 Jakob Luft
NotSolved
04.12.2021 00:18:22 volti
NotSolved
05.12.2021 08:29:29 Jakob
NotSolved
05.12.2021 09:21:15 Jakob
NotSolved
Rot Code Ausführung, wenn Change Ereignis eintritt
05.12.2021 10:30:13 volti
NotSolved
05.12.2021 11:39:59 Gast293
NotSolved
05.12.2021 12:14:00 volti
Solved
06.12.2021 20:23:07 Jakob
NotSolved
06.12.2021 22:10:25 volti
NotSolved