PDA

Vollständige Version anzeigen : mehrere If Bedingungen


Jens
03.07.2014, 05:27
einen schönen guten Tag
ich benötige eine Hilfe bei der gestaltung meines Codes
in einem Userform will ich vor dem speichern püfen ob Änderungen an den Daten vorgenommen wurden. Dazu lege ich beim öffnen der Userform den Value in den Textfeld.Tag.
Me.Maßnahmen = .Cells(Me.SpinButton1.Value, 14).Text
Me.Maßnahmen.Tag = .Cells(Me.SpinButton1.Value, 14).Text
mit diesen Zeilen prüfe ich ein Textfeld.
If Me.Maßnahmen.Value = Me.Maßnahmen.Tag Then tx1 = True
Wie muß ich den Code anpassen um alle Textfelder zu prüfen.
Ich habe schon versucht eine Oder Anweisung einzubauen.
If Me.Maßnahmen.Value = Me.Maßnahmen.Tag or Me.Verletzung.Value = Me.Verletzung.Tag Then tx1 = True

vielen Dank im vorraus
Jens

Beverly
03.07.2014, 05:58
Hi Jens,

und wo ist nun das Problem? Geht es darum, dass zwingend an beiden TextBoxen Änderungen vorgenommen werden müssen, oder geht es darum, dass du viele TextBoxen hast und keinen ellenlangen Code mit Or-Verknüpfung schreiben willst?

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Jens
03.07.2014, 15:01
Hallo Beverly
ich möchte mehrere Textfelder in der Userform prüfen ob eine Änderung vorgenommen wurde.
Schön wäre es natürlich wenn es keinen ellenlangen Code mit Or-Verknüpfung
geben würde.

Jens

Beverly
03.07.2014, 15:19
Hi Jens,

benutze das Change-Ereignis jeder TextBox und schreibe in die Tag-Eigenschaft des UserForms (oder eines anderen Steuerelementes auf dem UserForm) z.B. ein X und prüfe dann, ob das X drin steht - also nach diesem Prinzip:

Für jede TextBox

Private Sub TextBox1_Change()
UserForm1.Tag = "X"
End Sub


Und dann dein Code für die Prüfung

If UserForm1.Tag = "X" Then tx1 = True


<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Jens
03.07.2014, 18:55
Hallo Beverly
ich habe deinen Code eingebaut und bin voll begeistert.
Es funktioniert genau wie gewünscht. Vielen Dank für Deine Hilfe

Jens