|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.11.2010 00:11:58 |
Carsten |
|
|
|
11.11.2010 00:28:28 |
Severus |
|
|
|
11.11.2010 06:31:43 |
Carsten |
|
|
|
11.11.2010 08:13:40 |
Severus |
|
|
|
11.11.2010 21:57:42 |
Carsten |
|
|
|
12.11.2010 06:15:11 |
Severus |
|
|
|
12.11.2010 21:56:55 |
Carsten |
|
|
|
12.11.2010 23:36:00 |
Severus |
|
|
|
12.11.2010 23:49:02 |
Severus |
|
|
 Aw:Werte kopieren! |
12.11.2010 23:51:59 |
Severus |
|
|
Von:
Severus |
Datum:
12.11.2010 23:51:59 |
Views:
933 |
Rating:
|
Antwort:
|
Thema:
Aw:Werte kopieren! |
Sorry Dieses Forum schluck den halben Code
Sub kopieren()
Const SUCHORDNER As String = "H:\temp\Test"
Dim FSO As New Scripting.FileSystemObject
Dim Ordner As Scripting.Folder
Dim DateiListe As Scripting.Files
Dim Datei As Scripting.File
Dim strDatei As String
Dim xlWB As Excel.Workbook
With ThisWorkbook
.Sheets("Tabelle2").Select
With ActiveSheet
.Range("$B$3:$D$28").Select
Selection.Copy
Set Ordner = FSO.GetFolder(SUCHORDNER)
If Ordner Is Nothing Then Exit Sub
Set DateiListe = Ordner.Files
If DateiListe Is Nothing Then Exit Sub
For Each Datei In DateiListe
strDatei = Datei.Name
If strDatei = ThisWorkbook.Name Then GoTo Weiter
If InStr(1, UCase(Right(Datei.Name, 4)), "XLS", vbBinaryCompare) <> 0 Then
Set xlWB = Workbooks.Open(SUCHORDNER & "\" & Datei.Name)
xlWB.Activate
With xlWB.Sheets(1)
.Activate
.Range("$B$3").Select
Selection.PasteSpecial xlPasteValues
End With
With xlWB.Sheets(2)
.Activate
.Range("$B$3").Select
Selection.PasteSpecial xlPasteValues
End With
xlWB.Close True
ThisWorkbook.Activate
Set xlWB = Nothing
End If
Weiter:
Next
End With
End With
Set DateiListe = Nothing
Set Ordner = Nothing
End Sub
Severus |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
11.11.2010 00:11:58 |
Carsten |
|
|
|
11.11.2010 00:28:28 |
Severus |
|
|
|
11.11.2010 06:31:43 |
Carsten |
|
|
|
11.11.2010 08:13:40 |
Severus |
|
|
|
11.11.2010 21:57:42 |
Carsten |
|
|
|
12.11.2010 06:15:11 |
Severus |
|
|
|
12.11.2010 21:56:55 |
Carsten |
|
|
|
12.11.2010 23:36:00 |
Severus |
|
|
|
12.11.2010 23:49:02 |
Severus |
|
|
Aw:Werte kopieren! |
12.11.2010 23:51:59 |
Severus |
|
|