Thema Datum  Von Nutzer Rating
Antwort
Rot VBS Sortieren bis letzte Zeile
 04.12.2019 17:49:34 Andreas
NotSolved
04.12.2019 18:01:15 Gast76123
NotSolved
05.12.2019 08:19:20 Torsten
NotSolved
05.12.2019 08:20:51 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
04.12.2019 17:49:34		 Views:
713		 Rating:
     
Antwort:
  Ja
Thema:
VBS Sortieren bis letzte Zeile
Hallo, ich habe folgenden Code mittels Recorder ermittelt: Sub SortFarbkarte() ' ' SortFarbkarte Makro ' ' Tastenkombination: Strg+d ' ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("D2:D85" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("E2:E85" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("F2:F85" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B2:B85" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Tabelle1").Sort .SetRange Range("A2:F85") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("C4").Select End Sub dieses Makro steht in einem Button. in diesem Tabellenblatt kommen aber immer wieder Daten dazu, deshalb soll die Range wie zum Beispiel B2:B85 bis zur letzten beschriebenen Zeile gehen. Also B2:AKTUELL LETZTE ZEILE kann mir wer sagen was ich dafür ändern muss?? lg. Andreas

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
Rot VBS Sortieren bis letzte Zeile
 04.12.2019 17:49:34 Andreas
NotSolved
04.12.2019 18:01:15 Gast76123
NotSolved
05.12.2019 08:19:20 Torsten
NotSolved
05.12.2019 08:20:51 Torsten
NotSolved