Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahlmenue (wie Msgbox )

Forumthread: Auswahlmenue (wie Msgbox )

Auswahlmenue (wie Msgbox )
07.01.2004 21:49:39
Gerhard
Hallo Experten
Ich würde gern von einem Sheet aus (ca. 35 Schaltflächen sind schon vorhanden)eine datei.xls öffnen in den 4 sheets sind hätte aber gern eine Auswahl welcher sheet geöffnet werden soll ist das mit Makro zu lösen ?
Das wäre super, um nicht die Übersicht zu verlieren.
Wenn ja könnte jemand helfen ?
Ich habe selbst leider keine Ahnung von VBA (muss ich noch lernen)
Danke erstmal
Gerhard
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlmenue (wie Msgbox )
07.01.2004 22:00:31
Boris
Hi Gerhard,
ein Möglichkeit:
Option Explicit

Sub öffnen()
Dim I As Integer, iMax As Integer
Workbooks.Open ("D:\Eigene Dateien\test.xls")
iMax = ActiveWorkbook.Sheets.Count
Do
I = CInt(Application.InputBox(iMax & " Blätter. Welches soll ich aktivieren?", "Nachfrage...", 1))
Loop Until I >= 1 And I <= iMax
ActiveWorkbook.Sheets(I).Select
End Sub

Grüße Boris
Anzeige
AW: Auswahlmenue (wie Msgbox )
07.01.2004 22:14:40
Gerhard
Super läuft Astrein
Danke Du hast mir sehr geholfen !!
Gruß Gerhard
AW: Auswahlmenue (wie Msgbox )
07.01.2004 22:35:00
eine Frage noch dazu
Wie bekomme ich den text untereinander ?
ich habe versucht etwas zu ändern
welches soll ich öffnen habe ich ersetzt durch :
mögliche Eingaben sind : Ks_D Ks_H St_D ST_H
Wie bekomme ich den text untereinander ?
Anzeige
Hab´s jetzt erst gesehen...
09.01.2004 15:00:24
Boris
Hi Gerhard,
InputBox("Mögliche Eingaben sind:" & Chr(10) & "Ks_D" & Chr(10) & "Ks_H" & Chr(10) .....)
Also mit Chr(10) einen Zeilenumbruch erzeugen.
Grüße Boris
AW: Auswahlmenue (wie Msgbox )
10.01.2004 01:24:20
Gerhard
Danke Boris !!
Gruß Gerhard
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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