Hilfe Wartungsplaner - Makro ohne select

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Wartungsprotokoll_erstellen() ' Wartungsprotokoll_erstellen Makro Dim Loletzte As Long With Sheets("Wartungsplaner") Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row Range("A13:E" & Loletzte).Copy Sheets("Wartungsprotokoll").Range("A7") End With With Sheets("Wartungsprotokoll") .Range("A7") = "Helfer/-in" .Range("G7") = "Datum" .Range("H7") = "Wartungsstatus" Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) .Range("A7:A" & Loletzte).ClearFormats .ListObjects.Add(xlSrcRange, Range("$A$7:$H$400"), , xlYes).Name = _ "Tabelle6" .Range("A7:H400").ListObjects("Tabelle6").TableStyle = "TableStyleMedium9" .ListObjects("Tabelle6").Unlist With .Columns("E:E") .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End With End Sub

Sub Wartungsprotokoll_erstellen() ' Wartungsprotokoll_erstellen Makro ' kopiere Daten aus Wartungsplaner With Sheets("Wartungsplaner").Range("A13:E13") Range(.Cells, .Cells.End(xlDown)).SpecialCells(xlCellTypeVisible).Copy End With ' paste Daten in Wartungsprotokoll With Sheets("Wartungsprotokoll") .Range("A7").PasteSpecial xlPasteAll Application.CutCopyMode = False .Range("F7").FormulaR1C1 = "Helfer/-in" .Range("G7").FormulaR1C1 = "Datum" .Range("H7").FormulaR1C1 = "Wartungsstatus" ' Tabelle in Wartungsprotokoll formatieren With .Range("A7") With Range(.Cells, .End(xlToRight)) Range(.Cells, .End(xlDown)).ClearFormats End With End With .ListObjects.Add(xlSrcRange, .Range("$A$7:$H$400"), , xlYes).Name = "Tabelle6" .ListObjects("Tabelle6").TableStyle = "TableStyleMedium9" .ListObjects("Tabelle6").Unlist ' Zeilenumbruch Spalte E - Wartungsbeschreibung With .Columns("E:E") .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End With End Sub

Hallo alle,
erst einmal vielen herzlichen Dank für die schnellen und hilfreichen Tipps. Bin schon seit einigen Wochen als Leser im Forum und sehe...hier werden Sie geholfen! ;-)
Der Wartungsplaner ist vom Konzept her soweit eigentlich fertig. Es fehlt eben nur noch das Feintuning. Habe vorhin auch kurz mit Hajo telefoniert, von dem ich auch viele wertvolle Beiträge gelesen habe. Leider hat er momentan keine Zeit, betont aber wie wichtig es ist, dass gleich von Anfang an alles richtig eingestellt sein sollte.
Würde sich denn jemand von euch (ggf. auch als Dienstleister) bereit erklären und mal über den Wartungsplaner schauen? Ich mach das wie gesagt ehrenamtlich, investiere aber gerne ein paar Stunden aus eigener Tasche, damit es später auch richtig funktioniert.
Freue mich über Rückmeldung...
Viele Grüße
Smedo

Beliebteste Forumthreads (12 Monate)

Hilfe Wartungsplaner - Makro ohne select

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread