Windows(--Variable--).Activate Wie?

Forumthread: Windows(--Variable--).Activate Wie?

07.03.2005 14:02:03

Alex

Hallo zusammen habe ein kleines Problem.
Wie bekomme ich in Diesen Befehl: Windows(--Variable--).Activate eine Variable, dort wo Variable steht. Habe folgendes vor:
Einlesen der Ladeliste
Sheets("Eingang").Select
Range("A1").Select
Dim textdatei As Variant
textdatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:="" & textdatei, Origin _
:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array _
(0, 1), Array(5, 2), Array(8, 1), Array(14, 2), Array(24, 1), Array(104, 1), Array(132, 1), _
Array(137, 1)), TrailingMinusNumbers:=True
Range("B:B,D:D").Select
Selection.Copy
Windows("Mappe2.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(" " & textdatei).Activate
ActiveWorkbook.Close
Range("A1").Select

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Windows(--Variable--).Activate Wie?

07.03.2005 14:11:55

Matthias

AW: Windows(--Variable--).Activate Wie?

07.03.2005 14:11:55

Matthias

Hallo Alex,
ungetestet, aber so müsste es klappen:

Sub test()
'Einlesen der Ladeliste
Sheets("Eingang").Select
Range("A1").Select
Dim textdatei As Variant
Dim WB_Text As Workbook 'Deklaration eines Objekts vom Typ Workbook
textdatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:="" & textdatei, Origin _
:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array _
(0, 1), Array(5, 2), Array(8, 1), Array(14, 2), Array(24, 1), Array(104, 1), Array(132, 1), _
Array(137, 1)), TrailingMinusNumbers:=True
Set WB_Text = ActiveWorkbook 'Zuweisen der Variable zum Workbook
Range("B:B,D:D").Copy
Workbooks("Mappe2.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(WB_Text).Close
Range("A1").Select
End Sub

Du kannst auch auf das Workbooks("Mappe2.xls").Activate verzichten, wenn du das Ziel direkt angibst:
Workbooks("Mappe2.xls").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
(was bei dir Selection ist, ist nicht explizit agegeben, du kannst es durch den ausgewählten Bereich (z.B. Range("A1")) ersetzen.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Windows(--Variable--).Activate Wie?

Forumthread: Windows(--Variable--).Activate Wie?

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread