Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
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
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausführen bis Wert erreicht

Ausführen bis Wert erreicht
markus
Hallo zusammen,
ich habe ein Makro, welches mit dem die Falscheingabe verhindert wird.
Da die Anwendung im Netzwerk läuft, sind nicht alle Rechner gleich schnell und so kann es vorkommen,
das 2 Werte falsch eingegeben werden und sich die Anwendung festrennt.
Wie kann ich Application.Undo solange auführen bis L508 = 0 ist?
If [L508] (größer) 0 Then
MsgBox " Achtung!" & Chr(13) & Chr(13) & " Falsche Eingabe. " _
& Chr(13) & Chr(13) & " Der bzw. die Werte werden zurückgesetzt!"
Application.Undo
End If
Danke und Gruß Markus

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

Betreff
Benutzer
Anzeige
AW: Ausführen bis Wert erreicht
19.08.2010 11:58:44
JogyB
Hallo Markus,
so wie ich es sehe (lasse mich aber gerne korrigieren), macht Undo immer die letzte Aktionen rückgängig. Bei mehrfacher Ausführung macht es damit immer sich selbst rückgängig.
Aber auch wenn es funktionieren würde, so wäre es dennoch sinnvoller, die Falscheingabe der Werte abzufangen und nicht erst hinterher Schadensbegrenzung zu betreiben.
Gruß, Jogy
AW: Ausführen bis Wert erreicht
19.08.2010 12:03:47
markus
Hallo Jogy,
und wie kann das gehen?
Gruß Markus
AW: Ausführen bis Wert erreicht
19.08.2010 12:08:29
markus
Habe den Haken bei: Frage noch offen vergessen.
AW: Ausführen bis Wert erreicht
19.08.2010 12:42:50
JogyB
Hallo Markus,
woher soll ich das wissen ohne Deine Code zu kennen?
Gruß, Jogy
AW: Ausführen bis Wert erreicht
19.08.2010 13:31:50
markus
Hallo Jogy,
das ist der Code aus "Die Arbeitsmappe":
Die Fehler lasse ich vorher über Formeln auswerten und Das Ergebnis steht dann in L508.
Der Code gilt für alle Arbeitsblätter.
Es muß so sein, das sobald L508>0 ist der Wert nicht angenommen wird.
Da L508 über eine Formel errechnet wird, kommt es je nach Dateigröße zu verzögerungen und damit funktioniert mein Code nur bedingt.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If [L508] > 0 Then
MsgBox " Achtung!" & Chr(13) & Chr(13) & " Falsche Eingabe. " _
& Chr(13) & Chr(13) & " Der Wert wird zurückgesetzt!"
Application.Undo
End If
End Sub

Anzeige
AW: Ausführen bis Wert erreicht
19.08.2010 13:40:39
JogyB
Hallo Markus,
wieso machtst Du das nicht über eine Datengültigkeit?
Gruß, Jogy
AW: Ausführen bis Wert erreicht
19.08.2010 21:14:45
markus
Hallo Jogy,
das ist für eine Arbeitszeiterfassung, wo jeder Mitarbeiter ein eigenes Blatt hat.
das sind schwierige Zusammenhänge, ich lasse z.B. die max. zul. Urlaubstage errechnen usw. ist darin ein Fehler, wird das in Zelle L508 angezeigt.
Ich lasse mich gern belehren, wenn es so einfacher geht.
Hast du da ein Beispiel?
Danke und Gruß Markus
AW: Ausführen bis Wert erreicht
20.08.2010 07:25:54
JogyB
Hallo Markus,
eine Beispieldatei wäre da vorteilhaft, sonst zeige ich jetzt was, was nachher gar nicht geht. Prinzipiell wäre es entweder eine Gültigkeit oder ein Makro, das direkt bei der Eingabe prüft.
Was besser ist, ist ohne Kenntnis der Datenstruktur schwer zu beurteilen.
Gruß, Jogy
Anzeige
AW: Ausführen bis Wert erreicht
23.08.2010 09:40:00
markus
Hallo Jogy,
wollte dir mal meine Datei schicken, diese ist leider zu groß, hast du evtl. eine E-Mail
auf die ich sie dir schicken kann?
Hänge mal nur das betreffende Blatt mit den Formeln zur Prüfunga an
evtl. kannst du damit schon etwas anfangen.
Die roten Zellen sind mit Formeln versehen, rechts die Prüfungen.
https://www.herber.de/bbs/user/71193.xls
Danke und Gruß Markus

309 Forumthreads zu ähnlichen Themen

Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Anzeige
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Anzeige
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
Index von Optionsbuttons
Optionsbuttons

Hallo.
Ich habe in einem TB über die Symbolleiste Formulare gaaanz viele Optionbuttons erzeugt.
Diese liefern bei Zellposition A1 eine fortlaufende Zahl.
Die Zahl verwende ich über einen Sverweis für eine Art "Menüsteuerung".
Nun möchte ich etwas zwischen 15 und 16 einfügen, u...
26.09.2008 11:56:05
Thread-ID: 1012571
2 Beiträge
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Datumsübernahme von Exel in Serienbrief Word
Exel

Hallo Ihr Spezialisten,
ich habe ein kleines Problem mit der Übertragung von zwei Spalten, die Datumsangaben enthalten. Diese werden in einen Word Serienbrief übertragen und werfen dann leider nur noch 5-stellige Zahlen aus.
Wo ist das Problem? Wir haben die Formatierungen alle abgesche...
17.10.2008 12:37:30
Thread-ID: 1017121
3 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
12
3
3
2
1
1
1
4
4
2
7
6
3
3
6
1
15
8
2
3
2
4
7
8
6