Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datumsüberprüfung bei neuem Eintrag

VBA Datumsüberprüfung bei neuem Eintrag
12.12.2016 11:36:22
Matti63
Hallo zusammen,
ich benötige Eure Hilfe bei einem VBA Code.
In einer Tabelle (Tabellenblatt) in der Spalte A ab A5 bis unendlich wird ein Datum eingegeben. VBA soll nun prüfen ob das eingegebene Datum grösser oder kleiner 31 Tage von Heute ist und eine Meldung zB. "Bitte Datumseingabe prüfen" erscheinen falls das eingegebene Datum ausserhalb liegt. Diese Meldung soll nur bei einem neuen Eintrag erscheinen.
Für Eure Hilfe bin ich Euch sehr dankbar.
Liebe Grüsse
Matti

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datumsüberprüfung bei neuem Eintrag
12.12.2016 11:49:51
UweD
Hallo
so?
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        If Target.Row < 5 Then Exit Sub
        If Target.Count <> 1 Then
            Application.EnableEvents = False
            Application.Undo
            MsgBox "Bitte nur eine Zelle bearbeiten"
        Else
            If Target >= Date + 31 Or Target < Date - 31 Then
                MsgBox "Bitte Datumseingabe prüfen"
            End If
        End If
    End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Anzeige
AW: VBA Datumsüberprüfung bei neuem Eintrag
12.12.2016 14:45:19
Matti63
Hallo Uwe
Besten Dank für Deine Hilfe. Soweit ich das testen konnte ist es das was ich wollte. Ich hatte unter 
Private Sub Worksheet_Change(ByVal Target As Range)

Bereits einen Code drin, der verhindern sollte dass eine Zeile (gesamt) gelöscht wird.
Dein Teilcode 

If Target.Count  1 Then
Application.EnableEvents = False
Application.Undo
MsgBox "Bitte nur eine Zelle bearbeiten"

macht aber eigentlich das was ich mit diesem Code gemacht habe:
Private Sub Worksheet_Change(ByVal Target As Range)
Static Zeilen As Long
If Me.UsedRange.Rows.Count

Ich habe vergessen zu erwähnen, dass die Tabelle mit Tabellentool erstellt ist. Somit wird die Tabelle nur erweitert wenn im A ein Datum eingegeben wird. Somit könnte man Deinen Teilcode so umwandeln, wenn der User versucht eine Zeile zu löschen dies nicht möglich ist.
Was bedeutet den jetzt genau Dein Teilcode?
Wie ich das sehe, falls der User mehrere Zellen auswählt und versucht etwas zu ändern kommt die _ Meldung 

MsgBox "Bitte nur eine Zelle bearbeiten"

Ist das in etwa richtig?
Wie kann ich jetzt mein Code in Deinen Code reinbringen, dass verhindert wird, dass keine Zeile gelöscht wird?
Liebe Grüsse
Matti
Anzeige

310 Forumthreads zu ähnlichen Themen

Automatische Werte befüllen wenn bestimmtes Datum
Heiderer

Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
03.09.2008 13:43:00
Thread-ID: 1007096
30 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Aufgabe an Outlook wenn Datum gleich heute
Lucia

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...
26.11.2008 16:00:07
Thread-ID: 1028078
3 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
aktuelles Datum anzeigen
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte gern, dass mir Excel das aktuelle Datum in einer Zelle anzeigt. Weiss leider nicht wie das geht.
Vielleicht kann mir zusätzlich noch jemand sagen, wie man das mit einer Formel verknüpft wenn ich die Datumzelle mit der Bezeichnung "heut" in eine Fo...
09.12.2008 08:53:21
Thread-ID: 1031245
3 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
29
5
6
11
2
1
2
12
2
4
3
3
1
8
2
3
2
8
7
4
2
3
3
5
1