MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.04.2019, 17:06   #16
Der Steuerfuzzi
MOF Profi
MOF Profi
Standard

Das Option Explicit muss ganz oben in das Modul (bei Dir z. B. in das Klassenmodul der Tabelle1) - Siehe Bild.

Ich vermute aber, dass die Sub1 eigentlich in die andere Sub integriert gehört:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If IsEmpty(Target) = False Then _
         Target.Offset(0, 1).Value = Format(Now, "dd.mm.yyyy")
 End If
 If Not Intersect(Target, Range("B:B")) Is Nothing Then
     If IsEmpty(Target) = False Then _
         Target.Offset(0, 1).Value = Format(Now, "hh:mm")
 End If
 If Not Intersect(Target, Range("G:G")) Is Nothing Then
      If IsEmpty(Target) = False Then _
         Target.Offset(0, -1).Value = Format(Now, "hh:mm")
 End If
 If Not Intersect(Target, Range("D2")) Is Nothing Then
      If IsEmpty(Target) = False Then _
         Target.Offset(0, 16).Value = Format(Now, "dd.mm.yyyy")
 End If
 If Not Intersect(Target, Range("D3")) Is Nothing Then
      If IsEmpty(Target) = False Then _
         Target.Offset(0, 16).Value = Format(Now, "hh:mm")
 End If
 If Not Intersect(Target, Range("E20:F125")) Is Nothing Then
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    If Target.Column = 5 Then Target.Offset(, 1) = ""
    If Target.Column = 6 Then Target.Offset(, -1) = ""
End If
 If Not Intersect(Target, Range("E20:K125")) Is Nothing Then
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    If Target.Column = 11 Then Target.Offset(, -5) = ""
    If Target.Column = 6 Then Target.Offset(, 5) = ""
End If
ErrorHandler:  Application.EnableEvents = True
End Sub
Die Sub1 kannst Du dann entsprechend löschen.
Angehängte Grafiken
Dateityp: jpg Unbenannt.jpg (78,0 KB, 4x aufgerufen)

__________________

Gruß
Michael
Der Steuerfuzzi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2019, 06:11   #17
Fabien2004
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke an alle, das haut hin.

Fabien2004
Fabien2004 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:09 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.