|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.09.2010 19:35:57 |
Manfred |
|
|
|
28.09.2010 17:44:46 |
Severus |
|
|
 Aw:Aw:VBA Excel2003 Datenimport |
30.09.2010 09:01:13 |
Manfred |
|
|
|
30.09.2010 13:53:01 |
Severus |
|
|
|
30.09.2010 16:02:48 |
Manfred |
|
|
|
01.10.2010 04:17:24 |
Severus |
|
|
|
01.10.2010 11:05:08 |
Manfred |
|
|
|
02.10.2010 02:41:43 |
Severus |
|
|
|
02.10.2010 09:21:56 |
Manfred |
|
|
|
02.10.2010 21:50:30 |
Severus |
|
|
|
05.10.2010 18:52:48 |
Manfred |
|
|
|
05.10.2010 19:41:52 |
Severus |
|
|
Von:
Manfred |
Datum:
30.09.2010 09:01:13 |
Views:
1192 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:VBA Excel2003 Datenimport |
Severus schrieb am 28.09.2010 17:44:46:
Manfred schrieb am 27.09.2010 19:35:57:
Hallo zusammen,
ich bin ein VBA Neuling und wollte fragen ob es möglich ist in einem bestehenden Exceldokument ( Workbook ) einzelne Sheets aus bestehenden Exceldateien zu erstellen...leider habe ich bisher nur einen Code gefunden der es mir erlaubt eine Exceldatei in ein neues Workbook zu importieren.
Im Grunde habe ich ein Exceldokument bei dem es ein Sheet gibt, welches als Benutzeroberfläche dienen soll, bisher habe ich hier ein Commandbutton erstellt mit dem sich eine Userform öffnet mit welcher man dann verschiedene Sheets importieren soll--> nur fehlen mir wie oben geschrieben hierzu die befehle...
Vielleicht kann mir ja jemand helfen, danke schonmal vorab.
Grüße Mani
Wenn ich Dich richtig verstanden habe:
Sub Blatt_einfügen()
Dim srcWB As Excel.Workbook
Dim srcWS As Excel.Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set srcWB = Workbooks("Quelldatei.xls")
If Err.Number <> 0 Then
Err.Clear
Set srcWB = Workbooks.Open("G:\abc\Abteilungsdateien\Vorlagen\Quelldatei.xls")
End If
srcWB.Activate
Set srcWS = srcWB.Sheets("QuellArbeitsblatt")
srcWS.Copy , Workbooks("Zieldatei.xls").Sheets("Blatt_vor_dem_Kopierten")
Set srcWS = Nothing
Set srcWB = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Severus
Danke schonmal für die Hilfe, könnte ich das ganze aber auch mit so einem Code realisieren?
Private Sub BUCHCommandButton_Click()
Dim BUCHWbQu As Workbook
Dim BUCHWbZl As Workbook
Dim BUCHDat As Variant
BUCHDat = Application.GetOpenFilename(filefilter:="XLS-Dateien,*.xls")
Set BUCHWbZl = ActiveWorkbook
Set BUCHWbQu = Workbooks.Open(Filename:=BUCHDat)
BUCHWbQu.Worksheet("Hier den Sheetnamen eintragen").Copy Destinatination:=BUCHWbZl.Worksheet("Zielsheetnamen")
BUCHWbQu.Close
---> DAs habe ich bisher geschrieben, doch leider zeigt er mir immer einen Fehler bei der COPY Zeile.
Vielleicht kannst du mir ja sagen woran es liegt.
Danek greetz Mani |
- 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
|
|
27.09.2010 19:35:57 |
Manfred |
|
|
|
28.09.2010 17:44:46 |
Severus |
|
|
Aw:Aw:VBA Excel2003 Datenimport |
30.09.2010 09:01:13 |
Manfred |
|
|
|
30.09.2010 13:53:01 |
Severus |
|
|
|
30.09.2010 16:02:48 |
Manfred |
|
|
|
01.10.2010 04:17:24 |
Severus |
|
|
|
01.10.2010 11:05:08 |
Manfred |
|
|
|
02.10.2010 02:41:43 |
Severus |
|
|
|
02.10.2010 09:21:56 |
Manfred |
|
|
|
02.10.2010 21:50:30 |
Severus |
|
|
|
05.10.2010 18:52:48 |
Manfred |
|
|
|
05.10.2010 19:41:52 |
Severus |
|
|