Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 414
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Peter3011 vom 18.05.2017, 18:45 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Datum bei veränderten Zellwerten per Makro eintragen

 (210 Hits)

Hallo, liebe Experten,

ich knabber mir schon wieder bei einer neuen Idee die Fingernägel ab ;). Und zwar möchte ich, dass wenn ich in einer Zeile irgendein Wert in den Spalten ändere, dann in eine bestimmte Spalte (aber gleiche Zeile) das heutige Datum eingetragen wird. Hier mal ein Bsp. zur Veranschaulichung:

In dem Zellbereich A10:M10 und O10:P10 habe ich verschiedene Werte stehen. Nun ändere ich bspw. den Wert in Zelle C10 woraufhin sich in Zelle N10 das auf den heutigen Tag automatisch updaten soll.

Hättet Ihr hier vielleicht eine Idee? ich bin ehrlich gesagt nicht so fit mit Makros bei solchen Aktionen.

Vielen lieben Dank.

Gruss

Peter


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Nighty__ vom 18.05.2017, 20:25 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter .-)

Wie gewünscht!

Gruss Nighty

Einzufügen
Alt+F11/Projectexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Application.Intersect(Range("A10:M10"), Range("O10:P10")) Is Nothing Then Range("N10") = Date
    Application.EnableEvents = True
End Sub


Antwort noch nicht bewertet
Antwort 2 von Peter3011 vom 19.05.2017, 19:47 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Nighty,

es funktioniert fast perfekt. Ich habe mir nur eine kleine Änderung erlaubt und noch ein kleines Problemchen.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Application.Intersect(Range("A2:M5000"), Range("O2:P5000")) Is Nothing Then Range("N" & Activecell.row) = Date
Application.EnableEvents = True
End Sub

Wenn ich z. B. in Spalte N10 das Datum manuell eintrage und anschließend Enter drücke, wird das Datum in Zelle N11 auf den heutigen Tag aktualisiert. Das will ich aber nicht.

Wenn ich zudem nach links oder rechts nach der Eingabe in N10 drücke, springt das Makro wieder an und in N10 steht wieder das heutige Datum.

Hättest Du hier vielleicht noch eine Idee?

Vielen Dank und noch ein schönes Wochenende.

Gruss

Peter Sachse


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 3 von Nighty__ vom 19.05.2017, 20:54 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter .-)

Probier mal

Gruss Nighty

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 If Target.Column < 14 Or Target.Column > 14 And Target.Column < 17 Then Range("N" & Target.Row) = Date
 Application.EnableEvents = True
End Sub


Antwort noch nicht bewertet
Antwort 4 von Nighty__ vom 19.05.2017, 21:12 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Peter .-)

Oder so!
Überschrift berücksichtigt!

Gruss Nighty

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column < 14 Or Target.Column > 14 And Target.Column < 17 Then
        If Target.Row > 1 Then Range("N" & Target.Row) = Date
    End If
    Application.EnableEvents = True
End Sub


Antwort noch nicht bewertet
Diese Antwort hat das Problem gelöst!
Antwort 5 von Peter3011 vom 20.05.2017, 09:33 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Nighty,

funktioniert super.

Vielen Dank.

Gruss

Peter


Antwort noch nicht bewertet Als gute Antwort bewerten




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Aug 17 11:14:39 2017