Ich habe mich etwas mit dem Thema VBA beschäftigt und bfestgestellt das es mir eine große Hilfe sein könnte, wenn alles so liefe wie ich möchte.
Ich erstelle nämlich täglich viele Grafiken für die ImageBox der Seite www.Web-toolbox.net, und da wäre es schon eine enorme Erleichterung wenn ich die Grafiken alle unter dem selben Namen in Photoshop speichern könnte, bzw. mir da ein Script zum speichern der dateien anlegen könnte.
Da Photoshop aber dann die alten Dateien überschreibt möchte ich ein Programm schreiben das eine Datei umbenennt sobald diese erstellt wird. Das sieht so aus:
------------------------------------
Sub datei_umbenennen()
Dim strFile As String
Dim Abbruch As Integer
Dim zahler As Integer
zahler = 0
start:
Abbruch = MsgBox("Abbruch?", vbYesNo, "Abbruch?")
If Abbruch = vbYes Then GoTo Ende
strFile = "c:\test.txt"
If Dir(strFile) = "" Then
GoTo start
Else
zahler = zahler + 1
Name ("C:\test.txt") As ("C:\test" & zahler & ".txt")
GoTo start
End If
Ende:
End Sub
------------------------------------
Das funktioniert auch ganz toll. Nur muss ich jedesmal mit Ja bestätigen wenn wieder eine Datei erstellt wurde, und das ist nicht in meinem Sinne. Wenn ich die Box rausnehme ist Excel ja im EndlosLoop... Hat da jemand eine Idee? Wie bekomme ich das Programm dazu nur zu stoppen wenn ich auf ja klicke, und sich nicht aufzuhängen?