Fehlermeldung
17.09.2003 08:57:38
Martin Halberstadt
mal wieder habe ich ein Problem!
Und zwar kriege ich bei:
Range(Range("A4:G4"), Selection.End(xlDown)).Copy
folgende Fehlermeldung:
Laufzeitfehler 1004
Die Methode Range für das Objekt Worksheet ist fehlgeschlagen.
Eigentlich müsste Excel bei dem Makro falls optTelefon1 = True von Tabelle1 in Tabelle2 springen, diese filtern und die Spalten A bis G mit den gefilterten Daten wieder in Tabelle1 in das Listenfeld lstAuswahl einfügen.
Zwischengespeichert werden die Daten in einem neu eingefügten Tabellenblatt namens "Temp".
Private Sub cboAuswahl_Click()
Dim Feld As Variant
Application.ScreenUpdating = False
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Temp"
If optTelefon1.Value = True Then
Sheets("Tabelle2").Select
Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl
Range(Range("A4:G4"), Selection.End(xlDown)).Copy
Worksheets("Temp").Select
Range("A1").PasteSpecial Paste:=xlPasteAll
Feld = Range("A1:G" & CStr(Range("D65536").End(xlUp).row))
Sheets("Auswahl-Maske").Select
lstAuswahl.List = Feld
Application.DisplayAlerts = False
Worksheets("Temp").Delete
etc.
Warum hängt sich das Makro auf?
Ich hoffe mir kann jemand helfen!
MfG,
Martin Halberstadt