|
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 |
|
|
 Aw:Aw:Werte kopieren! |
12.11.2010 21:56:55 |
Carsten |
|
|
|
12.11.2010 23:36:00 |
Severus |
|
|
|
12.11.2010 23:49:02 |
Severus |
|
|
|
12.11.2010 23:51:59 |
Severus |
|
|
Von:
Carsten |
Datum:
12.11.2010 21:56:55 |
Views:
1326 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Werte kopieren! |
Severus schrieb am 12.11.2010 06:15:11:
Wichtig: In der Entwicklungsumgebung Über
Extras->Verweise
einen Verweis auf die Microsoft Scripting Runtime setzen
Option Explicit
Sub kopieren()
Const SUCHORDNER As String = "H:\temp\Test" ' 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
Hallo Severus,
ich habe deinen Code jetzt in ein Modul eingefügt, allerdings erhalte ich den Fehlercode:
Fehler beim Kompilieren:
End If ohne If-Block
Das End If über Weiter: wird dabei markiert.
kannst du mir bitte dabei helfen?
vielen Dank.
MFG
Carsten |
- 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 |
|
|
Aw:Aw:Werte kopieren! |
12.11.2010 21:56:55 |
Carsten |
|
|
|
12.11.2010 23:36:00 |
Severus |
|
|
|
12.11.2010 23:49:02 |
Severus |
|
|
|
12.11.2010 23:51:59 |
Severus |
|
|