Makro selektiert zuviel xldown

Hallo Excel-Profis,
ich habe ein Makro mit dem ich mir aus einer Liste per Autofilter Daten aufrufe und die dann in ein anderes Blatt kopiere.
Eigentlich funktioniert es ganz gut aber ich habe 2 Probleme:
1. Wenn keine Sätze selektiert werden bricht das Makro ab - es sollte einfach eine Meldung kommen, dass keine Sätze gefunden werden.
2. Manchmal selektiert das Makro alle Zeilen von x bis 65556 und dann kann er das im 2ten Blatt nicht einfügen. Das passiert eigentlich nur dann, wenn nur eine Trefferzeile gefunden wird.
Ich weiß aber, das es wegen des Formulares max. 32 Zeilen sein könnten.
Weiß jemand warum er manchmal von einer Zeile aus alles bis nach unten selektiert?
Hier der Code:

Sub Rg_Aufrufen()
Dim nr As Integer
nr = Sheets("Eingabe").Range("f2").Value
Application.ScreenUpdating = False
Sheets("Liste").Select
Dim i As Integer, Alle As Integer
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
Selection.AutoFilter Field:=20, Criteria1:=nr
Selection.AutoFilter Field:=21, Criteria1:="nein"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Eingabe").Select
Range("W40").Select
ActiveSheet.Paste
Sheets("Liste").Select
Selection.ClearContents
ActiveSheet.ShowAllData
End Sub

Vielen Dank für Eure Hilfe
Viele Grüße Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Rg_Aufrufen() set wksL=Thisworkbook.worksheets("Liste") set wksE =Thisworkbook.worksheets("Eingabe") nr = wksE.Range("f2").Value ALLE=1000 for zae1=ALLE to 1 step -1 if worksheetfunction.counta(wksL.rows(zae1))=false then wksL.rows(zae1).entirerow.delete 'Annahmen: Kriterium nr wird in Spalte 3 gesucht, Kriterium "nein" in Spalte 5 if wksL.cells(zae1,3)=nr and wks.cells(zae1,5)="nein" then wksL.rows(zae1)=copy zae2=zae2+1 wksE.rows(39+zae2,"W").paste end if next zae1 wksL.range("A1:AZ1000").clearcontents Application.cutcopymode=false end sub

Hallo Henrik,
vielen Dank für die Hilfe, ich habe das jetzt so hinbekommen:
Selection.AutoFilter Field:=20, Criteria1:=nr
Selection.AutoFilter Field:=21, Criteria1:="nein"
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Eingabe").Select
Range("W39").Select
ActiveSheet.Paste
Sheets("Liste").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
ActiveSheet.ShowAllData
Ich gehe von A1 aus dann geht er auch bei einer Zeile nur einen runter. Dafür übertrage ich einen eher W39 statt W40.
Am Ende lösche ich dann wieder von A2 aus, damit habe ich ja kein Problem (bei A1 löscht ermir sonst die Überschriften und Autofilter).
Also noch mal vielen Dank - hast Du eine Idee, wie man es abfedern kann, das er bei gar keinen Datensätzen aussteigt? Ich hätte lieber eine Meldung.
Vielen Dank noch mal viele Grüße Jens

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread