Thema Datum  Von Nutzer Rating
Antwort
Rot Frage: Startpunkt festlegen für Loop in a Loop
29.03.2021 15:06:56 Morning
NotSolved
29.03.2021 15:34:01 ralf_b
NotSolved
29.03.2021 15:35:43 Gast81854
NotSolved
30.03.2021 00:18:24 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Morning
Datum:
29.03.2021 15:06:56
Views:
93
Rating: Antwort:
  Ja
Thema:
Frage: Startpunkt festlegen für Loop in a Loop

Hallo Leute, 

ich habe eine Frage und zwar komme ich gerade nicht weiter mit meinem Makro, weil meine Loop in einer anderen Loop den Startpunkt bei der zweiten Loop setzt (Do While Dateiname2 <> "") - in rot markiert - und nicht bei der ersten (Do While Dateiname <> "") - in gelb grün markiert -  = ein Teil des Makros wird daher nicht ausgeführt. 

Gibt es hierfür eventuell eine Lösung? - dass die Loop immer von Am Anfang meines Codes beginnt bzw. bei einer festgelegten Codezeile ?

Hier ist mein Code: 

 

Sub IKS()

    Dim wb As Workbook
    Dim strVerzeichnis As String
    Dim StrDatei As String
    Dim StrTyp As String
    Dim Dateiname As String
    Dim oTargetBook As Object
    Dim oSourceBook As Object
    Dim sFileName As String
    Dim Speichertext As String
    
    Dim strVerzeichnis2 As String
    Dim StrDatei2 As String
    Dim StrTyp2 As String
    Dim Dateiname2 As String
    Dim oSourceBook2 As Object
    
    
    Speichertext = "_02_2021_Abstimmung_Tagetik_RU"
    
    strVerzeichnis = "C:\Users\Christoph\Desktop\Excel makro\GrossAmount\"
    
    StrTyp = "*.xl*"
    
    Dateiname = Dir(strVerzeichnis & StrTyp)
    
    
    
    strVerzeichnis2 = "C:\Users\Christoph\Desktop\Excel makro\Package\"
    
    StrTyp2 = "*.xl*"
    
    Dateiname2 = Dir(strVerzeichnis2 & StrTyp2)
    
    
    
    
    Do While Dateiname <> ""
      
    Set oSourceBook = Workbooks.Open(Filename:=strVerzeichnis & Dateiname)
    
    Set oTargetBook = Application.Workbooks.Add
    
    Set wb = Workbooks("Vorlage_Makro_Tagetik")
        
    
    wb.Sheets("Formel").Copy After:=oTargetBook.Sheets(Sheets.Count)
    
    ActiveSheet.Name = "Abstimmung"
    
    
    oSourceBook.Worksheets("Gross").Copy After:=oTargetBook.Worksheets(oTargetBook.Sheets.Count)

    ActiveSheet.Name = "export"

    oSourceBook.Close
    
   

 

Do While Dateiname2 <> ""
      
    Set oSourceBook2 = Workbooks.Open(Filename:=strVerzeichnis2 & Dateiname2)
    
    oSourceBook2.Worksheets("Korrektur upload").Copy After:=oTargetBook.Worksheets(oTargetBook.Sheets.Count)

    ActiveSheet.Name = "BWD"
            
    oSourceBook2.Close
       
    
    
    
    
    'Tabellenblatt "Tabelle1" löschen

    Worksheets("Tabelle1").Delete
    
    
    
    'Speichern
    sFileName = Left(Dateiname, InStrRev(Dateiname, ".") - 3)
    
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\Morning\Desktop\Excel makro\Target\" & sFileName & Speichertext & ".xls" _
         , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False
    
    oTargetBook.Close
        
        
    Dateiname = Dir()
    
    Dateiname2 = Dir()
    
    
Loop

Loop
   
End Sub

 

Vielen Dank im Voraus und liebe Grüße


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
Rot Frage: Startpunkt festlegen für Loop in a Loop
29.03.2021 15:06:56 Morning
NotSolved
29.03.2021 15:34:01 ralf_b
NotSolved
29.03.2021 15:35:43 Gast81854
NotSolved
30.03.2021 00:18:24 Nobody
NotSolved