Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Pflichtfelder
zurück: Summe über bestimmte Felder bilden weiter: Summe ohne doppelte Werte Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2011, 14:10
Rufname:

Pflichtfelder - Pflichtfelder

Nach oben
       Version: Office 2003

Hallo Zusammen,

Ich habe Probleme mit Pflichtfelder.

Spalte D kann oder keine Wert haben. Bsp. Wenn D33 Wert hat, dan müssen E33 und F33 Wert haben. Wenn keine Eingabe zu E33 und F33, Fehlermeldung muss erscheinen, und es soll nicht weitergehen.
Pflichtfelder - E33:E79, E86:E97 und F33:F79

Danke&Grüsse,
Beck
helikopf
Excellaner


Verfasst am:
26. Apr 2011, 15:28
Rufname:
Wohnort: Bayern


AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,

um Deine Pflichtfelder aktivieren zu können bedarf es irgend einer Aktion - wie soll die denn aussehen bzw. wann soll die Fehlermeldung erscheinen (beim Verlassen des Blattes / eines Bereichs, bei weiterer Eingabe, ...)?

Servus, Helmut
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2011, 15:39
Rufname:

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,
Die Fehlermeldung soll bei weiterer Eingabe erscheinen. Ich denke mann braucht Change Ereigniss.


Danke,
Beck
helikopf
Excellaner


Verfasst am:
26. Apr 2011, 15:48
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,

genau, das Change-Ereignis könnte die Meldung auslösen - aber nach welcher Eingabe? Beschreib' doch mal genauer, was eigentlich passieren soll. Wird z. B. in D33 etwas eingegeben und danach in D34 gewechselt -> Fehlermeldung?

Sorry, aber die bisherigen Angaben sind zu dürftig.

Servus, Helmut.
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2011, 16:18
Rufname:


AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,
D33 ist Tätigkeit Feld, E33 is ProjectNr
F33 ist Projectname.

Wenn D33 leer ist, E33 und F33 können leer bleiben. Aber wenn man in D33 Tätigkeit eingibt, danach in D34 wechselt -> Fehlermeldung muss kommen.

Tätigkeit - D33-D97
Pflichtfelder sind - E33:E79, E86:E97
F33:F79


Danke,
Beck
helikopf
Excellaner


Verfasst am:
26. Apr 2011, 16:30
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,

das könntest du über Eingabedialoge für Projektnummer und -name machen:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim strProjectNr As String
Dim strProject As String

If Intersect(Target, Range("D33:D97")) Is Nothing Then Exit Sub

Projektnummer:
strProjectNr = InputBox("Project Nr.", "Bitte Project-Nr. eingeben:")
If strProjectNr = "" Then GoTo Projektnummer
Target.Offset(0, 1) = strProjectNr

Projektname:
strProject = InputBox("Project Name", "Bitte Project-Name eingeben:")
If strProject = "" Then GoTo Projektname
Target.Offset(0, 2) = strProject

End Sub


Der Code gehört in den Code-Til deiner Tabelle, Bereiche und Beschreibungen müssen evtl. noch angepasst werden.

Servus, Helmut.
helikopf
Excellaner


Verfasst am:
26. Apr 2011, 16:33
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo noch mal,

leider eine Zeile vergessen:

Code:
If Target = "" Then Exit Sub


Gehört noch nach
Code:
If Intersect(Target, Range("D33:D97")) Is Nothing Then Exit Sub
eingefügt.

Servus, Helmut.
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2011, 16:40
Rufname:

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,
Ich werde ausprobieren.

Herzlichen Dank für die hervorragende Hilfe.

Beck
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Apr 2011, 17:40
Rufname:

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,
Vielen Danke.Es funktioniert super.

Noch mal Frage.
a.Manche Tätigkeit Felder ziechen sich Eingaben automatisch. z.B. Wenn mann in Feld C35 70 eingibt, Feld D35 mit zusammenhängendem Tätigkeit gefüllt wird.

b. Zwischen D80:D86 es gibt keine Pflichtfelder.
Ab D86:D97 nur ProjectNr ist Pflichtfeld.


Danke,
Beck
helikopf
Excellaner


