Thema Datum  Von Nutzer Rating
Antwort
21.12.2015 22:08:17 thomas
Solved
21.12.2015 22:45:49 Gast96857
NotSolved
21.12.2015 22:59:07 Thomas
NotSolved
21.12.2015 23:13:09 Gast53287
NotSolved
21.12.2015 23:17:31 Gast50501
NotSolved
Blau VBA User Form HILFE
 22.12.2015 09:24:37 Gast69320
NotSolved
22.12.2015 09:28:05 Gast10621
NotSolved
22.12.2015 12:57:00 thomas
NotSolved
22.12.2015 14:39:54 Gast50786
NotSolved

Ansicht des Beitrags:
Von:
Gast69320		 Datum:
22.12.2015 09:24:37		 Views:
746		 Rating:
     
Antwort:
  Ja
Thema:
VBA User Form HILFE

Dann wäre das der Code. Der leere Projektordner ist ja leer! Den zu kopieren und umzubenennen ist da eigentlich unnötig. Man prüft, ob es einen Ordner mit dem neuen Namen schon gibt und wenn nicht legt man den an. In der Zeile name muss lediglich am Anfang der Laufwerksbuchstabe geändert werden. GRuß

 

Private Sub CommandButton1_Click()
Dim i As Long
Dim name As String

ActiveSheet.Rows("5:5").Insert Shift:=xlDown
ActiveSheet.Rows(4).Copy Destination:=ActiveSheet.Rows(5)
ActiveSheet.Rows(4).Hidden = True

For i = 1 To 7
 ActiveSheet.Cells(5, 2 + i) = Me.Controls("Textbox" & i).Value
Next i
Me.TextBox1.Value

name = "Z:\Projekte\" & ActiveSheet.Cells(4, 2) & Me.TextBox1.Value & Me.TextBox2.Value & Me.TextBox3.Value & Me.TextBox4.Value

If Dir(name, vbDirectory) = "" Then MkDir (name)

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
21.12.2015 22:08:17 thomas
Solved
21.12.2015 22:45:49 Gast96857
NotSolved
21.12.2015 22:59:07 Thomas
NotSolved
21.12.2015 23:13:09 Gast53287
NotSolved
21.12.2015 23:17:31 Gast50501
NotSolved
Blau VBA User Form HILFE
 22.12.2015 09:24:37 Gast69320
NotSolved
22.12.2015 09:28:05 Gast10621
NotSolved
22.12.2015 12:57:00 thomas
NotSolved
22.12.2015 14:39:54 Gast50786
NotSolved