Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Warum Meldung VBA Code 400 ??

Warum Meldung VBA Code 400 ?
Dietmar
Hallo bekomme hierbei immer FehlerCode 400 angezeigt, warum ?
Option Explicit

Sub zustel()
Dim strDatnam As String
Dim wb As Workbook
Dim ws As Worksheet
strDatnam = Dir("c:\eigene Dateien\xy\*.xls")
Do While Len(strDatnam)
Set wb = Workbooks.Open(strDatnam)
Set ws = ThisWorkbook.Sheets.Add
ws.Name = Split(strDatnam, Application.PathSeparator)(UBound(Split(strDatnam, Application. _
PathSeparator)))
wb.Sheets(1).Cells.Copy Destination:=ws.Cells
wb.Close savechanges:=False
strDatnam = Dir
Loop
Set ws = Nothing
Set wb = Nothing
End Sub

Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Warum Meldung VBA Code 400 ?
28.03.2012 08:59:55
Frank
Hallo Dietmar,
füge die Zeile 2 ein, dann sollte es klappen:
wb.Sheets(1).Cells.Copy Destination:=ws.Cells
Application.CutCopyMode = False
wb.Close savechanges:=False
Viele Grüße
Frank.
AW: Warum Meldung VBA Code 400 ?
28.03.2012 16:58:52
Dietmar
Hallo
werde ich Morgen mal probieren.
Vielen Dank !!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige