wenn Wert >0 Datum kopieren

Forumthread: wenn Wert >0 Datum kopieren

08.01.2009 08:17:44

adi

Hallo Excelfreunde,
kann mir geholfen werden?
In der Tabelle_A Spalte D5:D32 werden
Beleg-Nr eingetragen.
Nun möchte ich, wenn irgendeine Beleg-Nr
eingetragen wird, dass link davon also in Spalte C
das aktuelle Datum eingetragen wird, aber nicht
durch eine Formel sondern durch einen Code.
Denn manchmal wird das Datum geändert.
Gruß Adi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wenn Wert >0 Datum kopieren

08.01.2009 08:25:20

Josef
Korrektur

08.01.2009 08:27:05

Josef
AW: wenn Wert >0 Datum kopieren

08.01.2009 08:27:29

Matthias
AW: wenn Wert >0 Datum kopieren

08.01.2009 09:08:00

adi

AW: wenn Wert >0 Datum kopieren

08.01.2009 08:25:20

Josef

Hallo Adi,
kopiere diesen Code in das Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Application.EnableEvents = False
    With Target
        If Not Intersect(Target, Range("D5:D32")) Is Nothing Then
            For Each rng In Target
                If rng <> 0 Then rng.Offset(0, -1) = Date
            Next
        End If
    End With
    Application.EnableEvents = True
End Sub

Gruß Sepp

Korrektur

08.01.2009 08:27:05

Josef

Hallo nochmal,
der "With-Rahmen" ist natürlich überflüßig.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Application.EnableEvents = False
    If Not Intersect(Target, Range("D5:D32")) Is Nothing Then
        For Each rng In Target
            If rng <> 0 Then rng.Offset(0, -1) = Date
        Next
    End If
    Application.EnableEvents = True
End Sub

Gruß Sepp

AW: wenn Wert >0 Datum kopieren

08.01.2009 08:27:29

Matthias

Hallo
in die Tabelle


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5:D32")) Is Nothing And Target.Count = 1 Then
If Target > 0 And IsNumeric(Target) Then Target.Offset(, -1) = Date
End If
End Sub

Gruß Matthias

AW: wenn Wert >0 Datum kopieren

08.01.2009 09:08:00

adi

Hallo ich bin begeistert,
daß man am frühen morgen schon so schnell geholfen
wird, und das tollste, es funktioniert.
Vielen Dank an alle Excelfreunde
Gruß Adi

Beliebteste Forumthreads (12 Monate)

Forumthread: wenn Wert >0 Datum kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread