Makro ergänzen mit Auswahlfenster

Question

Hallo VBA-Spezies
das folgende Makro verschiebt das aktive Tab-Blatt in dieDatei "Test", vor die 5te Tab.
Ich möchte, zu Beginn des Makros auswählen können wohin ich das Tabellenblatt verschieben möchte.

Sub Tab_blatt_verschieben()
ActiveWorkbook.ActiveSheet.Move before:=Workbooks("test.xls").Sheets(5)
End Sub

Mit freundlichen Grüßen
Frohe Weihnachten
Schönes Neues Jahr

Wolfgang

Answer 1

Hallo Wolfgang,

probier mal das
[code]Option Explicit

Sub Tab_blatt_verschieben()
Dim intIndex As Integer
intIndex = InputBox("Bitte gewünschte Blattnummer eingeben")
ActiveWorkbook.ActiveSheet.Move before:=Workbooks("test.xls").Sheets(intIndex)
End Sub

Ich wünsche Dir ebenfalls ein Frohes Fest und einen guten Rutsch ins Neue.

Rainer

Answer 2

Hallo Rainer,
wie fast immer war meine Frage nicht ausführlich und genau genug.
Und andererseits suggerierte mein Makro, das es eine feststehende Zieldatei gibt.
Meine ursprüngliche Absicht war hier beschrieben:
www.supportnet.de/t/2393566
Da habe ich keine weiterführende Antwort bekommen.
Ich werde dort mal versuchen mein Anliegen zu präzisieren.

mfg
Wolfgang

Answer 3

Hallo Wolfgang,

hatte Deine Frage so beantwortet, wie sie gestellet war.

Zu Deiner "ursprünglichen Absicht" fällt mir leider nichts ein und kann auch keinen Zusammenhang zur, von mir, beantworteten Frage herstellen.

Gruß
Rainer