Code kürzen (vereinfachen)

Forumthread: Code kürzen (vereinfachen)

03.02.2017 16:36:39

Andre

Hallo zusammen
Ich habe mal wieder ein Problem:)
und zwar habe ich ein Makro aufgezeichnet:

Sub suchen()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-01-*" _
, Operator:=xlAnd
Range("A2:A8").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-02-*" _
, Operator:=xlAnd
Range("A9:A15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-03-*" _
, Operator:=xlAnd
Range("A16:A22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-04-*" _
, Operator:=xlAnd
Range("A23:A37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("D6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-05-*" _
, Operator:=xlAnd
Range("A38:A48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("E6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1
Sheets("Tabelle2").Select
Range("F6").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

ich müsste dieses bis 02-25- wiederholen
meine Frage ist ob man diesen Code etwas vereinfachen kann
vielen dank im vorab

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code kürzen (vereinfachen)

03.02.2017 16:52:52

Hajo_Zi
AW: Code kürzen (vereinfachen)

03.02.2017 17:01:56

Andre
AW: Code kürzen (vereinfachen)

03.02.2017 17:35:35

Werner

AW: Code kürzen (vereinfachen)

03.02.2017 16:52:52

Hajo_Zi

mal nur den Anfang

Sub suchen()
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("Tabelle1")
.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-01-*"
.Range("A2:A8").Copy Sheets("Tabelle2").Range("A6")
.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-02-*"
.Range("A9:A15").Copy Sheets("Tabelle2").Range("B6")
.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-03-*"
.Range("A16:A22").Copy Sheets("Tabelle2").Range("C6")

usw.

AW: Code kürzen (vereinfachen)

03.02.2017 17:01:56

Andre

supi Hajo
danke
läuft super:)

AW: Code kürzen (vereinfachen)

03.02.2017 17:35:35

Werner

Hallo Andre,
hier meine Version mit einer For-Next-Schleife

Public Sub Suchen()
Dim strNummer As Long
Dim i As Long
Dim strKriterium As String
Application.ScreenUpdating = False
Application.EnableEvents = False
i = 2
For strNummer = 1 To 25
If strNummer

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Code kürzen (vereinfachen)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread