Herbers Excel-Forum - das Archiv

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