Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
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

Vereinfachung eines Makros

Vereinfachung eines Makros
Holger
Guten Morgen,
ich bringe mir ein wenig VBA bei. Deswegen würde ich derne einmal wissen, wie Ihr das unten stehenden Makro vereinfachen würdet.
Sub Bestand()
' Bestand Makro
' Makro am 02.05.2010 erstellt
Sheets("Bestandsübersicht").Select
ActiveSheet.Unprotect
Sheets("Inventar").Select
Range("p1").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("l1").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("A10:Y110").Select
Selection.AutoFilter Field:=2, Criteria1:=""
Range("A15:G110").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("A14").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("N15:Y110").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("H14").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("A8").Select
Selection.AutoFilter
Range("P1").Select
Sheets("Bestandsübersicht").Select
Range("a1").Select
ActiveSheet.Protect
End Sub
Vielen Dank!
Schöne Grüße
Holger

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

Betreff
Benutzer
Anzeige
AW: Vereinfachung eines Makros
17.05.2010 08:33:19
Hajo_Zi
Hallo Holger,
Option Explicit
Sub Bestand()
' Bestand Makro
' Makro am 02.05.2010 erstellt
Sheets("Bestandsübersicht").Unprotect
Sheets("Inventar").Range("p1").Copy Sheets("Bestandsübersicht").Range("l1")
With Sheets("Inventar")
.Range("A10:Y110").AutoFilter Field:=2, Criteria1:=""
.Range("A15:G110").Copy Sheets("Bestandsübersicht").Range("A14")
End With
Sheets("Inventar").Range("N15:Y110").Copy Sheets("Bestandsübersicht").Range("H14")
Sheets("Inventar").Range("A8").AutoFilter
Sheets("Bestandsübersicht").Protect
End Sub


Anzeige
AW: Vereinfachung eines Makros
17.05.2010 08:54:18
Hajo_Zi
Hallo Holger,
oder noch ein wenig kürzer
Option Explicit
Sub Bestand()
' Bestand Makro
' Makro am 02.05.2010 erstellt
Sheets("Bestandsübersicht").Unprotect
Sheets("Inventar").Range("p1").Copy Sheets("Bestandsübersicht").Range("l1")
With Sheets("Inventar")
.Range("A10:Y110").AutoFilter Field:=2, Criteria1:=""
.Range("A15:G110").Copy Sheets("Bestandsübersicht").Range("A14")
.Range("N15:Y110").Copy Sheets("Bestandsübersicht").Range("H14")
.Range("A8").AutoFilter
End With
Sheets("Bestandsübersicht").Protect
End Sub
Gruß Hajo
Anzeige
AW: Vereinfachung eines Makros
17.05.2010 09:28:22
Holger
Hallo Hajo,
vielen Dank für die Vereinfachung.
Das Makro ist jetzt um einiges kürzer und übersichtlicher.
Schönen Gruß
Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige