Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ü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

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

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

Links zu Excel-Dialogen

SpinButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige