Thema Datum  Von Nutzer Rating
Antwort
Rot On Error in einer Schleife
 12.07.2011 10:05:15 Lennart
NotSolved
12.07.2011 12:28:43 Dekor
Solved
12.07.2011 14:24:23 Gast58509
NotSolved

Ansicht des Beitrags:
Von:
Lennart		 Datum:
12.07.2011 10:05:15		 Views:
1657		 Rating:
     
Antwort:
  Ja
Thema:
On Error in einer Schleife

Hi Leute,

ich habe ein Problem mit einer On Error Schleife. Da ich leider nicht so viel von VBA verstehe, kann ich den Fehler nicht selber beheben.

1. Ich habe ein Makro, welches nacheinander Workbooks öffnet und ein paar Daten aus dem Worksheet "DB_Real" kopiert. Ist das Worksheet nicht vorhanden, soll es geschlossen werden und mit den nächsten fortgefahren werden. -> Das klappt auch soweit.

2. Die Daten sollen nur unter der Bedingung kopiert werden, dass B21="fix", andernfalls soll die Datei wieder geschlossen werden und mit der nächsten fortgefahren werden. -> Das bekomme ich nicht hin.

Hier der code:

On Error Resume Next
Fehlerrf:
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("DB_Real")
wksInput.Activate
    If Err.Number <> 0 Then
        ActiveWorkbook.Close (False) ' Aktive Arbeitsmappe schließen
        Err.Clear
        strFile = Dir ' Nächsten Eintrag abrufen
        GoTo Fehlerrf ' Beginne wieder bei Fehler
    End If
On Error Resume Next
If Range("B21") = "fix" Then Sheets("Fix").Activate 'Öffne nicht vorhandenes Sheet
Else
Set wksInput = wkbInput.Worksheets("DB_Real")
    If Err.Number <> 0 Then
        ActiveWorkbook.Close (False)
        Err.Clear
        strFile = Dir
        GoTo Fehlerrf
    End If
End If

 

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 On Error in einer Schleife
 12.07.2011 10:05:15 Lennart
NotSolved
12.07.2011 12:28:43 Dekor
Solved
12.07.2011 14:24:23 Gast58509
NotSolved