Datei öffnen
06.02.2009 22:05:44
Werner
zu nachfolgenden Makro habe ich folgende Frage.
Die Datei in der das Makro steht befindet sich auch auf LW:E, wenn ich nun die Datei auf einen anderen Rechner und somit evtl.auch auf einen anderen LW öffnen möchte,muß ich den Bereich:
Workbooks.Open Filename:= _
"E:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung
den Laufwerksbuchtaben ändern.Gibt es eine möglichkeit das Makro so zu Schreiben, dass wenn ich die Datei auf ein anderen LW öffnen möchte der Aktuelle Ort übernommen wird?
Private Sub CommandButton4_Click()
Dim vLinks, ii As Integer, strB As String
Workbooks.Open Filename:= _
"E:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008\Mitarbeiterablage.xls"
Windows("KalkulationKostenrechnungRömerbad25.08.2008.xls").Activate
Sheets("Tabelle4").Select
Sheets("Tabelle4").Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
strB = ActiveSheet.Cells(2, 2) ' Blatt umbenennen
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
"' war bereits vorhanden.", vbExclamation, "weise hin..."
ActiveSheet.Shapes("CommandButton5").Select ' Schaltfläche Positionieren
Selection.ShapeRange.IncrementLeft -668.25
ActiveWorkbook.Save ' Mitarbeiterablage speichern + schließen
ActiveWindow.Close
Else
ActiveSheet.Name = strB
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub
Viele Grüße
Werner