im folgenden Code habe ich einen Fehler. Ich möchte, dass nach einer eingegebenen Nummer gefiltert wird. Leider tritt folgender Fehler auf:
Fehler beim Kompilieren
Anweisung außerhalb des Type-Blocks ungültig
Leider kann ich damit nicht viel anfangen. Unten habe ich den Code mal hinzugefügt. Ich hoffe, ihr könnt mir weiterhelfen.
Vielen Dank im Voraus.
Sub Makro3()
Name As String
Workbooks.Open Filename:="D:\LFSG-Neutral.xls" 'Öffnen Datei Neutralleer
Windows("LFSG.xls").Activate 'Springt ins Windows-Fenster LSG
Sheets("Basistabelle").Select 'Öffnet Reiter Basistabelle
Name = Sheets("Lief.vergleich").Cells(7, 2) ' Speichert den Suchbegriff aus Reiter Lief. _
vergleich Zelle B7
Selection.AutoFilter Field:=7, Criteria1:="=& Sheets("Lief.vergleich").Cells(7, 2), Operator:= _
xlAnd", Operator:=xlAnd 'Selektiert in Spalte 7 entspricht 9102220
Rows("2:65536").Select 'wählt Zeile 2 bis 65536 aus
Worksheets("Basistabelle").Rows("2:65536").Copy 'kopiert die ausgewählten Zeilen
Windows("LFSG-Neutral.xls").Activate 'Springt ins Fenster Neutral
Sheets("Basistabelle").Select 'Öffnet Reiter Basistabelle
Range("A2").Select 'fügt ein
ActiveSheet.Paste 'fügt ein
Sheets("Werksauswahl").Select 'Öffnet Reiter Werksauswahl
Application.Run "'LFSG.xls'!Makro1" 'Aktiviert das Makro1 "Aktualisieren"
ActiveWorkbook.SaveAs Filename:="D:\LFSG-Fun" & "-" & Format(Now, "ww.yyyy") & ".xls" ' _
Speichert in Format mit Kalenderwoche und Jahr
ActiveWorkbook.Close 'Schließt die Datei
End Sub