Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1596to1600
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
Inhaltsverzeichnis

Eintrag in Zelle prüfen mit Fehlermeldung

Eintrag in Zelle prüfen mit Fehlermeldung
28.12.2017 12:05:40
Micha
Hallo,
ich habe folgenden Code um die Zelle C2 auf Änderung zu überwachen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
Call Kalenderdownload
End If
End Sub

Jetzt möchte ich aber zusätzlich kontrollieren, ob der eingegebene Wert in Zelle C2 zwischen 2010 und 2099 liegt (nur diese Werte sind erlaubt, kein Text usw.). Wenn nicht Wert wieder löschen und MsgBox mit Meldung des möglichen Eingabebereiches bringen.
Hoffe auf eure Hilfe.
Vielen Dank.
Micha

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag in Zelle prüfen mit Fehlermeldung
28.12.2017 12:10:37
Hajo_Zi
Hallo Micha,
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C2")>2010 and Range("C2")
Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Eintrag in Zelle prüfen mit Fehlermeldung
28.12.2017 12:11:00
Matthias
Hallo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing And Target.Count = 1 Then
If Target > 2010 And Target 
Gruß Matthias
AW: Eintrag in Zelle prüfen mit Fehlermeldung
28.12.2017 12:19:18
Micha
Vielen Dank,
funktioniert super.
Kann man noch zusätzlich prüfen, ob der eingegebene Wert Bestandteil des Dateinamens ist?
Gruß
Micha
wo steht die Zahl im DateiNamen?
28.12.2017 12:24:45
Matthias
Hallo,
wo steht die Zahl im DateiNamen?
Lies bitte auch meine Korrektur
Gruß Matthias
AW: wo steht die Zahl im DateiNamen?
28.12.2017 12:37:43
Micha
Hallo Matthias,
Dateiname: Abrechnung Doreen 2018.xlsm
Gruß
Micha
AW: wo steht die Zahl im DateiNamen?
28.12.2017 13:09:48
Matthias
Hallo
mal ausgehend davon, das es eine *xlsm - Datei ist.
Dim Jahr$
Jahr = Right(Application.WorksheetFunction.Substitute(ThisWorkbook.Name, ".xlsm", ""), 4)
If Target = Jahr Then MsgBox "4-stellige JahresZahl ist rechts im Dateinamen vorhanden"
sonst mußt Du den zu wechselnden String (.xlsm) anpassen.
Gruß Matthias
Anzeige
AW: wo steht die Zahl im DateiNamen?
28.12.2017 13:53:28
Micha
Vielen Dank Matthias,
funktioniert tadellos.
Gruß
Micha
Korrektur ... wg. Eintrag wieder löschen
28.12.2017 12:15:29
Matthias
Hallo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing And Target.Count = 1 Then
If Len(Target) = 0 Then Exit Sub
If Target > 2010 And Target 
Gruß Matthias
OT: nur Name-Korrektur ... owT
28.12.2017 12:18:12
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige