Hilfe Wartungsplaner - Makro ohne select
13.06.2015 17:33:51
Dhammaserver
Hallo liebes Forum,
mein erster Beitrag. :-)
Arbeite gerade eherenamtlich für einen gemeinnützigen Verein an einem kleinen Wartungsplaner und benötige etwas professionelle Hilfe beim Erstellen einiger Filter bzw. Makros.
Habe z.B. den Beitrag gelesen, dass man in VBA die "select" Funktion meiden sollte, aber genau da hört´s leider bei mir mit meinem Grundkenntnissen auf.
Hier mal ein Beispiel eines kleinen Makros, welches mir zuvor gefilterte Daten von einem Tabellenblatt in ein anderes kopiert. Beim Auslösen flackert der ganze Bildschirm. Wie kann man dies z.B. ohne select umsetzen?
Danke schon mal vorab für die Hilfe
Dhammaserver
Sub Wartungsprotokoll_erstellen()
' Wartungsprotokoll_erstellen Makro
' kopiere Daten aus Wartungsplaner
Sheets("Wartungsplaner").Select
Range("A13:E13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
' paste Daten in Wartungsprotokoll
Sheets("Wartungsprotokoll").Select
Range("A7").Select
ActiveSheet.Paste
Range("F7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Helfer/-in"
Range("G7").Select
ActiveCell.FormulaR1C1 = "Datum"
Range("H7").Select
ActiveCell.FormulaR1C1 = "Wartungsstatus"
' Tabelle in Wartungsprotokoll formatieren
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearFormats
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$7:$H$400"), , xlYes).Name = _
"Tabelle6"
Range("A7:H400").Select
ActiveSheet.ListObjects("Tabelle6").TableStyle = "TableStyleMedium9"
ActiveSheet.ListObjects("Tabelle6").Unlist
' Zeilenumbruch Spalte E - Wartungsbeschreibung
Columns("E:E").Select
With Selection
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub