Microsoft Excel

Herbers Excel/VBA-Archiv

Makro auf ws2 ausloesen | Herbers Excel-Forum


Betrifft: Makro auf ws2 ausloesen von: Helge Kuehn
Geschrieben am: 04.02.2010 14:06:19

Guten Abend!

Hab folgendes Makro aufgezeichnet:

Sub Import_txt()

Sheets(2).Range("A4:D65000").Clear

' Import_txt Macro
' Macro recorded 04/02/2010 by HK

   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\user\My Documents\Downloads\DataDirect.txt", _
        Destination:=Range("A4"))
        .Name = "DataDirect"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 9, 9, 2, 2, 9)
        .TextFileFixedColumnWidths = Array(8, 9, 6, 6, 20, 5)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
End Sub

In der UF gibt es einen Button, der das Makro ruft. Beim druecken wir es auf dem Sheet 1 ausgeloest, obwohl ich auf ws2 haben will. wie kann ich das aendern?

  

Betrifft: AW: Makro auf ws2 ausloesen von: Josef Ehrensberger
Geschrieben am: 04.02.2010 14:16:58

Hallo Helge,


in dem du auf das entsprechende Blatt verweist.


Sub Import_txt()
  ' Import_txt Macro
  ' Macro recorded 04/02/2010 by HK
  With Sheets(2)
    .Range("A4:D65000").Clear
    With .QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\user\My Documents\Downloads\DataDirect.txt", _
        Destination:=.Range("A4"))
      .Name = "DataDirect"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .TextFilePromptOnRefresh = False
      .TextFilePlatform = 437
      .TextFileStartRow = 1
      .TextFileParseType = xlFixedWidth
      .TextFileTextQualifier = xlTextQualifierDoubleQuote
      .TextFileConsecutiveDelimiter = False
      .TextFileTabDelimiter = True
      .TextFileSemicolonDelimiter = False
      .TextFileCommaDelimiter = False
      .TextFileSpaceDelimiter = False
      .TextFileColumnDataTypes = Array(2, 2, 9, 9, 2, 2, 9)
      .TextFileFixedColumnWidths = Array(8, 9, 6, 6, 20, 5)
      .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
    End With
    .Columns("A:C").EntireColumn.AutoFit
  End With
End Sub


Gruß Sepp



  

Betrifft: AW: Makro auf ws2 ausloesen von: Helge Kuehn
Geschrieben am: 04.02.2010 14:18:33

Danke Sepp,
wusste einfach nicht wie ich das mache :)