Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Beim öffnen "Auswahl" anbieten (welches Makro ..?)

Beim öffnen "Auswahl" anbieten (welches Makro ..?)
13.08.2007 14:54:00
Fabio
Beim öffnen "Auswahl" anbieten
Hallo zusammen,
ich habe mir zwei Makros gebastelt (per "Aufzeichnung").
Nun würde ich gerne noch folgendes erreichen:
Wenn der User die Datei aufmacht, sollte folgendes Erscheinen:
"Pop-Up" mit Auswahlmöglichkeit:
"Datei nach Themen sortieren" (falls das angeklickt wird, soll das Makro "sortierung nach Themen" gestartet werden)
"Datei nach Terminen sortieren" (falls das angeklickt wird, soll das Makro "sortierung nach Terminen" gestartet werden)
Danke für Hilfe in dieser Sache!
Liebe Grüße
Fabio

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

Betreff
Datum
Anwender
Anzeige
AW: Beim öffnen "Auswahl" anbieten (welches Makro ..?)
13.08.2007 14:58:58
c0bRa
Hio...
Erstelle dir 2 CommandButtons auf einer Userform. Ohne Umbenamung müsste dann dein Code ungefähr so aussehen:
Code aus Microsoft Excel Objekt DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Code aus Formular UserForm1:
Option Explicit
Private Sub CommandButton1_Click()
    Call sortierennachtermin
    Unload Me
End Sub
Private Sub CommandButton1_Click()
    Call sortierennachdatum
    Unload Me
End Sub

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Beim öffnen "Auswahl" anbieten (welches Makro
13.08.2007 15:06:46
Renee
Hi Fabio,
Code in DieseArbeitsmappe:

Private Sub Workbook_Open()
Dim vAnswer As Variant
vAnswer = MsgBox("JA   = Sortierung nach Themen" & vbCrLf & _
"NEIN = Sortierung nach Terminen", _
vbYesNoCancel, "Sortieren")
Select Case vAnswer
Case vbYes
Call SortierungNachThemen
Case vbNo
Call SortierungNachTerminen
End Select
End Sub


Greetz Renee

an beide
13.08.2007 15:31:32
Fabio
Hallo zusammen,
da muss ich einfach Danke sagen.
Genial einfach = einfach genial !
Fabio

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige