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
22.12.2015 09:24:37 Gast69320
NotSolved
22.12.2015 09:28:05 Gast10621
NotSolved
22.12.2015 12:57:00 thomas
NotSolved
Rot VBA User Form HILFE
 22.12.2015 14:39:54 Gast50786
NotSolved

Ansicht des Beitrags:
Von:
Gast50786		 Datum:
22.12.2015 14:39:54		 Views:
761		 Rating:
     
Antwort:
  Ja
Thema:
VBA User Form HILFE

Hallo! Also war der Ordner doch nicht leer. Jetzt der neue Code. Die Zeile 12 war ein versehen und ist gelöscht. Gruß

Private Sub CommandButton1_Click()
Dim i As Long
Dim name As String
Dim quellname As String
Dim quelle As Object
Dim fso As Object

 
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
 
name = "Z:\Projekte\" & ActiveSheet.Cells(4, 2) & Me.TextBox1.Value & Me.TextBox2.Value & Me.TextBox3.Value & Me.TextBox4.Value
quellname = "Z:\leerer Projektordner"

Set fso = CreateObject("Scripting.FileSystemObject")
Set quelle = fso.GetFolder(quellname)
quelle.Copy (Ziel)
 
Set fso = Nothing
Set quelle = Nothing
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
22.12.2015 09:24:37 Gast69320
NotSolved
22.12.2015 09:28:05 Gast10621
NotSolved
22.12.2015 12:57:00 thomas
NotSolved
Rot VBA User Form HILFE
 22.12.2015 14:39:54 Gast50786
NotSolved