Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel Diagramme mit Makros erstellen - mehrer tabellenabschnitte

Frage Microsoft Microsoft Office

Mitglied: hassati

hassati (Level 1) - Jetzt verbinden

10.08.2009, aktualisiert 11.09.2009, 5085 Aufrufe

Hallo,


ich möchte aus mehreren Excel Files die Tabellen im ersten Sheet in ein einziges Excel File kopieren.
Dabei sollen die Tabellen im neuem Excel File jeweils in einem extra sheet kopiert werden.

Hab ein Makro gefunden, jedoch kopiert das Makro die Tabellen in ein einziges Sheet:

01.
Option Explicit 
02.
Private Type BrowseInfo 
03.
hwndOwner As Long 
04.
pIDLRoot As Long 
05.
pszDisplayName As Long 
06.
lpszTitle As Long 
07.
ulFlags As Long 
08.
lpfnCallback As Long 
09.
lParam As Long 
10.
iImage As Long 
11.
End Type 
12.
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long 
13.
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pIDList As Long, ByVal lpBuffer As String) As Long 
14.
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long 
15.
Sub makro01() 
16.
Dim i As Integer, letzte As Integer 
17.
Application.DisplayAlerts = False 
18.
With Application.FileSearch 
19.
.NewSearch 
20.
.LookIn = Ordnerwählen("Ab welchem Verzeichnis einlesen?") 
21.
.SearchSubFolders = False 
22.
.Filename = "*.xls" 
23.
If .Execute() > 0 Then 
24.
x = 1 
25.
For i = 1 To .FoundFiles.Count 
26.
Workbooks.Open Filename:=.FoundFiles(i) 
27.
 
28.
Rem hier deine bereichsangaben leicht anpassbar sind 
29.
 
30.
Workbooks(2).Sheets(1).Range("A3:C60", "F3:F60").Copy 
31.
 
32.
letzte = Workbooks(1).Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 
33.
Workbooks(1).Sheets(1).Cells(letzte, 1).Insert Shift:=xlDown 
34.
Workbooks(2).Sheets(x).Application.CutCopyMode = False 
35.
Workbooks(2).Close 
36.
x = x + 1 
37.
Next i 
38.
End If 
39.
End With 
40.
Application.DisplayAlerts = True 
41.
End Sub 
42.
Private Function Ordnerwählen(ByVal strTitle As String) As String 
43.
Dim lngIDList As Long 
44.
Dim strBuffer As String 
45.
Dim UserBrowseInfo As BrowseInfo 
46.
With UserBrowseInfo 
47.
.hwndOwner = 0 
48.
.lpszTitle = lstrcat(strTitle, "") 
49.
.ulFlags = 3 
50.
End With 
51.
lngIDList = SHBrowseForFolder(UserBrowseInfo) 
52.
If (lngIDList) Then 
53.
strBuffer = Space(260) 
54.
SHGetPathFromIDList lngIDList, strBuffer 
55.
strBuffer = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1) 
56.
Ordnerwählen = strBuffer 
57.
End If 
58.
End Function
[Edit Biber] Codetags nachgetragen [/Edit]
Ähnliche Inhalte
Microsoft Office
Excel 2007 aus Zellen Diagramm erstellen
Frage von 103148Microsoft Office4 Kommentare

Hallo, ich stehe wohl auf dem "Schlauch". Ich habe ca 250 Einträge in einer Zellenreihe also vertikal. Diese möchte ...

Microsoft Office
Excel 2010 - Tabelle mit mehreren Makros?
Frage von Norderney95Microsoft Office2 Kommentare

Ich brauche jeden Monat eine Arbeitsmappe (wie in der angehängten Datei), die folgendes enthält - 1. Blatt „Summe“ - 2. Blatt ...

VB for Applications
Excel Makros
Frage von chaos2goVB for Applications2 Kommentare

Hallo Gemeinde, File Größe über 500k Einträge Steigend . ich bekomme Monatlich ein Raw Dump aus unserer DB als ...

Microsoft Office
Excel 2010 druckt keine Diagramme
gelöst Frage von IceAgeMicrosoft Office6 Kommentare

Mahlzeit Liebe Administratoren, ich habe hier eine Excel Liste welche diverse Daten aus vertrieblichen Aktivitäten enthält. Hier werden z.B. ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 13 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 14 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 22 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Windows 10
Alle Programme mit bestimmtem Namen automatisch (per GPO) deinstallieren
gelöst Frage von lordofremixesWindows 1012 Kommentare

Hallo zusammen, gibt es eine Möglichkeit, alle Programme beginnend mit z.B. "Dell" im Namen per Script und somit per ...