Clever-Excel-Forum

Hallo Tobi,

das musst Du entsprechend einbauen:

  If ExecuteExcel4Macro("'" & strPfad & "[" & strDateiname & "]Tabelle1'!R106C2") = "XY" Then

   Makro1

 Else

   Makro2

 End If

Gruß Uwe

Hallo ihr 2,

ich habe es jetzt ca. 2 Stunden probiert und diesen Zusatz an unterschiedlichsten Stellen in meinen Code eingesetzt. Aber irgendwie komme ich nicht zum finalen Ergebnis. Leider bin ich absolut kein VBA Kenner, so dass ich auch nicht weiß, wo mein Fehler liegt.

Ich habe einmal unten 2 Beispieldateien hochgeladen, wo die VBA Abfrage prüfen soll, ob in der Zelle I6 der Text "test confidential" vorkommt.
Wenn ja, soll er das Makro "alteversionauswerten" aufrufen - wenn es leer ist, dann Makro "neueversionauswerten" vornehmen und entsprechend in eine extra Datei dann die Daten schreiben soll.

Wie bereits geschrieben, weiß ich nicht, wo ich diesen Aufruf jetzt genau einbauen muss, damit er dies für jede Datei in einem Ordner durchprüft.

Bin am verzweifeln und verliere schon meine letzten Haare :s 

Hier auch noch mal mein bisheriger Code (aus meiner Datei, wo die auszulesenden Daten gespeichert werden), der jedoch momentan noch keinen Abgleich anhand eines bestimmten Textes in einer Datei vornimmt:

Hallo Tobi,

Sub QAFsauswerten()



  Dim strDateiname As String

  Dim strPfad      As String

  Dim lngZeile     As Long



With Application.FileDialog(msoFileDialogFolderPicker)

  .InitialFileName = "c:\" '"C:\Users\z563164\Desktop\testquaf"

  .Title = "Ordner"

  .ButtonName = "your Choice :)"

  .InitialView = msoFileDialogViewList

  If .Show = -1 Then

      strPfad = .SelectedItems(1)

      If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"

  Else

      strPfad = ""

  End If

End With

If strPfad = "" Then

  Exit Sub

Else

  'Den 1. Dateinamen holen

  strDateiname = Dir(strPfad & "*.xls")



  'Startzeile festlegen

  lngZeile = 2

  

  'Solange ein Dateiname gelesen wird

  Do While Not strDateiname = ""

      

      'Datei verarbeiten

      

      'was steht in Zelle I6?

      If ExecuteExcel4Macro("'" & strPfad & "[" & strDateiname & "]Tabelle1'!R6C9") = "test confidential" Then

         Call alteversionauswerten(strPfad & strDateiname, lngZeile)

      Else

         Call neueversionauswerten(strPfad & strDateiname, lngZeile)

      End If

      

      'nächsten Dateinamen holen

      strDateiname = Dir()

      

      'Zeilenzähler erhöhen

      lngZeile = lngZeile + 1

   Loop

End If

End Sub

Gruß Uwe

Hallo Uwe,

danke für deine Hilfe. Jetzt bekomme ich einen 1004 Laufzeitfehler Fehlermeldung beim Ausführen des Makros, wobei er folgende Zeile gelb hinterlegt hat:


Im Fehlertext steht: Die eingegebene Formel enthält  einen Fehler. Überprüfen Sie, ob alle erforderlichen Klammern und Argumente vorhanden sind
ÜBerprüfen Sie alle Bezüge auf andere Blätter oder ARbeitsmappen.
Sofern Sie keine Formel eingeben, vermeiden sie Gleichheitszeichen......



Gruß
Tobi

Hallo Tobi,

die Zelladresse muss im R1C1-Stil angegeben werden. Siehe auch hier: Daten aus geschlossener Mappe (1) - Mit Excel4Macro

Gruß Uwe

Hi Uwe,

SUPER Vielen Dank! Kleiner Unterschied aber mit großer Wirkung! Jetzt funktioniert das Makro genauso wie ich es mir vorgestellt habe.

DANKE!

Für alle anderen die das gleiche Problem haben oder einmal haben werden, ich habe nach einem Begriff in D15 gesucht - nach der R1C1 Schreibweise
musste ich noch R15C4 eingeben, anstatt D15. Damit lief dann das Makro einwandfrei durch.

Viele Grüße
Tobi