Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten sortieren mit VBA und Format beibehalten

Daten sortieren mit VBA und Format beibehalten
wolfgang
Hallo zusammen,
ich möchte eine Tabelle mit VBA-Code sortieren und dabei die Formatierungen der Zellen bei behalten.
mit meinem code:
  • ist die Sortierreihenfolge zu 100% gegeben

  • die Formatierung bezüglich Farbe ist OK

  • die Formatierung bezüglich Rahmen ist nicht OK

    • Beispieldatei:

    Die Datei https://www.herber.de/bbs/user/71559.xls wurde aus Datenschutzgründen gelöscht


    der code lautet:
    Range("A6:A10").Select
    Selection.Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Range("A1").Select
    wie könnte ein Ansatz aussehen?
    Gruß und Dank an das Forum
    Wolfgang
    AW: Daten sortieren mit VBA und Format beibehalten
    15.09.2010 14:23:02
    ChrisL
    Hi Wolfgang
    Guckst du hier...
    http://support.microsoft.com/kb/505407/de
    Der Makrocode lässt sich übrigens noch leicht vereinfachen...
    Range("A6:A10").Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    cu
    Chris
    Man kann das auch eleganter lösen, ohne...
    15.09.2010 15:06:39
    Luc:-?
    …die Brutalo-Methode Sort, Leute;
    einfach nach den Sortierkriterien interne Rangfolgen ermitteln und danach per Formel die Werte austauschen (Formeln sollten idR weder sortiert wdn noch ausgetauscht wdn müssen). Die Formatierung der Gesamttabelle wird dadurch nicht beeinträchtigt, allerdings ist der Hirnschmalzaufwand etwas größer… ;-)
    Gruß Luc :-?
    Anzeige
    AW: Man kann das auch eleganter lösen, ohne...
    15.09.2010 15:14:22
    ChrisL
    Hi Luc
    Deine Lösung würde ich gerne mal sehen. Ich denke es geht nicht darum Formeln zu sortieren, sondern Formate i.e. Rahmen.
    cu
    Chris
    Eben, und weil ich das Gesamtbild der...
    15.09.2010 15:43:50
    Luc:-?
    …Tabelle nicht beschädigen wollte, Chris,
    habe ich den Formelweg gewählt, allerdings mit kräftiger VBA-Unterstützung.
    Bsp-Aufgabe:
    Es waren Namen in der Reihenfolge einer auf bestimmte Weise ermittelten Platzierung zu sortieren. Im Original wurde die Brutalo-Methode auf die Tabelle angewendet. Neben den Namen als letztem Kriterium konnten so noch 2 Spalten mit Sortiermerkmalen berücksichtigt wdn.
    Auf der Basis von in diesem Forum hinlänglich bekannten Rangfolgeermittlungen ermittle ich per VBA eine RangfolgeNr, in die beliebig viele Kriterienspalten einbezogen wdn können. Anhand des Vgls von RangfolgeNr m.tatsächlichem StdOrt der Namen auf einer Primärliste wdn die Namen dann per Fml in der Tabelle platziert. Dazu wird die per VBA ermittelte RangfolgeNr in einer benannten (Matrix-)Konstanten abgelegt, damit die Fmln darauf zugreifen können. Die Fmln der andern Spalten beziehen sich natürl auf die Namen, so dass immer das richtige Ergebnis ermittelt wird.
    Diese Beschreibung muss dir genügen, denn die Datei, auf der das zum Einsatz kommt, enthält noch jede Menge andere Features und ist deshalb zZ noch 3,5 MB groß (ursprgl hat sie mal den Download-Bedingungen genügt, Original im Herber-Archiv, allerdings ebenso wie das ebenfalls archivierte damalige vorläufige Endergebnis ohne diese Fktionalität - Originalautor KaiBrockmann; gesamte xl-Mappenenstehungshistorie dürfte inzwischen in der Mappe noch enthalten sein).… ;-)
    Gruß Luc :-?
    Anzeige
    AW: Eben, und weil ich das Gesamtbild der...
    15.09.2010 16:05:22
    ChrisL
    Hi Luc
    Danke für die Erklärung. Leider kann ich das nicht nachvollziehen, aber ist ok.
    Schönen Abend
    Chris
    Bitte sehr! Gern geschehen! ;-) owT
    15.09.2010 16:44:35
    Luc:-?
    :-?
    AW: Daten sortieren mit VBA und Format beibehalten
    15.09.2010 18:14:57
    wolfgang
    Hallo Chris,
    Danke für Deine Information.
    Ergebniss der Information ist allerdings nicht sehr erfreulich, da meine Tabelle nicht so leicht umformatiert werden kann
    Gruß wolfgang

    305 Forumthreads zu ähnlichen Themen

    VBA Ausgabe in neue Datei
    MarkusL

    Hallo,
    ich habe folgendes Problem:
    In einer Datei befinden sich nachfolgende Datensätze
    Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
    es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
    08.08.2008 17:42:00
    Thread-ID: 1000377
    3 Beiträge
    Anzeige
    Dateiformat nicht erkennabar (VBA)
    Richard

    hallo
    hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
    CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
    Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
    02.10.2008 19:52:02
    Thread-ID: 1013959
    2 Beiträge
    VBA heutiges Datum finden und Inhalt der Zelle prü
    NeptunesChild

    Hallo Leutz,
    ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
    06.11.2008 15:38:08
    Thread-ID: 1022323
    3 Beiträge
    Anzeige
    Formatierung Daten in Prozent fortlaufend
    Wolfgang

    Guten Morgen,
    ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
    - wobei unter Spalt...
    21.11.2008 07:54:55
    Thread-ID: 1026590
    7 Beiträge
    Datenquelle eines Diagramms mit VBA verändern
    mgr

    hallo, ihr excel-götter!
    leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
    ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
    dieses tortendiagramm wird mit daten befüllt, die durch eine...
    21.11.2008 11:45:45
    Thread-ID: 1026676
    4 Beiträge
    Produktdaten aus einer Liste mit VBA verwenden
    Niklas

    Hello Leute!
    Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
    Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
    Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
    03.12.2008 14:37:00
    Thread-ID: 1029841
    2 Beiträge
    Datum und Uhrzeit mit einem Tastendruck
    P.

    Hallo.
    ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
    Kann mir jemand helfen? Im Archiv habe ich nicht...
    06.12.2008 13:05:21
    Thread-ID: 1030655
    13 Beiträge
    VBA Querdruck DinA5 auf DinA4 Hochformat
    Peter

    Hallo,
    habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
    Habe nun den Makrorecorder laufen lassen.
    Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
    07.12.2008 11:40:36
    Thread-ID: 1030830
    3 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    5
    1
    2
    1
    6
    3
    1
    12
    2
    19
    4
    3
    1
    6
    3
    4
    1
    3
    11
    2
    4
    1
    6
    1