Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

Forumthread: 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

Anzeige

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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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