|
Hallo,
im Rahmen eines Praktikums soll ich verschiedene Experimente mit Hilfe von VBA auswerten. Leider kenne ich mich mit VBA nicht aus und finde auch im Internet aktuell keine passende Lösung.
Ich habe aktuell einen Ordner mit ungefähr 300 Dateien, die ausgewertet werden müssen. Die Auswertung dazu habe ich schon und da klappt auch alles. Jetzt muss ich aber noch überprüfen, ob alle Dateien vollständig sind und falls nicht sollen diese umbenannt werden.
Ich habe nun versucht einen Code zu schreiben, der schaut ob in der Spalte "C" der Wert "Quit" vorkommt, denn dann ist die Tabelle nicht vollständig. Dazu habe ich auch schon mehr oder weniger einen Code.
Mein Problem ist nun, dass ich nicht weiß, wie ich die Datei umbenennen kann, da ich mit relativen Pfaden arbeiten muss. Die Datei soll, falls ein "Quit" vorhanden ist, den selben Namen behalten und nur als Endung soll "_Abbruch" hinzugefügt werden. Also wenn die Datei "VP_13" heißt, soll sie danach "VP_13_Abbruch" heißen. Und falls kein Quit vorhanden ist, soll die Datei einfach wieder geschlossen werden.
Das ist der Code den ich habe, um zu schauen ob ein Quit in der Spalte steht:
Dim Zeile As Long
Dim maxZeile As Long maxZeile = Cells(Rows.Count, "A").End(xlUp).Row
For Zeile = 2 To maxZeile
If Cells(Zeile, 3).Value = "Quit" Then
... und ab hier komme ich nicht weiter.
|