Datei in neu erstellten Ordner mit variablem Name speichern
20.01.2020 16:04:26
Max
Ich bin ein absoluter Anfänger was die VBA-Programmierung anbelangt. Ich kann die geGOOGLEten Codes jeweils einfach anpassen und zusammenbauen. Leider bin ich mit meiner Vorgehensweise nun am Anschlag...
Folgende Herausforderung:
Ich erstelle in meiner Exceldatei "Projekt Übersicht" mittels Makro einen neuen Ordner (Name: "Projekt Flughafen") im Sharepoint. Im übergeordneten Ordner "Projekte" habe ich eine weitere Exceldatei "Vorlage Projektplan". Nun soll diese Vorlage als "Projekt Flughafen" im neu erstellten Ordner "Projekt Flughafen" abgespeichert werden.
(die Projektbezeichnungen sind variabel, weshalb ich ja auch nicht weiterkomme.... )
Es funktioniert alles, ausser, dass meine Datei jeweils in den Ordner "Projekte" statt in den neu erstellten Ordner abgelegt wird...
Ich bin um jede Hilfe sehr dankbar. :)
Private Sub CommandButton1_Click()
Dim cell As Range
Dim a As Long
Dim lbMsg As Byte
Dim StartZeile As Long
Dim Ws As Worksheet
If TextBox1.Text = "" = True Then
lbMsg = MsgBox("Geben Sie den betroffenen ANU ein", vbExclamation, "fehlende Eingabe")
TextBox1.SetFocus
Exit Sub
End If
If TextBox5.Text = "" = True Then
lbMsg = MsgBox("Geben Sie einen Projektnamen ein", vbExclamation, "fehlende Eingabe")
TextBox5.SetFocus
Exit Sub
End If
If TextBox3.Text = "" = True Then
lbMsg = MsgBox("Geben Sie den Liefertermin an", vbExclamation, "fehlende Eingabe")
TextBox3.SetFocus
Exit Sub
End If
If IsDate(Me.TextBox3.Value) Then
Me.TextBox3 = Format(Me.TextBox3.Value, "dd/mm/yyyy")
End If
If Not IsDate(Me.TextBox3.Value) Then
MsgBox "Bitte gültiges Datum eingeben (dd/mm/yyyy)", vbCritical
TextBox3.SetFocus
Exit Sub
End If
If CDate(Me.TextBox3.Value) Gruss
Max