Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code kürzen (vereinfachen)

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
Anzeige
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:)
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige