Hallo zusammen,
ich habe folgendes Problem. Ich will in einer Arbeitsmappe Spalten nach einer Benutzereingabe filtern und dann nur das gefilterte in eine Andere Abeitsmappe kopieren. Beim folgenden Code bekomme ich aber immer die Fehlermeldung "Die Methode "Range" für das Objekt "_Global" ist fehlgeschlagen". ich kenne mich null mit VBA aus und deswegen bitte ich um Rat.
Option Explicit
Sub tst()
Dim sTxt As String
sTxt = InputBox("Teilenummer:")
If sTxt = "" Then Exit Sub
Columns("A:V").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$V$12063").AutoFilter Field:=3, Criteria1:=sTxt
Range("H2:H65500" & ActiveSheet.UsedRange.Rows.Count).Select
Cells.SpecialCells(xlCellTypeVisible).Copy
Application.WindowState = xlNormal
Windows("Errechnung Dehnung_Schrumpfung.xls").Activate
Range("E7").Select
ActiveSheet.Paste
End Sub
MfG
Nopsi
|