Hallo Excel-Gemeinde,
ich hänge derzeitig an dem Laufzeitfehler '1004' - Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden, fest und bitte um Hilfe.
Über eine Auswahl aus einer Combobox (Arbeitsblatt Gruppe) wollte ich in dem Arbeitsblatt Pk einen Autofilter setzen und je nach Auswahl dann den Autofilter die Auswahl treffen lassen. Bevor der Autofilter jedoch greifen soll, wollte ich den Zielbereich für die ausgewählten Daten zuvor erst einmal löschen lassen, damit keine vorhergehenden Daten sich dort noch befinden können.
An dieser Stelle jedoch kommt es zum oben erwähnten Laufzeitfehler und hänge damit fest.
Die Befehle nach Case "2" wurden mit einem Makrorekorder aufgezeichnet, so dass es mich umso mehr verwundert, dass er gerade in diesem Bereich einen Fehler anzeigt.
Falls jemand die Datei dazu einsehen will, so möge er mir bitte eine Internetadresse nennen, bei der man kostenlos up- und downloaden kann.
Vielen Dank für Eurer Interesse an meiner Anfrage und sage:
in diesem Sinne... have a nice Day... Gruß Helmut
Private Sub ComboBox2_Change()
Sheets("Gruppe").Activate
Range("da1").Select
Select Case ActiveCell.Value
Case "2"
Sheets("Pk").Select
Range("G1:H500").Select
Selection.Clear
Range("A1:B500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="2 "
Selection.Copy
Selection.AutoFilter Field:=1
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False