Thema Datum  Von Nutzer Rating
Antwort
Rot Nach bestimmtem Eintrag in Zelle Datum schreiben / 2 unabhängige Zellen
23.07.2021 14:44:03 Jimmy
Solved
23.07.2021 14:46:35 Gast76401
Solved
23.07.2021 21:37:50 Werner
Solved
26.07.2021 09:20:58 Jimmy
Solved

Ansicht des Beitrags:
Von:
Jimmy
Datum:
23.07.2021 14:44:03
Views:
133
Rating: Antwort:
 Nein
Thema:
Nach bestimmtem Eintrag in Zelle Datum schreiben / 2 unabhängige Zellen

Hallo Zusammen 

Ich bin VBA Neuling und nooch am lernen und habe folgendes Problem.

Ausgangslage:

In einer Tabelle möchte ich, wenn ich in der aktiven Zelle der Spalte 8 einen bestimmten Wert ("erledigt") eingebe, dass in der darauffolgenden Spalte Spalte 9 das heutige Datum eingetragen wird.

Das Ganze habe ich mir anhand eines bestehenden Codes auch so programmiert:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 8 Then
        For Each Target In Intersect(Target, Columns(8))
            If Target <> "" Then
                Application.EnableEvents = False
                If Target = "erledigt" Then Target.Offset(0, 1) = Date
                Application.EnableEvents = True
            End If
        Next Target
    End If
End Sub

So weit so gut....

Problemstellung:

Nun möchte ich Zusätzlich aber unabhängig von Spalte 8 den Code so erweitern, dass auch wenn in Spalte 2 ein bestimmter Wert (hier gleich mehrere gewünschte Werte: "Wert1" "Wert2" "Wert3") eingetragen wird, dass Datum in der Spalte 4 eingetragen wird.

Ich habe den Code bereits auf verschiedenste Arten und Weise versucht zu kopieren oder mehrere Befehle als Target einzufügen und bekomme es einfach nicht hin. Dazu fehlt mir leider "noch" das Wissen.

Der Einfachheit halber nochmals zusammengefasst:

Spalte 8 eingetragener Wert "erledigt" = Spalte 9 heutiges Datum

unabhängig von Spalte 8 

Spalte 2 eingetragener Wert "Wert1" oder "Wert2" oder "Wert3"

Den obenstehenden Code habe ich nicht als Modul eingefügt sonder in Tabelle 1 VBA integriert.

Ich danke euch für eure Hilfe!

Liebe Grüsse

Jimmy


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 Nach bestimmtem Eintrag in Zelle Datum schreiben / 2 unabhängige Zellen
23.07.2021 14:44:03 Jimmy
Solved
23.07.2021 14:46:35 Gast76401
Solved
23.07.2021 21:37:50 Werner
Solved
26.07.2021 09:20:58 Jimmy
Solved