if anweisung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: if anweisung von: Martin
Geschrieben am: 18.03.2005 18:37:54

Hallo zusammen,

stehe vor einem Problem, kenne mich mit der If-Anweisung mal so überhaupt nicht aus.

Ich lasse per Click-Ereignis Werte in ein Tabellenblatt schreiben. Jetzt die If-Geschichte: Wenn in Zelle E1 ein anderer Wert als 'NV steht, soll dieser angezeigt werden. Steht #NV oder gar nix in der Zelle, soll eine MSG - Box erscheinen ("Nicht existent. Bitte geben Sie weitere Daten ein!")

Der Code zum Anzeigen steht. Mein Problem ist die If-Then Anweisung und das damit in Verbindung stehende Erscheinen der MSG-Box.

Sicherlich nur ne Kleinigkeit(um mein Gewissen zu beruhigen)

Danke,

Martin

Bild


Betrifft: AW: if anweisung von: ransi
Geschrieben am: 18.03.2005 18:48:05

hallo martin

mal so aus der hüfte geschossen:

if [e1].text="#NV" or [e1]= "" then
msgbox "Nicht existent. Bitte geben Sie weitere Daten ein!"
goto irgendwohin
end if

ransi


Bild


Betrifft: AW: if anweisung von: Martin
Geschrieben am: 18.03.2005 18:59:48

Hallo Ransi,

schon mal Danke. Wenn ich jetzt bei goto die Aktion des private sub commanbutton 13_click() ausführen lassen möchte. was muss ich eingeben?

habs mal mit goto commandbutton13_click versucht, aber das geht so nicht.

Vielen Dank

Martin


Bild


Betrifft: AW: if anweisung von: ransi
Geschrieben am: 18.03.2005 19:07:19



      
hallo martin

versuchs mal so:
wenn du die daten mit click auf commandbutton13 einliest:
Option Explicit


Private Sub CommandButton13_Click()
Dim xy
Dim yz
irgendwohin:
'
'code
'
If[e1].Text = "#NV" Or[e1] = "" Then
MsgBox 
"Nicht existent. Bitte geben Sie weitere Daten ein!"
GoTo irgendwohin
End If
'
'weiterer code
'
End Sub

ransi 


     Code eingefügt mit Syntaxhighlighter 3.0




Bild


Betrifft: AW: if anweisung von: Martin
Geschrieben am: 18.03.2005 19:12:11

Hallo Ransi,

mein Problem ist, daß ich nicht weiß, was ich anstelle von "irgendwohin" schreiben soll, wenn ich möchte, dass dann commandbutton13_click ausgeführt werden soll.

Grüsse,

Martin


Bild


Betrifft: AW: if anweisung von: ransi
Geschrieben am: 18.03.2005 19:28:06



      
hallo martin

andere  variante:
den code 
in commandbutton13 kopierst du in ein modul
ins click ereigniss dann so:

Private Sub CommandButton13_Click()
call dein_makro
End Sub

dann kannst du 
in der abfrage so vorgehen:

If[e1].Text = "#NV" Or[e1] = "" Then
MsgBox 
"Nicht existent. Bitte geben Sie weitere Daten ein!"
call dein_makro
End If

wenns nicht klarer geworden ist, lade doch mal ein beispiel hoch.

ransi 


     Code eingefügt mit Syntaxhighlighter 3.0




Bild


Betrifft: AW: if anweisung von: Martin
Geschrieben am: 19.03.2005 10:12:38

Nein Danke,

habe es verstanden. Funktioniert wunderbar.

Vielen Dank!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "ActiveX Steuerelemente"