Thema Datum  Von Nutzer Rating
Antwort
22.04.2009 17:00:09 Patrick
NotSolved
Blau Aw:Mehrere Paramter übergeben
 22.04.2009 18:04:08 Holger
NotSolved
23.04.2009 10:17:38 Holger
NotSolved
22.04.2009 18:13:30 Patrick
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
22.04.2009 18:04:08		 Views:
1961		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Mehrere Paramter übergeben
Hallo Patrick,
vielleicht kannst du folgende Subs anpassen:
Sub tausch(ByVal a, ByVal b, ByVal c, d)
d = 3
If b > c Then d = 2: c = b
If a > c Then d = 1
End Sub

Sub testen_Tausch()
tausch 2, 6, 8, a
MsgBox a
End Sub

Gruß
Holger

Patrick schrieb am 22.04.2009 17:00:09:

Hallo,

ich habe hier ein bzw. mehrere Probleme.
Hier mal eines:

Ich habe folgende Aufgabenstellung:

Schreiben Sie eine Prozedur, die vier Zahlen als Paramter mit einem aufrufenden Programm austauscht. Die Prozedur soll ermitteln, welcher der ersten drei Paramater der größte ist und die Nummer des Paramters (1,2 oder 3) als vierten Paramter wieder an das Hauptprogramm zurückgeben.

Soweit bin ich bis jetzt gekommen:


Sub Zahlen() 'Prozedurstart

Dim z1 As Integer, z2 As Integer, z3 As Integer
Dim z4 As Integer

'Deklaration der Variablen im Wertebereich Integer; nur ganze Zahlen möglich

z1 = 2
z2 = 1
z3 = 4

Tausch z1,z2,z3 'Aufruf der Prozedur Tausch mit Parameterübergabe

MsgBox ("Der größte Wert ist " & z4)

End Sub

Sub Tausch(ByRef z4) 'Prozedur Tausch Rückgabe des Parameters z4 als größte Zahl

If z1 > z2 Then 'Überprüfung des größten Betrages der Variablen z1,z2,z3 mit einer If Kontrollstruktur
z1 = z4
ElseIf z1 z3 Then
z1 = z4
ElseIf z1 z3 Then
z2 = z4
Else
z3 = z4

'Der größte Wert wird in der Variable z4 gespeichert und an das Hauptprogramm übergeben
End If


End Sub


Allerdings bekomm ich da die Fehlermeldung bei dem Aufruf der Prozedur Tausch : Falsche Anzahl an Argumenten...
Ich bekomm das einfach nicht hin. Mal abgesehen davon, dass mein Programm sowieso nicht ganz der Aufgabenstellung entspricht.

Ich bitte dringend um Hilfe

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.04.2009 17:00:09 Patrick
NotSolved
Blau Aw:Mehrere Paramter übergeben
 22.04.2009 18:04:08 Holger
NotSolved
23.04.2009 10:17:38 Holger
NotSolved
22.04.2009 18:13:30 Patrick
NotSolved