Nochmal eine Quelltext frage.

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

Betrifft: Nochmal eine Quelltext frage.
von: Jens
Geschrieben am: 07.12.2003 16:12:03

hiho, ich hab da mal wieder eine Frage.

Ich bekomme folgende Fehlermeldung: "Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen" Leider ist mein VBA wissen sehr beschränkt und auch die HIlfe funktion bring t mir nicht wirklich viel. Besser gesagt garnicht, und da ihr mir bereits schon sehr gute Hilfe geleistet habt, hoffe ich ich bekomme nochmal hilfe.

Mit einem sonntäglichen Gruß Jens.

Bild


Betrifft: Wo ist der Code ???? OT
von: Hajo_Zi
Geschrieben am: 07.12.2003 16:21:47




Bild


Betrifft: AW: Wo ist der Code ???? OT
von: Jens
Geschrieben am: 07.12.2003 16:23:46


Private Sub UserForm_Click()

Private Sub Command1_Click()
  Dim Groesse As Integer
   Groesse = Val(Text2.Text)
   Gewicht = Val(text3.Text)
  If (Groesse <= 100) Or (Groesse > 230) Then
   MsgBox "Geben Sie eine gültige Größe ein !", 0, "Achtung"
   Text2.Text = ""
   Text2.SetFocus
   Exit Sub
  End If
   If (Option1.Value = True) Then
     Idealgewicht = (Groesse - 100) * 0.85
   ElseIf (Option2.Value = True) Then
     Idealgewicht = (Groesse - 100) * 0.9
   Else
     MsgBox "Wählen Sie ein Geschlecht !", 0, "Achtung"
   Exit Sub
   End If
   Text4.Text = Idealgewicht
   
Differenz = Gewicht - Idealgewicht
   If Differenz > 0 Then Text5.Text = "Übergewicht !"
   If Differenz = 0 Then Text5.Text = "Idealgewicht !"
   If Differenz < 0 Then Text5.Text = "Untergewicht"
 Text6.Text = Format$(Differenz, "###.00 kg")
Select Case Differenz
  Case Is < -20
    Text7.Text = "Suchen Sie sofort einen Arzt auf !!!"
  Case -20 To -15
    Text7.Text = "Magersucht !"
  Case -15 To -10
    Text7.Text = "Sie sollten etwas essen !"
  Case -10 To -3
    Text7.Text = "Sie können beruhigt mehr essen !"
  Case -3 To 2
    Text7.Text = "Leben Sie so weiter !"
  Case 2 To 5
    Text7.Text = "Etwas mehr Sport könnte nicht schaden !"
  Case 5 To 10
    Text7.Text = "Empfohlene Kur: weniger essen !"
  Case 10 To 20
    Text7.Text = "Schwieriger Fall: Absolute Nulldiät !"
  Case Is > 20
    Text7.Text = "So gehts nicht weiter, Sie leben nicht mehr lang !"
  End Select
  
End Sub



Private Sub Command2_Click()
  End
End Sub



Private Sub Form_Activate()
  Text1.SetFocus
End Sub



Private Sub Option1_Click()
  Command1.SetFocus
End Sub



Private Sub Option2_Click()
  Command1.SetFocus
End Sub




Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Text2.SetFocus
End Sub


-------- hier liegt der fehler-------------

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then text3.SetFocus
End Sub




Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Option1.SetFocus
End Sub


End Sub



Bild


Betrifft: AW: Wo ist der Code ???? OT
von: Hajo_Zi
Geschrieben am: 07.12.2003 16:31:25

Hallo Jens

nach

Private Sub muß vor dem nächsten 

Private Sub ein End Sub
kommen. Mal so auf dem ersten Blicke.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Wo ist der Code ???? OT
von: Jens
Geschrieben am: 07.12.2003 16:40:54

Ist eigentlich doch überall. Trotzdem danke.


Bild


Betrifft: AW: Wo ist der Code ???? OT
von: Hajo_Zi
Geschrieben am: 07.12.2003 16:42:59

Hallo Jens

lesen kann ich noch, wenn Du das auch bezweifelst.

dies sind die ersten drei Zeilen Deines Posting

Private Sub UserForm_Click()
Private Sub Command1_Click()
Dim Groesse As Integer


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Wo ist der Code ???? OT
von: Jens
Geschrieben am: 07.12.2003 18:12:29

nein ich bezweifle das nicht, und das war auch nicht böse gemeint, auch wenn du es anscheinend so aufgefasst hast.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Gültigkeit einer Zelle durch eine Liste vorgeben"