Thema Datum  Von Nutzer Rating
Antwort
20.07.2011 15:38:45 Peter
*****
NotSolved
Blau VBA Sheets in andere Datei verschieben
 21.07.2011 12:52:13 Dekor
****
Solved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
21.07.2011 12:52:13		 Views:
978		 Rating:
     
Antwort:
 Nein
Thema:
VBA Sheets in andere Datei verschieben

Hallo Peter,

 

Sub Mover3()
   Dim BkName As String
   Dim NumSht As Integer
   Dim BegSht As Integer

   'Starts with second sheet - replace with index number of starting sheet.
   BegSht = 8
   'Moves two sheets - replace with number of sheets to move.
   NumSht = ActiveWorkbook.Sheets.Count
   BkName = ActiveWorkbook.Name
    
   If NumSht >= BegSht Then
      For x = BegSht To NumSht
         'Moves second sheet in source to front of designated workbook.
         Workbooks(BkName).Sheets(x).Move _
         Before:=Workbooks("Test.xls").Sheets(1)
         'In each loop, the next sheet in line becomes indexed as number 2.
         'Replace Test.xls with the full name of the target workbook you want.
      Next
   End If
End Sub

'
'Quelle: http://support.microsoft.com/kb/288402
'

muß noch angepasst werden, aber als Ansatz sollte es funktionieren

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.07.2011 15:38:45 Peter
*****
NotSolved
Blau VBA Sheets in andere Datei verschieben
 21.07.2011 12:52:13 Dekor
****
Solved