Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2024 16:37:24
04.10.2024 15:47:10
04.10.2024 15:12:44
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

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

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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige