Office: Endlosschleife mit Do..While ??

Hallo,
ich möchte zwei Dateien mit einer Schleife in einem Makro öffnen. Ich erzeuge mir aber leider Endlosschleifen oder es wird nur eine Datei geöffnet.

Hier mein Code:

Code:

Sub dotest()
  Dim strFirma As String
    strFirma = "A"
    Do While strFirma = "A"
        Workbooks.Open Filename:="C:\Test\Test-" & strFirma & ".xlsx"
        strFirma = "B"
    Loop
End Sub

Was ist dort richtig? Do while? do until? loop while? loop until?
Ich stehe gerade etwas auf dem Schlauch.
Danke

Ich benutze Excel 2010

 

Hi Marius,

wenn es nur 2 Dateien sind - weshalb dann eine Schliefe? Da reicht doch, wenn du für beide den Code schreibst - das sind insgesamt nur 2 Codezeilen und Variablen sind auch nicht notwendig.

Wenn es viele Dateien sind, könnte man es so lösen:

Code:

Sub dotest()
   Dim arrFirma()
   Dim intZaehler As Integer
   arrFirma = Array("A", "B", "C", "D")
   For intZaehler = 0 To 3
      Workbooks.Open Filename:="C:\Test\Test-" & arrFirma(intZaehler) & ".xlsx"
   Next intZaehler
End Sub

Bis später,
Karin

 

Danke für die tolle Lösung! Die ist für mehrere Dateien auf jeden Fall gut geeignet.

In meinem Fall sind es tatsächlich nur zwei Dateien. In diesen beiden Dateien wird mit dem Makro noch weiter gearbeitet. Das hatte ich nur zum einfachem Verständnis ausgeschnitten. Deswegen wollte ich auch bei nur 2 unterschiedlichen Dateien eine Schleife bauen, weil in beiden Dateien noch die selben Berechnungen durch das Makro statt finden. Da wollte ich dann anstatt den ganzen code nochmal zu schreiben lieber mit einer Schleife arbeiten. Oder ist das Quatsch?
Meine Gedanke war ca so:

Code:

Sub dotest()  Dim strFirma As String
    strFirma = "A"
    Do While strFirma = "A"
        Workbooks.Open Filename:="C:\Test\Test-" & strFirma & ".xlsx"
        
        'Formatiere
        'Rechne
        'Rechne
        'rechne
               
        strFirma = "B"
    Loop
End Sub

Also erst eine Datei öffnen, dann in der Datei Formatierungen und Berechnungen durchführen, dann das gleiche mit der anderen Datei durchführen.

 

eine Schleife ist sozusagen eine Zähl-Anweisung, bei der eine Variable "hochgezählt" wird und die Schleife entsprechend oft durchlaufen werden soll:

Code:

Sub dotest()
   Dim strFirma As String
   Dim intZaehler As Integer
   strFirma = "A"
   Do While intZaehler <> 2
       Workbooks.Open Filename:="C:\Test\Test-" & strDatei & ".xlsx"
       'Formatiere
       'Rechne
       'Rechne
       'rechne
       intZaehler = intZaehler + 1
       strFirma = "B"
   Loop
End Sub

Das funktioniert aber eben nur bei 2 Durchläufen, weil der Inhalt der Variablen strFirma ja nur einmal geändert werden kann. Wobei eine solche Konstruktion ein wenig "von Hinten durch die linke Brust ins rechte Ausge" ist.

Sinnvoll wäre höchstens dieser Weg - aber dann ohne Schleife, wobei der Code für das, was mit der Datei passieren soll, in eine Sub ausgelagert wird und diese Sub 2 mal hintereinander auferufen wird:

Code:

Sub dotest()
   Ausfuehren "A"
   Ausfuehren "B"
End Sub

Sub Ausfuehren(strDatei As String)
   Workbooks.Open Filename:="C:\Test\Test-" & strDatei & ".xlsx"
   ' hier der weitere Code was in der Mappe gemacht werden soll
End Sub

Bis später,
Karin

 

Ahhh, Danke! Die Lösung gefällt mir!!

Vielen Dank


Gesendet von meinem iPad mit Tapatalk HD

 

Hallo,
ich habe doch noch ein Problem, und zwar muss ich in dem Sub Ausführen zwei Variablen aus einer UserForm übernehmen. Bekomme das aber nicht auf die Reihe
Hier mein Code:

Code:

Option Explicit
Public lngJahr As Long
Public strMonat As String

Public Sub CommandButton1_Click()   
    With UserForm1
        lngJahr = .TextBox1
        strMonat = .TextBox2
    End With
   
   Ausfuehren "A"
   Ausfuehren "B"   
End Sub

Sub Ausfuehren(strDatei As String)
   Workbooks.Open Filename:="C:\Test\Test-" & strDatei & lngJahr & strMonat".xlsx"
   ' hier der weitere Code was in der Mappe gemacht werden soll
End Sub

Wie bekomme ich die Variable strMonat und lngJahr in das Sub Ausführen ohne ein Konflikt mit der strDatei zu bekommen?

DANKE

 

versuche es auf diesem Weg (ungetestet):

Code:

Sub dotest()
   Ausfuehren "A", lngJahr, strMonat
   Ausfuehren "B", lngJahr, strMonat
End Sub

Sub Ausfuehren(strDatei As String, lngJahr1 As Long, strMonat1 As String)
   Workbooks.Open Filename:="C:\Test\Test-" & strDatei & lngJahr1 & strMonat1 & ".xlsx"
   ' hier der weitere Code was in der Mappe gemacht werden soll
End Sub

Bis später,
Karin