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

Bild

Betrifft: Windows(--Variable--).Activate Wie? von: Alex K.
Geschrieben am: 07.03.2005 14:02:03

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

Bild


Betrifft: AW: Windows(--Variable--).Activate Wie? von: Matthias G
Geschrieben am: 07.03.2005 14:11:55

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen markieren"