Thema Datum  Von Nutzer Rating
Antwort
30.03.2017 15:05:03 JolliJumper
NotSolved
30.03.2017 15:32:55 Werner
NotSolved
31.03.2017 08:46:32 Gast83201
NotSolved
31.03.2017 09:12:04 Werner
NotSolved
31.03.2017 11:32:26 JolliJumper
NotSolved
31.03.2017 16:15:18 Werner
NotSolved
31.03.2017 19:10:31 JolliJumper
NotSolved
31.03.2017 19:12:02 JolliJumper
NotSolved
01.04.2017 05:46:11 JolliJumper
NotSolved
Blau Datum aus Überschrift in eine andere Spalte eintragen
 01.04.2017 14:18:20 Werner
NotSolved
04.04.2017 08:42:30 Gast63800
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
01.04.2017 14:18:20		 Views:
677		 Rating:
     
Antwort:
  Ja
Thema:
Datum aus Überschrift in eine andere Spalte eintragen

Hallo,

geht es jetzt doch?

Wenn nein, deine Datei kann ich leider erst am Montag herunterladen.

Vorwärts/Rückwärts:

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range

Set Bereich = Sheets("Tabelle1").Range("Q5:OI57")

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False

If Intersect(Target, Bereich) <> "" Then
    Cells(Target.Row, 15) = Cells(3, Target.Column)
ElseIf Intersect(Target, Bereich) = "" Then
    Cells(Target.Row, 15).ClearContents
End If

Application.EnableEvents = True
Set Bereich = Nothing
End Sub


Was mir gerade noch einfällt, weshalb es mit deiner Originaldatei nicht funktioniert.
Könnte u.U. daran liegen, dass der Code mal mit einem Fehler ausgestiegen ist und Application.Enableevents
noch auf Flase steht.

Versuch in deiner Originaldatei mal folgendes:
Leg ein allgemeines Modul an, dort dann als einzige Codezeile Application.Enableevents = True rein und das
dann mal laufen lassen. Dann werden die Events wieder eingeschaltet.

Gruß Werner

 

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
30.03.2017 15:05:03 JolliJumper
NotSolved
30.03.2017 15:32:55 Werner
NotSolved
31.03.2017 08:46:32 Gast83201
NotSolved
31.03.2017 09:12:04 Werner
NotSolved
31.03.2017 11:32:26 JolliJumper
NotSolved
31.03.2017 16:15:18 Werner
NotSolved
31.03.2017 19:10:31 JolliJumper
NotSolved
31.03.2017 19:12:02 JolliJumper
NotSolved
01.04.2017 05:46:11 JolliJumper
NotSolved
Blau Datum aus Überschrift in eine andere Spalte eintragen
 01.04.2017 14:18:20 Werner
NotSolved
04.04.2017 08:42:30 Gast63800
NotSolved