Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Focus auf Zelle belassen bis Eingabe ok..

Focus auf Zelle belassen bis Eingabe ok..
Niko
Hallo zusammen,
ich löse in einer Zelle eine MsgBox aus wenn ein falsches Datum eingegeben wird. Wie kann ich erreichen, dass der Fokus auf dieser Zelle bleibt bis ein korrekter Wert eingegeben wird?
Danke schonmal für Eure Mühe und schönes Wochenende.
Gruß
Niko

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zeig den Code o.T.
30.06.2012 13:51:29
Josef
« Gruß Sepp »

AW: Zeig den Code o.T.
30.06.2012 14:09:38
Niko
Hallo Sepp,
vielen Dank für deine Rückmeldung.
Mein aktueller Code für die MsgBox lautet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Lehrgang").[B14] <> "" And Worksheets("Lehrgang").[B14] > Worksheets("Lehrgang").[D14] Or _
Worksheets("Lehrgang").[D14] <> "" And Worksheets("Lehrgang").[D14] < Worksheets("Lehrgang").[B14] Then
MsgBox "Das eingegebene Datum ist falsch!", vbInformation, "Hinweis..."
Worksheets("Lehrgang").[B14].Select
Exit Sub
End If
Das Problem ist, dass die Meldung einmal beim Eintreten des Fehlers und das zweite Mal beim Selektieren der Zelle für die Korrektur ausgegeben wird.
Gruß
Niko
Anzeige
AW: Zeig den Code o.T.
30.06.2012 14:19:25
Josef

Hallo Niko,
warum denn Selection_Change?

Private Sub Worksheet_Change(ByVal Target As Range)
  
  With Target
    If .Address(0, 0) = "B14" Then
      If .Value <> "" And .Value > Range("D14") Or Range("D14") <> "" And Range("D14") < .Value Then
        MsgBox "Das eingegebene Datum ist falsch!", vbInformation, "Hinweis..."
        .Select
      End If
    End If
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: Zeig den Code o.T.
30.06.2012 15:08:52
Niko
Hallo Sepp,
danke für die Lösung und den Hinweis. Ich habe Worksheet_Change und Worksheet_SelectionChange bisher immer zu wörtlich interpretiert - Wechseln der Tabelle, bzw. Wechseln der Auswahl in einer Tabelle :-(
Wieder was dazu gelernt!
Gruß
Niko

299 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 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
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5