Herbers Excel-Forum - das Archiv

Set

  • Set von Ludwig vom 20.12.2006 13:48:21
    • AW: Set - von Andi am 20.12.2006 13:54:33
      • AW: Set - von Ludwig am 20.12.2006 14:21:25
        • AW: Set - von ChrisL am 20.12.2006 18:37:01
          • AW: Set - von Ludwig am 21.12.2006 11:17:32
Bild

Betrifft: Set
von: Ludwig

Geschrieben am: 20.12.2006 13:48:21
Hallo Zusammen
Folgendes Text-File habe ich als Exceltabelle geöffnet:
A25781-2.M001.txt
Nun möchte ich Daten aus dem File selektieren.
Set TB1 = Worksheets(sFile)
(sFile ist eine Variant-Variable mit Text gefüllt, z.B. "A25781-2.M001.txt".)
...
Leider gibt es eine Fehlermeldung!
Kann mir jemand sagen wie der Set-Befehl hier lauten muß?
Vielen Dank im voraus.
Gruß Ludwig
Bild

Betrifft: AW: Set
von: Andi
Geschrieben am: 20.12.2006 13:54:33
Hi,
wenn TB1 ein Tabellenblatt ist und keine Datei, dann musst Du das .txt von der Variable abschneiden.
Schönen Gruß,
Andi
Bild

Betrifft: AW: Set
von: Ludwig

Geschrieben am: 20.12.2006 14:21:25
Hallo Andi
Dim TB1 As Worksheet
Die geöffnete Datei is allerdings eine Textdatei mit Excel geöffnet:
Workbooks.OpenText Filename:=sFile _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="=", _
FieldInfo:=Array(Array(1, 1), Array(2, 1))
Hast Du eine Idee?
Gruß Ludwig
Bild

Betrifft: AW: Set
von: ChrisL
Geschrieben am: 20.12.2006 18:37:01
Hallo Ludwig
Vielleicht genügt es das aktive Blatt anzusprechen z.B.
ActiveSheet.Range("A1").Copy
oder ganz ohne nähere Bezeichnung
Range("A1").Copy
Gruss
Chris
Bild

Betrifft: AW: Set
von: Ludwig
Geschrieben am: 21.12.2006 11:17:32
Danke Andi, Chris
Hat geklappt!
Gruß Ludwig
 Bild