Verfasst am:
26. Apr 2011, 17:50
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

´Hallo,

das ist dann leider nicht so ohne Weiteres umzusetzten da für jeden Sonderfall eine separate Behandlung nötig ist -> entweder die Tabelle sauber strukturieren und mit Beispieldaten hier einstellen oder mit der aktuellen Lösung leben.

Die Anpassung für die letzten Zeilen geht noch recht einfach, alles Andere wie gesagt eher Aufwändig:

Code:
If Intersect(Target, Range("D33:D85")) Is Nothing Then Exit Sub

... nach Projektname: einfügen

Servus, Helmut.
helikopf
Excellaner


Verfasst am:
02. Mai 2011, 08:36
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Guten Morgen,

die Datei von Dir habe ich jetzt angeschaut und um den Bereich der Meldung anzupassen musst Du immer den Range() anpassen. Der neue Code sieht dann so aus:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim strProjectNr As String
Dim strProject As String

If Intersect(Target, Range("D26:D30", "D33:D79", "D86:D97")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

Projektnummer:
strProjectNr = InputBox("Project Nr.", "Bitte Project-Nr. eingeben:")
If strProjectNr = "" Then GoTo Projektnummer
Target.Offset(0, 1) = strProjectNr

Projektname:
If Intersect(Target, Range("D26:D30", "D33:D79")) Is Nothing Then Exit Sub
strProject = InputBox("Project Name", "Bitte Project-Name eingeben:")
If strProject = "" Then GoTo Projektname
Target.Offset(0, 2) = strProject

End Sub


Anzupassender Bereich bei Änderung der Datei:
If Intersect(Target, Range("D26:D30", "D33:D79", "D86:D97")) Is Nothing Then Exit Sub
und
If Intersect(Target, Range("D26:D30", "D33:D79")) Is Nothing Then Exit Sub

Servus, Helmut.



Pflichtfelder.xls
 Beschreibung:

Download
 Dateiname:  Pflichtfelder.xls
 Dateigröße:  123 KB
 Heruntergeladen:  19 mal

Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Mai 2011, 11:12
Rufname:

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo Helmut,
Es funktioniert super.
Danke,


Beck
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Mai 2011, 10:43
Rufname:

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,
Ich habe noch eine frage.

Ich will mit "Abbrechen" die Aktion annulieren und eingegebenen Wert in der Zelle löschen.
Manche Zellen sind Listboxen, manche nicht(z.B D33 ist Listbox, aber D48,D49 nicht. In der Zelle, mit den Listeboxen "Abbrechen" funktioniert gut.
Aber wenn mann den Wert manuel eintippt(wo keine Listboxen), kommt Inputbox (z.B in D48). "Abbrechen" löscht nicht aktuelle Zelle sondern nächste Zelle unten D49.

Aktulle Code
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim strProjectNr As String
Dim strProject As String

If Intersect(Target, Range("D33:D79,D86:D97")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

Projektnummer:

strProjectNr = InputBox("Project Nr.", "Bitte Project-Nr. eingeben:")
If strProjectNr = "" Then
ActiveCell.Clear
Exit Sub
End If
Target.Offset(0, 1) = strProjectNr

Projektname:
If Intersect(Target, Range("D33:D79")) Is Nothing Then Exit Sub
strProject = InputBox("Project Name", "Bitte Project-Name eingeben:")
Target.Offset(0, 2) = strProject


End Sub


Danke & Grüße,
Beck
helikopf
Excellaner


Verfasst am:
03. Mai 2011, 14:51
Rufname:
Wohnort: Bayern

AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Hallo,

dann musst Du das Makro so umstellen:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Err_WS_Change

Dim i As Long
Dim strProjectNr As String
Dim strProject As String

Application.EnableEvents = False

If Intersect(Target, Range("D26:D30, D33:D79, D86:D97")) Is Nothing Then Exit Sub 'bei Änderungen hier den Range anpassen
If Target = "" Then
    Target.Offset(0, 1).ClearContents
    Target.Offset(0, 2).ClearContents
Else

Projektnummer:
    strProjectNr = InputBox("Project Nr.", "Bitte Project-Nr. eingeben:", "Project-Nr.")
    If strProjectNr = "" Then
        Target.ClearContents
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
        GoTo Err_WS_Change
    End If
    If strProjectNr = "Project-Nr." Then GoTo Projektnummer
    Target.Offset(0, 1) = strProjectNr
   
Projektname:
    If Intersect(Target, Range("D26:D30, D33:D79")) Is Nothing Then Exit Sub 'bei Änderungen hier den Range anpassen
    strProject = InputBox("Project Name", "Bitte Project-Name eingeben:", "Project Name")
    If strProject = "" Then
        Target.ClearContents
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
        GoTo Err_WS_Change
    End If
    If strProject = "Project Name" Then GoTo Projektname
    Target.Offset(0, 2) = strProject
End If

Err_WS_Change:
If Err Then
    MsgBox Err.Number & " " & Err.Description
End If

Application.EnableEvents = True

End Sub


Jetzt wird die Eingabe in Spalte D gelöscht, sobald Abbrechen gewählt wird. Wird ein Eintrag aus D entfernt, so werden auch die Werte in E und F gelöscht.

Servus, Helmut.
Beck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Mai 2011, 16:33
Rufname:


AW: Pflichtfelder - AW: Pflichtfelder

Nach oben
       Version: Office 2003

Danke sehr
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Excel 2010: Pflichtfelder mit "Entweder-Oder-Bereich&qu 13 JaneDoe 372 03. Sep 2013, 16:00
Jane Doe Excel 2010: Pflichtfelder mit "Entweder-Oder-Bereich&qu
Keine neuen Beiträge Excel Hilfe: Pflichtfelder bei Exel mit VBA 0 88Tommy88 106 04. Apr 2013, 11:18
88Tommy88 Pflichtfelder bei Exel mit VBA
Keine neuen Beiträge Excel VBA (Makros): Senden wenn alle Pflichtfelder erfült sind 5 KevinL 197 27. März 2013, 14:37
Gast Senden wenn alle Pflichtfelder erfült sind
Keine neuen Beiträge Excel VBA (Makros): Pflichtfelder definieren im Excel 4 across_theuniverse 733 29. Jan 2013, 14:47
across_theuniverse Pflichtfelder definieren im Excel
Keine neuen Beiträge Excel VBA (Makros): Pflichtfelder in UserForm 0 Benjaminus 173 24. Sep 2012, 10:23
Benjaminus Pflichtfelder in UserForm
Keine neuen Beiträge Excel VBA (Makros): Pflichtfelder 0 NutnikSpirkes 313 28. Jun 2011, 08:53
NutnikSpirkes Pflichtfelder
Keine neuen Beiträge Excel VBA (Makros): Zwei unabhängige Pflichtfelder msgBox 3 hösch 271 24. Mai 2011, 10:49
hösch Zwei unabhängige Pflichtfelder msgBox
Keine neuen Beiträge Excel Hilfe: Datenbank - Pflichtfelder füllen 3 Problemdatenbank 515 06. Apr 2011, 15:54
Gast Datenbank - Pflichtfelder füllen
Keine neuen Beiträge Excel VBA (Makros): Pflichtfelder umgehen 6 Gast 374 10. Feb 2011, 15:44
Gast Pflichtfelder umgehen
Keine neuen Beiträge Excel VBA (Makros): Kein Drucken bevor Pflichtfelder gefüllt sind 3 alcapone489 1300 23. Dez 2010, 10:13
< Peter > Kein Drucken bevor Pflichtfelder gefüllt sind
Keine neuen Beiträge Excel VBA (Makros): abspeicherung verhindern, wenn pflichtfelder leer - IsEmpty 2 fippo 479 28. Sep 2010, 12:43
fippo abspeicherung verhindern, wenn pflichtfelder leer - IsEmpty
Keine neuen Beiträge Excel VBA (Makros): abspeicherung verhindern, wenn pflichtfelder leer - IsEmpty 0 fippo 194 28. Sep 2010, 11:21
fippo abspeicherung verhindern, wenn pflichtfelder leer - IsEmpty
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen