Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1532to1536
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
Inhaltsverzeichnis

Befehlschaltfläche und Funktion verbinden

Befehlschaltfläche und Funktion verbinden
17.01.2017 19:55:54
Silke
Guten Abend,
eine kleines Problem- wobei ich noch etwas festsitze-
Wenn der Ausführungsbefehl einer Befehlsschaltfläche - 15 und 16 zusätlich von einer anderen Funktion ebenfalls ausgeführt werden soll- was müsste ich wo noch im Code hinterlegen.
Es soll im unteren Code- wo steht Makro01 und Makro02 der Befehl der Schaltfläche 16 und 15 , die sich in der Userform1 befinden- ebenfalls ausgeführt werden.
  • 
    Sub vergleichen()
    Dim c As Range
    Dim firstAddress As String
    With Tabelle4.Range("Q58:Q144", "T58:T84")
    Set c = .Find(Tabelle4.Range("R52").Text, LookIn:=xlValues)
    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    Select Case c.Column
    Case Is = 4
    Makro01  ' das soll Befehlsschaltfläche16 ausführen
    Case Is = 7
    Makro02  ' das soll Befehlsschaltfläche15 ausführen
    Case Else
    Makro03
    End Select
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address  firstAddress
    End If
    End With
    End Sub
    

  • Grüße Silke

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Befehlschaltfläche und Funktion verbinden
    17.01.2017 19:58:39
    Hajo_Zi
    userform.Schaltfläche16_click
    würde ich mal vermuten.
    Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
    Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
    Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

    Anzeige
    AW: Befehlschaltfläche und Funktion verbinden
    17.01.2017 21:20:59
    Gerd
    Hallo Silke,
    es ist m.E. besser den "gemeinsamen" Code in ein getrenntes Makro auszulagern u. von beiden Stellen aus aufzurufen.
    im Userform
    CommandButton15_Click()
    Call Makro01
    End Sub
    

    in der Prozedur "vergleichen"
    Case 4: Call Makro01
    
    in ein allgemeines Modul
    Sub Makro01()
    Msgbox "Test Code für Makro01"
    End Sub
    
    Gruß Gerd
    AW: Befehlschaltfläche und Funktion verbinden
    18.01.2017 22:25:13
    Silke
    Danke für die ausführliche Beschreibung, Gerd.
    Wenn ich das also richtig verstanden habe, den Code, der von beiden ausgeführt werden soll- in ein einzelnes Modul auslagern.
    Gesagt -getan.
    Ist mir auch einleuchtend.
    Nun aber lässt sich der ausgelagerte Code- der vorher im Userform stand-und funktionierte nicht mehr ausführen!
    dies steht nun im Userform
    
    Private Sub CommandButton15_Click()
    Call Makro01
    End Sub
    

    dies in einem allgemeinen Modul- was vorher im Userform CommandButton15 stand nun als
    
    Sub Makro01()
    'Private Sub CommandButton15_Click()
    Cells(ActiveCell.Row, 7).Resize(1, 13).ClearContents ' löschen von Zellen
    Range(TextBox0050.Value) = ComboBox0060.Text 'in active Zelle
    Range(TextBox0061.Value) = ComboBox0061.Text 'in active Zelle
    Range(TextBox0062.Value) = ComboBox0062.Text 'in active Zelle
    Range(TextBox0053.Value) = ComboBox0063.Text 'in active Zelle
    Range(TextBox0051.Value) = ComboBox0064.Text 'in active Zelle
    TextBox016 = Worksheets("Hilfstabelle").Range("AA11")
    UserForm1.Hide
    UserForm1.Show vbModeless
    End Sub
    
    in der Prozedur "vergleichen"
    auch eingefügt
    Case 4: Call Makro01
    

    Irgend wie mag der Code der "CommandButton15_Click()", nach dem er ausgelagert wurde- nicht mehr.
    Option Explicit ist es auch nicht- da ja keine Variablen vergeben sind.
    Was mache ich falsch?
    LG Silke
    Anzeige
    AW: Befehlschaltfläche und Funktion verbinden
    19.01.2017 06:22:33
    Silke
    Guten Morgen,
    Das will auch nicht so recht.
    bei Prozedur "vergleichen" also Case 4: userform.CommandButton15_Click()
    LG Silke
    AW: Befehlschaltfläche und Funktion verbinden
    19.01.2017 07:02:08
    Crazy
    Hallo Silke
    da muss dann auch auf die Userform referenziert werden
    wenn es die Userform1 ist dann z.B. so
    with Userform1
    Range(.TextBox0050.Value) = .ComboBox0060.Text 'in active Zelle
    und so weiter
    end with
    beachte den Punkt vor Combobox & Textbox
    der gehört dann vor jedes Control das zur Userform gehört
    MfG Tom
    AW: Befehlschaltfläche und Funktion verbinden
    19.01.2017 16:39:22
    Silke
    Hallo Tom und Gerd,-
    habe es geschafft... es geht nun. So kann ich das viel besser erlernen.
    Ein ganz großes Lob für die Tipps.
    LG Silke
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige