AW: zuletzt geänderte Zellen farblich markie
01.03.2021 11:17:35
Bernd
Hallo Nepumuk,
ich glaube, ich bringe mal den gesamten Code rein. Du wirst es sicher viel schneller erkennen, was ich machen möchte...
Sieht sicher sehr wirr für dich aus.... aber ich glaube, jeder fängt mal so an... :-)
Sicher geht das alles auch viel einfacher, ich kann`s aber leider nicht anders..
LG, Bernd
Sub ZeilenUndSpaltenAnpassen()
' ZeilenUndSpaltenAnpassen Makro
' Löschen der Zeilen und Spalten
If ActiveSheet.Name = "Tabelle1" Then
Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Copy After:=Worksheets("Tabelle1")
ActiveSheet.Name = "Arbeitsdatei"
Rows("5").Select
Selection.Delete Shift:=xlUp
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A:A,C:C,F:F,H:H,J:J,N:N,P:P,R:R,S:S").Select
Range("P1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
' LeerZeichenSpalteILöschen Makro
Range("I1").FormulaR1C1 = "Betrag 999"
Range("A1").Select
End If
'Filtereinstellungen auf null setzen
Worksheets("Arbeitsdatei").Activate
Range("A1:J3000").AutoFilter
'Filter wählen nach Kategorie "PartGs" für 1020,1030,1050,1055,1070,1080,1085 und 1096 _
anpassen
'ActiveSheet.Range("A1:LJ3000").AutoFilter 5, "LE1020", xlOr, "LE1030", xlOr, "LE1050", _
xlOr, "LE1055", xlOr, "LE1070", xlOr, "LE1080", xlOr, "LE1085", xlOr, "LE1096"
'Worksheets("Arbeitsdatei").Range("A1:J3000").AutoFilter 5, "LE*"
'Worksheets("Arbeitsdatei").Range("A1:J3000").AutoFilter 5, "LE1020;LE1030;LE1050;LE1055; _
LE1070;LE1080;LE1085"
'Worksheets("Arbeitsdatei").Range("A1:J3000").AutoFilter 5, "LE1020", xlOr, "LE1030", xlOr, _
"LE1050", xlOr, "LE1055", xlOr, "LE1070", xlOr, "LE1080", xlOr, "LE1085", xlOr, "LE1096"
ActiveSheet.Range("$A$1:$J$1897").AutoFilter Field:=5, Criteria1:=Array( _
"LE1020", "LE1030", "LE1050", "LE1055", "LE1070", "LE1080", "LE1085", "LE1096"), _
Operator:=xlFilterValues
'Filter auf "SP" legen nach nicht leeren Zellen
ActiveSheet.Range("$A$1:$J$1897").AutoFilter Field:=6, Criteria1:=""
'Filterwerte PartGS für 1020,1030,1050,1055,1070,1080,1085 und 1096 anpassen
Columns("F:F").Select
Selection.Replace What:="31", Replacement:="87", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="34", Replacement:="90", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="32", Replacement:="88", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
'Filterwerte, die nicht 1020,1030,1050,1055,1070,1080,1085 und 1096 sind anpassen
ActiveSheet.Range("$A$1:$J$1897").AutoFilter Field:=5, Criteria1:=Array( _
"LE0603", "LE1021", "LE1022", "LE1023", "LE1024", "LE1025", "LE1026", "LE1027", _
"LE1040", "LE1060", "LE1090", "LE1094", "LE1095", "LE1098", "LE1099", "LE2010", _
"LE2012", "LE2015", "LE2020", "LE2041", "LE3010", "LE3015", "LE3020", "LE3030", _
"LE3042", "LE3050", "LE3065", "LE3075", "LE3085", "LE3091", "LE3100", "LE4010", _
"LE4015", "LE4020", "LE4025", "LE4029", "LE4030", "="), Operator:=xlFilterValues
Columns("F:F").Select
Selection.Replace What:="31", Replacement:="93", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="32", Replacement:="94", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="34", Replacement:="96", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
'FilterOeffnen Makro und Position A1
ActiveSheet.ShowAllData
Range("A1").Select
End Sub