AW: Datei umbenennen
12.11.2011 16:56:15
fcs
Hallo Jürgen,
wenn du keine Zellbezüge willst, dann hat das Wort "Range" schon mal nichts in einem Code zu suchen.
Oder willst du Namen statt klassischen Zelladressen arbeiten?
Gruß
Franz
Wenn die Namen der beiden Zellbereiche in der aktiven Arbeitsmappe als Bereich die Arbeitsmappe haben dann etwa so.
Sub DateiUmbenennen()
Dim strNameOld As String, strNameNew As String
strNameOld = Application.Range("Datei_prn").Text
strNameNew = Application.Range("Datei_htm").Text
If Dir(strNameOld) = "" Then Exit Sub
If Dir(strNameNew) "" Then VBA.Kill strNameNew
Name strNameOld As strNameNew
End Sub
Ich emphele aber eine Langversion mit ein paar Prüfungen.
Sub DateiUmbenennen()
'Mit Prüfungen und Fehlerhinweisen
Dim strNameOld As String, strNameNew As String
Const csMsg As String = "Datei existiert, überschreiben?"
strNameOld = Application.Range("Datei_prn").Text
strNameNew = Application.Range("Datei_htm").Text
If Dir(strNameOld) "" Then
If Dir(strNameNew) "" Then
If MsgBox(csMsg, vbQuestion + vbOKCancel, "Datei """ & strNameOld _
& """ umbenennen") = vbOK Then
VBA.Kill strNameNew
Name strNameOld As strNameNew
End If
Else
Name strNameOld As strNameNew
End If
Else
MsgBox "Datei """ & strNameOld & """ existiert nicht", _
vbQuestion + vbOK, "Datei umbenennen"
End If
End Sub