Vollständiger Pfad...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Vollständiger Pfad... von: Drazen
Geschrieben am: 10.03.2005 10:21:03

Hallo,

mit folgendem Code:

Sub EXPORT()
On Error Resume Next
Const LW = "C:\"
Const Pfad = "C:\Programme\APPOSS\ALSKOP SOLUTION\RECHNUNGEN"
Dim Mappe As Workbook
Dim Tabelle1 As Worksheet, Tabelle2 As Worksheet
Dim s As String
Dim i As Integer
ChDrive LW
ChDir Pfad
Set Tabelle1 = ThisWorkbook.Sheets("RECHNUNG")
Set Tabelle2 = ThisWorkbook.Sheets("RECHNUNGFF")
s = "RNr " & Sheets("RECHNUNG").Range("K13").Value & " " & Sheets("RECHNUNG").Range("K11").Value
Set Mappe = Workbooks.Add
Tabelle1.Copy Before:=Mappe.Worksheets(1)
Tabelle2.Copy Before:=Mappe.Worksheets(1)
Application.DisplayAlerts = False
For i = Mappe.Sheets.Count To 3 Step -1
  Mappe.Sheets(i).Delete
Next
Sheets("RECHNUNGFF").Range("D42").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=(R[1]C[7]*RECHNUNG!R[-20]C[5])/100"
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:=s
ActiveWorkbook.Close
MsgBox ("Ihre Rechnung wurde im Ordner ") & Pfad & (" gespeichert."), vbOKOnly
End Sub


speichere ich zwei Blätter ausm meiner Mappe im o.g. Pfad. Klappt auch prima.
Jetzt habe ich die ganze Mappe auf einen anderen PC im Netz gespeichert und starte sie von dort aus auch. Jetzt arbeite ich quasi an PC1(mein PC) mit einer Mappe die auf PC2 ist, und möchte diesen Export auch auf PC2 dann speichern. Jetzt bekomme ich einen LaufzeitFehler 13, warum?
Muss ich im Pfad noch irgendwie was ändern zum speichern, zB Netzwerkumgebung/PC2/C:/.... oder ähnlich damit ich auf die Mappe von jedem beliebigen PC aus dem Netz auf die Mappe zugreifen kann??

Grüsse
Drazen
Bild


Betrifft: AW: Vollständiger Pfad... von: u_
Geschrieben am: 10.03.2005 10:29:59

Hallo,
so sollte es gehen.
Sub EXPORT()
  On Error Resume Next
  'Const LW = "C:\"
  'Const Pfad = "C:\Programme\APPOSS\ALSKOP SOLUTION\RECHNUNGEN"
  Dim Mappe As Workbook
  Dim Tabelle1 As Worksheet, Tabelle2 As Worksheet
  Dim s As String, Pfad As String
  Dim i As Integer
  'ChDrive LW
  'ChDir Pfad
  Set Tabelle1 = ThisWorkbook.Sheets("RECHNUNG")
  Set Tabelle2 = ThisWorkbook.Sheets("RECHNUNGFF")
  Pfad = ThisWorkbook.Path
  s = Pfad & "\RNr " & Sheets("RECHNUNG").Range("K13").Value & " " & Sheets("RECHNUNG").Range("K11").Value
  Set Mappe = Workbooks.Add
  Tabelle1.Copy Before:=Mappe.Worksheets(1)
  Tabelle2.Copy Before:=Mappe.Worksheets(1)
  Application.DisplayAlerts = False
  For i = Mappe.Sheets.Count To 3 Step -1
    Mappe.Sheets(i).Delete
  Next
  Sheets("RECHNUNGFF").Range("D42").FormulaR1C1 = "=(R[1]C[7]*RECHNUNG!R[-20]C[5])/100"
  Application.DisplayAlerts = True
  ActiveWorkbook.SaveAs Filename:=s
  ActiveWorkbook.Close
  MsgBox ("Ihre Rechnung wurde im Ordner ") & Pfad & (" gespeichert."), vbOKOnly
End Sub

Gruß


Bild


Betrifft: AW: Vollständiger Pfad... von: Drazen
Geschrieben am: 10.03.2005 10:33:36

Hallo,

...und wo wird dann gespeichert? Wo finde ich die Tabellen dann nach dem Speichern ?

Grüsse
Drazen


Bild


Betrifft: AW: Vollständiger Pfad... von: u_
Geschrieben am: 10.03.2005 10:51:26

Hallo,
in dem gleichen Ordner, in dem die Mappe mit dem Makro steht.
Thisworkbook.path

Gruß


Bild


Betrifft: AW: Vollständiger Pfad... von: Drazen
Geschrieben am: 10.03.2005 13:37:07

Hi,

klappt wunderbar, vielen Dank.

Grüsse
Drazen


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wer kenn diese Formel =GETZAHL(A3;"(";")""