Hallo VBA begeisterte,
ich habe ein Excel-Stückliste welche ich aus EPLAN P8 generiere und mittels SVerweis hole ich mir Preise, etc. aus einem anderen Excel File.
Wenn ich die Datei nun zu unserem Lohnfertiger senden möchte müsssen sämtliche in der Tabelle enthaltenen SVerweise weg und es sollen nur die Werte
stehen bleiben.
Das mit dem Speichern usw. funktioniert nur weis ich nicht wo und wie ich ihm sage, dass er nur Werte mitnehmen soll.
Kann mir jemand weiterhelfen????
Danke
Hier der Code:
Sub Speichern_EPG()
Dim ord As String
Dim Dateiname As String
Dim Antwort As Integer
Dim Wert As String
Dim rngZelle As Range
Dim lngAnz As Long
Application.ScreenUpdating = False
'prüfen ob ein Ordner vorhanden ist und falls nicht
'fragen ob Ordner erstellt werden soll
'Datei Speichern unter angegeben Pfad mit Erstellung des Ordners und Speicherung als Preisliste_SSL_Lieferanten_V0.
Wert = [A2].Value
ord = "P:\gba\abteilungen\AEC\EPLAN\Data\Projekte\KEBA AG\" & Wert & ".edb" & "\DOC" & "\Angebot"
If Dir(ord, vbDirectory) <> "" Then
MsgBox "Ein Ordner mit dem Namen Angebot ist im Verzeichnis " & ord & " schon vorhanden!"
MsgBox "Es wird kein Ordner angelegt das Dokument wird jedoch in den vorhandenen Ordner gespeichert!"
Else
Antwort = MsgBox("Der Ordner " & ord & " ist nicht vorhanden!" _
& vbNewLine _
& "Soll der Ordner angelegt werden?", vbYesNo)
If Antwort = vbYes Then
MkDir ord
MsgBox "Der Ordner " & ord & " wurde angelegt und die Datei darin gespeichert!"
Else
MsgBox "Es wurden keine Änderungen vorgenommen!"
End If
End If
ActiveWorkbook.SaveCopyAs Filename:="P:\gba\abteilungen\AEC\EPLAN\Data\Projekte\KEBA AG\" & Wert & ".edb" & "\DOC" & "\Angebot\Preisliste_SSL_Lieferanten_V0_EPG.xlsx" _
Application.ScreenUpdating = True
End Sub
|