Thema Datum  Von Nutzer Rating
Antwort
Rot In fremden Excel-Dateien Werte vergleichen
14.06.2018 23:01:12 Maria
NotSolved
15.06.2018 08:13:42 Gast79577
NotSolved
15.06.2018 13:38:53 Maria
NotSolved
15.06.2018 13:59:46 Gast64332
NotSolved
15.06.2018 22:38:30 Gast58893
Solved

Ansicht des Beitrags:
Von:
Maria
Datum:
14.06.2018 23:01:12
Views:
102
Rating: Antwort:
  Ja
Thema:
In fremden Excel-Dateien Werte vergleichen
Hallo zusammen,
 
ich hoffe Du kannst mir helfen. Ich habe in einer Excel-Datei ein Makro programmiert, dass alle Dateien (Excel) in einem Verzeichnis öffnet und prüft, ob der Wert der einen Zelle größer ist als der einer anderen Zelle. Falls das der Fall ist, soll dies angezeigt werden. Nach dem Aufrufen des Makros wird zwar die erste Datei geöffnet, aber dann der folgende Fehler angezeigt:
Laufzeitfehler 9. Index außerhalb des gültigen Bereichs.
Beim Debugging wird die fettgedruckte Zeile im unten aufgeführten Makro gelb unterlegt.
Wie kann ich das Makro korrigieren?
 
Danke
 
 
Sub Dateien_prüfen()
 
Dim Dateiname As String
Dim StrTyp As String
Dim Dateipfad As String
 
Dateipfad = ThisWorkbook.Path & "\" & "Live\"
StrTyp = "*.xlsb"
Dateiname = Dir(Dateipfad & StrTyp)
Do While Dateiname <> ""
    Workbooks.Open Filename:=Dateipfad & Dateiname
 
'Überprüfung, ob Handlungsbedarf
If Sheets("Tab1").Range("AE11").Value > Sheets("Tab1").Range("AF11").Value Then
      MsgBox "Handlungsbedarf"
    End If
Dateiname = Dir
Loop
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot In fremden Excel-Dateien Werte vergleichen
14.06.2018 23:01:12 Maria
NotSolved
15.06.2018 08:13:42 Gast79577
NotSolved
15.06.2018 13:38:53 Maria
NotSolved
15.06.2018 13:59:46 Gast64332
NotSolved
15.06.2018 22:38:30 Gast58893
Solved