Auswahlabfrage einbauen

Liebe Excelfreunde!
Ich habe folgendes Makro aufgezeichnet:


Sub AA()
' AA Makro
' Makro am 05.05.2004 von User07 aufgezeichnet
Sheets("Tabelle1").Select
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:="AA"
Rows("184:419").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
End Sub

Es werden jetzt automatisch aus Tab 1 alle Datensätze mit dem Inhalt "AA" in Spalte 6 in das Tabellenblatt 2 kopiert. Ich habe allerdings über 300 Kriterien nach denen das ausgewählt werden müsste. Anstelle jetzt 300 mal das Makro zu programmieren, würde ich das AA gerne ersetzen durch eine Möglichkeit der manuellen Eingabe wenn das Makro abläuft - d.h. ich werde während der Abfrage gefragt wie das Kriterium heißen soll.
Kannn mir einer helfen?
Vielen Dank!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub AA() ' AA Makro ' Makro am 05.05.2004 von User07 aufgezeichnet hilfsvar=INPUTBOX("wonach hätte wir heute Lust") Sheets("Tabelle1").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=6, Criteria1:=hilfsvar Rows("184:419").Select Selection.Copy Sheets("Tabelle2").Select ActiveSheet.Paste End Sub

Sub AA() ' AA Makro ' Makro am 05.05.2004 von User07 aufgezeichnet hilfsvar = InputBox("Bitte wählen Sie das RZ aus") If hilfsvar = "" Then Exit Sub End If Sheets("Tabelle1").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=6, Criteria1:=hilfsvar Rows("2:600").Select Selection.Copy Sheets("Tabelle2").Select ActiveSheet.Paste Sheets("Tabelle1").Select Rows("1:1").Select Selection.AutoFilter Sheets("Tabelle2").Select End Sub

Sub AA() ' AA Makro ' Makro am 05.05.2004 von User07 aufgezeichnet wobinijetzt=activecell.address hilfsvar = InputBox("Bitte wählen Sie das RZ aus") If hilfsvar = "" Then Exit Sub End If Sheets("Tabelle1").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=6, Criteria1:=hilfsvar Rows("2:600").Select Selection.Copy Sheets("Tabelle2").Select range(wobinijetzt).activate ActiveSheet.Paste Sheets("Tabelle1").Select Rows("1:1").Select Selection.AutoFilter Sheets("Tabelle2").Select End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswahlabfrage einbauen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread