Excel-VBA: Hilfe benötigt :anbet01: - Druckversion
+- MINI² - Die ComMINIty (https://www.mini2.info)
+-- Forum: Diverses (https://www.mini2.info/forumdisplay.php?fid=7)
+--- Forum: MINI² offtopic (https://www.mini2.info/forumdisplay.php?fid=51)
+--- Thema: Excel-VBA: Hilfe benötigt :anbet01: (/showthread.php?tid=26481)
+- MINI² - Die ComMINIty (https://www.mini2.info)
+-- Forum: Diverses (https://www.mini2.info/forumdisplay.php?fid=7)
+--- Forum: MINI² offtopic (https://www.mini2.info/forumdisplay.php?fid=51)
+--- Thema: Excel-VBA: Hilfe benötigt :anbet01: (/showthread.php?tid=26481)
Excel-VBA: Hilfe benötigt :anbet01: - Bloemche - 11.08.2008
Liebe Excel-VBA-Virtuosen,
ich bräuchte bitte eure Hilfe 
Grundsätzlich soll eine kompletts externes Excel-Arbeitsblatt (Range 1:65536) in ein definiertes Arbeitsblatt einer anderen Excel-Datei kopiert/eingefügt werden. Dann werden vier leere Spalten eingefügt und durch Copy/Paste mit Inhalt gefüllt. Datenfilter dazu und fertig. Dieses Makro soll dann auf einem weiteren Arbeitsblatt mit einem anklickbaren Button verbunden und durch nen Klick ausgelöst werden.
Mit dem Excel-Makro-Recorder habe ich folgenden Arbeitsablauf aufgenommen:
Code:
Sub COSMIC()Code:
[align=left]'
[align=left]' COSMIC Rohdaten importieren
' Dieses Makro importiert die COSMIC Rohdaten
'
'
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=L:\FRAEH\_EH_Stab_Teams\Stemper\Qualitätsdatenbank1.xls;M" _
, _
"ode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database P" _
, _
"assword="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk " _
, _
"Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OL" _
, _
"EDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Cells)
.CommandType = xlCmdTable
.CommandText = Array("Sheet1$")
.Name = "Qualitätsdatenbank1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "L:\FRAEH\_EH_Stab_Teams\Stemper\Qualitätsdatenbank1.xls"
.Refresh BackgroundQuery:=False
End With
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
Columns("M:P").Select
Selection.Copy
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub[/align]Leider funktioniert das nur unzureichend. Ich bekomme immer einen Laufzeitfehler 1004 angezeigt. Hat jemand nen Tip oder die Lösung? Bin was das angeht absoluter Laie und dementsprechend hilflos 
Excel-VBA: Hilfe benötigt :anbet01: - SebastianS - 11.08.2008
kann dir zwar nich helfen hab aber nen Link von nem Forum die sich da bestimmt besser mit auskennen
http://foren.activevb.de/cgi-bin/foren/list.pl?forum=7
Excel-VBA: Hilfe benötigt :anbet01: - MINIzicke - 12.08.2008
Während meines Praktikums bei BMW durft ich auch im VBA rumklimpern - ohne jegliche Vorkenntnisse..
Ich kann Dir nur den Tip geben, die Befehle Schritt für Schritt durchlaufen zu lassen und zu gucken, wo genau der Fehler auftritt - aber frag mich net, wie das wieder ging.. 
Es gibt auf jeden Fall die Funktion, wo man das gesamte Makro testen kann und dann eine, wo man Schritt für Schritt vorgeht und sich anschauen kann, was der Rechner nach welchem Befehl macht.. Vielleicht hilfts ja und Dir fällts wie Schuppen aus den Haaren?! 