Ich versuche mit Baby steps in VBA weiterzukommen.
Der funktioniert schon, ich hoffe der code ist akzeptabel.
Sub Maske_einfügen_2()
Dim ws1 As Worksheet
Set ws1 = ActiveSheet
Columns("O:O").Select
Sheets("PSS_Demo Best").Select
ActiveWindow.Zoom = 85
ActiveWindow.Zoom = 55
ActiveWindow.Zoom = 40
ActiveWindow.Zoom = 25
Columns("O:DL").Select
Selection.Copy
ws1.Select
Columns("O:O").Select
ActiveSheet.Paste
End Sub
Aber zuvor möchte ich noch meinen mit "CopyC" kopierten Inhalt einer HTML Seite in ein leeres Worksheet einfügen.Habe es mit einem Makro versucht, aber der Debugger gibt mir einen Fehler bei ".CommandType = 0".
Kann mir bitte jemand weiterhelfen?
Danke
Johannes
Sub Report_Import()
' Report Makro
' Tastenkombination: Strg+w
Range("A1").Select
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///G:/FTP_Main_Folder/ANT/KW26_Demo_Stars/PSS_FX_Def/statement.htm", _
Destination:=Range("$A$1"))
.CommandType = 0
.Name = "statement"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub