Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Steuervariable bei Button.onAction vergeben?!

Steuervariable bei Button.onAction vergeben?!
15.08.2008 10:19:16
Andreas
Hallo Herber Fans,
ich hänge derzeit am Problem fest, wie ich nach dem Drücken eines Buttons zusätzlich zu der Information, welcher Code über die .OnAction Eigenschaft aufgerufen werden soll, auch eine Variable vergeben kann, mit der der aufgerufene Code dann weiterarbeitet. OnAction ein zweites Mal einfügen und dort dann die Variable zu vergeben hat nicht funktioniert.
Mit welcher Methode kann ich das realisieren? Ich habe im Objektkatalog schon viel zum Thema Button abgegrast, aber keinen entsprechenden Befehl gefunden.
https://www.herber.de/bbs/user/54622.xls
Vielen Dank für Eine Idee von Euch.
Grüße, Andreas Hanisch

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Steuervariable bei Button.onAction vergeben?!
15.08.2008 10:31:00
Ramses
Hallo
ändere den Code im Modul "TestCode" so
Option Explicit

Sub VariablenTest(defPar As Variant)
    
    MsgBox "Hallo ich bin ein Code und werde nun mit Variable: " & defPar & " weiterarbeiten."
    
End Sub

und das erstellen der Commandbar nun so

Sub CreateMyCommandBar()
    Dim cb As CommandBar, cc As CommandBarButton
    DeleteMyCommandBar
    Set cb = Application.CommandBars.Add(MyCommandBarName, msoBarTop, False, True)
    
    With cb
        Set cc = cb.Controls.Add(msoControlButton, , , , True)
        With cc
            .Caption = "TestButton 1"
            .OnAction = "VariablenTest(""Test"")"
            ' .OnAction SteuerVariable = 1 'Das ist die fehlerhafte Zeile.
            .Style = msoButtonCaption
        End With
    
    
        Set cc = cb.Controls.Add(msoControlButton, , , , True)
        With cc
            .Caption = "|TestButton 2"
            .OnAction = "VariablenTest(2)"
            ' .OnAction SteuerVariable = 1
            .Style = msoButtonCaption
        End With
    
    
        Set cc = Nothing
        .Visible = True
        .Left = 0
        .Top = 150
    End With
    
    Set cb = Nothing
End Sub

Gruss Rainer

Anzeige
AW: Steuervariable bei Button.onAction vergeben?!
15.08.2008 10:34:00
Andreas
Hallo Ramses,
das funktioniert. Vielen Dank! In meinen ersten/ meisten Codes sind die () immer leer geblieben, aber so langsam erschließt sich mir auch deren Sinn...
Dir und allen anderen Herber Fans ein schönes Wochenende.
Grüße, Andreas

301 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Anzeige
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Version DLL auslesen habe ich...aber Datum?
Peter

Hallo mal wieder,
habe n bissl probiert und recherchiert und dann denn folgenden Code gefunden/gebastelt mit dem ich die Versionsnummer einer DLL auslesen kann:
Sub Welche() Set fs = CreateObject("Scripting.FileSystemObject") ofile = "C:\Programme\Microsoft Office\Office12\refedit.dll...
08.08.2008 15:36:00
Thread-ID: 1000331
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
12
4
4
15
1
10
2
1
3
6
5
8
3
5
3
4
6
5
5
2
2
2