Thema Datum  Von Nutzer Rating
Antwort
21.09.2017 14:08:44 JE
NotSolved
Blau Mehrere Funktionen verknüpfen
 21.09.2017 14:10:03 JE
NotSolved
21.09.2017 14:10:40 Gast56846
NotSolved

Ansicht des Beitrags:
Von:
JE		 Datum:
21.09.2017 14:10:03		 Views:
630		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Funktionen verknüpfen
Nochmal ein versuch, den Code gescheit darzustellen: Sub Sortierung() ' ' Sortierung Makro ' Range("A11:x110").Select Application.DeleteCustomList ListNum:=10 Application.AddCustomList ListArray:=Array("Finalisation", "Realisation", _ "Detailed-Concept", "Basic-Concept", "Initialisation", "Not started") Application.DeleteCustomList ListNum:=9 ActiveWorkbook.Worksheets("Portfolio-dynamisch+PK").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Portfolio-dynamisch+PK").Sort.SortFields.Add Key:=Range("C11:C106") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Portfolio-dynamisch+PK").Sort.SortFields.Add Key:=Range("I11:I106") _ , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "Finalisation,Realisation,Detailed-Concept,Basic-Concept,Initialisation,Not started" _ , DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Portfolio-dynamisch").Sort .SetRange Range("A10:X110") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply Dim lngRow As Long Application.ScreenUpdating = False For lngRow = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(lngRow, 3).Value <> Cells(lngRow - 1, 3).Value And _ Not IsEmpty(Cells(lngRow, 3)) And Not IsEmpty(Cells(lngRow - 1, 3)) Then _ Rows(lngRow).Insert shift:=xlShiftDown Selection.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 2 Next Application.ScreenUpdating = True End With End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.09.2017 14:08:44 JE
NotSolved
Blau Mehrere Funktionen verknüpfen
 21.09.2017 14:10:03 JE
NotSolved
21.09.2017 14:10:40 Gast56846
NotSolved