Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übergabe Wert an Modul

Forumthread: Übergabe Wert an Modul

Übergabe Wert an Modul
01.07.2014 14:59:45
Adi1977
Hallo zusammen,
ich habe folgende Ausgangssituation:
In einer Excel-Datei habe ich zunächst mehrere Spin-Button. Durch Aktivierung der Button wird eine Prozedur - in einem Modul - aufgerufen. Derzeit nutze ich zwei Prozeduren: einmal für "SpinUp" und ein zweites Mal für "SpinDown". Beide Prozeduren sind bis auf das Vorzeichen identisch.
Das läßt sich sicherlich optimieren.
Wie lassen sich die Vorzeichen an die Prozedur übergeben, so dass nur eine Prozedur benötigt wird?
Danke im Voraus!
Viele Grüße
Adi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übergabe Wert an Modul
01.07.2014 15:13:31
Rudi
Hallo,
sowas? 
Private Sub SpinButton1_SpinDown()
aaaa False
End Sub
Private Sub SpinButton1_SpinUp()
aaaa True
End Sub


Sub aaaa(bolUp As Boolean)
If bolUp Then
MsgBox "Up"
Else
MsgBox "Down"
End If
End Sub

Gruß
Rudi

Anzeige
AW: Übergabe Wert an Modul
01.07.2014 15:30:51
Adi1977
Hi Rudi,
Ich möchte beispielsweise folgendes:
Private Sub SpinButton1_SpinDown()
c = - 2
End Sub


Private Sub SpinButton1_SpinUp()
c = 2
End Sub

Sub calc()
a = c
End Sub
Wie übergebe ich nun die Werte in die Prozedur?
Grüße
Adi

Anzeige
AW: Übergabe Wert an Modul
01.07.2014 15:33:55
Rudi
Hallo, 
Private Sub SpinButton1_SpinDown()
calc -2
End Sub
Private Sub SpinButton1_SpinUp()
calc 2
End Sub
Sub calc(c)
a = c
End Sub

Gruß
Rudi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige