Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: Pflichtfeldeintrag

Pflichtfeldeintrag
12.04.2007 14:41:00
Walter
Bitte um Hilfe bei einem kleinen Problem vor dem ich grade stehe.
Habe eine Tabelle mit einzelnen freigegebenen Zellen und möchte das man aus bestimmten Zellen mit Tab nur rauskommt, wenn dort ein Eintrag vorgenommen wurde. Also Quasi Pflichtfeld !
Kann mir da jemand helfen?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pflichtfeldeintrag
12.04.2007 15:10:32
Daniel
Hallo
Diesen Code ins Modul des betroffenen Tabellenblatts.
die Addressen der Pflichteingabefelder musst du in der Zeile
Select Case Intersect(ZelleAlt, Range("$A$1,$B$1:$C$3,$D$4")) Is Nothing
entsprechend anpassen.
Option Explicit
Dim ZelleAlt As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ZelleAlt Is Nothing Then Set ZelleAlt = Range("A1")
On Error GoTo ende
Application.EnableEvents = False
Select Case Intersect(ZelleAlt, Range("$A$1,$B$1:$C$3,$D$4")) Is Nothing
Case False
If ZelleAlt.Value = "" Then
ZelleAlt.Select
MsgBox ("Ohne Eingabe geht da nix")
Else
Set ZelleAlt = Target(1)
End If
Case Else
Set ZelleAlt = Target(1)
End Select
ende:
Application.EnableEvents = True
End Sub
Gruß, Daniel
Anzeige
AW: Pflichtfeldeintrag
12.04.2007 18:39:00
Jan
Hi,
das ist ganz schlechter Stil. Der Benutzer muss immer die Möglichkeit haben, eine
Bearbeitung abzubrechen und das wäre ja nicht mehr möglich.
mfg Jan
AW: Pflichtfeldeintrag
12.04.2007 19:02:23
Daniel
je nu, Pflichtfeld oder nicht?
sehr guter Stil wäre jetzt gewesen, wenn du Walter gleich einen besseren Vorschlag geschickt hättest.
nur mit dem Hinweis, das es schlecher Stil ist, ist ihm ja auch nicht geholfen.
und ich brauch das Makro ja nicht
im Prinzip ists es ja auch nicht schwer, man muß nur sagen, was man will
Option Explicit
Dim ZelleAlt As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ZelleAlt Is Nothing Then Set ZelleAlt = Range("A1")
On Error GoTo ende
Application.EnableEvents = False
Select Case Intersect(ZelleAlt, Range("$A$1,$B$1:$C$3,$D$4")) Is Nothing
Case False
If ZelleAlt.Value = "" Then
Select Case MsgBox("Sie sollten die Zelle " & ZelleAlt.Address & " nicht ohne  _
eingabe verlassen" & Chr(10) & "Zurück zum Eingabefeld?", vbYesNo)
Case vbYes
ZelleAlt.Select
Case vbNo
Target.Select
Set ZelleAlt = Target(1)
End Select
Else
Set ZelleAlt = Target(1)
End If
Case Else
Set ZelleAlt = Target(1)
End Select
ende:
Application.EnableEvents = True
End Sub
Gruß, Daniel
Anzeige
AW: Pflichtfeldeintrag
12.04.2007 19:28:00
Jan
Hi,
mein Beitrag war nicht an dich gerichtet, oder?
Wenn er sich schon auf eine Lösung festgelegt hat, sei der Hinweis erlaubt,
dass das nicht der richtige Weg ist.
mfg Jan
AW: Pflichtfeldeintrag
13.04.2007 11:20:25
Walter
Besten Dank für deine Hilfe Daniel, komme leider erst jetzt dazu mich zu bedanken. du hast mir sehr geholfen.
Gruß Walter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige