Thema Datum  Von Nutzer Rating
Antwort
22.12.2015 10:11:19 Tobser92
NotSolved
22.12.2015 10:40:43 Gast76829
NotSolved
22.12.2015 10:57:06 Tobser92
NotSolved
Blau Tabeln verschieben
 22.12.2015 11:50:39 Gast10424
NotSolved
22.12.2015 12:21:26 Gast94194
NotSolved
22.12.2015 12:23:02 Gast97389
NotSolved
22.12.2015 14:42:29 Gast57771
NotSolved
22.12.2015 11:16:45 Gast34991
NotSolved

Ansicht des Beitrags:
Von:
Gast10424		 Datum:
22.12.2015 11:50:39		 Views:
765		 Rating:
     
Antwort:
  Ja
Thema:
Tabeln verschieben

Hallo Tobser! HAbe deinen Code mal lesbarer gemacht. Eigentlich sollte es klappen. Voraussetzung istnatürlich, dass die Zellen nicht leer sind und auch die richtigen Zellen angesprochen sind. Frage aber noch. Woher kommt MainPathA. Ist das eine Konstante / Variable und wenn ja, wie sieht die aus? Gruß

Sub SpeichernA()


Call MPA
Dim sFile As String, sPath As String
sFile = ThisWorkbook.Worksheets("Technologie").Cells(5, 10).Value & "_" & ThisWorkbook.Worksheets("Technologie").Cells(16, 10).Value & "_" & ThisWorkbook.Worksheets("Technologie").Cells(10, 10).Value & ".xlsm"
sPath = MainPathA & ThisWorkbook.Worksheets("Technologie").Cells(7, 5).Value & "_" & ThisWorkbook.Worksheets("Technologie").Cells(5, 10).Value & "\007_Schleifverfahren\Schleiftechnologie\" & sFile
'MsgBox sPath
'MsgBox ThisWorkbook.Path & "\" & ThisWorkbook.Name
If Dir(sPath) = "" Then
    ThisWorkbook.SaveAs sPath
Else
    If ThisWorkbook.Path & "\" & ThisWorkbook.Name = sPath Then
        ThisWorkbook.Save
    Else
        ThisWorkbook.SaveAs sPath
    End If
End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.12.2015 10:11:19 Tobser92
NotSolved
22.12.2015 10:40:43 Gast76829
NotSolved
22.12.2015 10:57:06 Tobser92
NotSolved
Blau Tabeln verschieben
 22.12.2015 11:50:39 Gast10424
NotSolved
22.12.2015 12:21:26 Gast94194
NotSolved
22.12.2015 12:23:02 Gast97389
NotSolved
22.12.2015 14:42:29 Gast57771
NotSolved
22.12.2015 11:16:45 Gast34991
NotSolved