Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren ohne Formatierung

Sortieren ohne Formatierung
12.08.2008 16:42:00
Alexander
Habe ein VBA Problem.
Ich sortiere werte in einer Tabelle mit folgendem kleinen Standardcode:

Sub sortieren()
ActiveSheet.Unprotect
Range("A7:X21").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending
End Sub


Das klappt soweit auch ganz gut leider, nimmt Excel beim Sortieren immer die Formatierung mit.
z.B.
Ausgangssituation
Zeile1: Wert=2 Zellfarbe grau
Zeile2: Wert=1 Zellfarbe weiß
Zeile3: Wert=3 Zellfarbe grau
nach dem sortieren:
Zeile1: Wert=1 Zellfarbe weiß
Zeile2: Wert=2 Zellfarbe grau
Zeile3: Wert=3 Zellfarbe grau
Ich will aber, dass es von der Formatierung so bleibt wie es ist. Kann man das irgendwie ausstellen vorher mit VBA?
Vielen Dank für eure Hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bedingte Formatierung
12.08.2008 17:12:28
Backowe
Hi,
ich würde die händische Formatierung entfernen und durch eine bedingte Formatierung ersetzen.
Den Bereich A7:X21 markieren, und dem Bereich die Formel =rest(zeile();2)=1 und dann das Hintergrundmuster grau zuweisen.

Sub sortieren()
ActiveSheet.Unprotect
Range("A7:X21").Sort Key1:=Range("A7"), Order1:=xlAscending
End Sub


Gruß Jürgen

AW: Sortieren ohne Formatierung
12.08.2008 17:15:21
Daniel
Hi
ich will es natürlich nicht aussschließen, aber mir ist keine Option bekannt, ob mit oder ohne Formate sortiert werden soll (Excel XP)
spontan fallen mir da nur 2 Workarounds ein:
Variante 1:
- Zellinhalt ohne Formate in ein Leeres Blatt kopieren
- Sortierung im neuen Blatt durchführen
- Daten vom neuen sortierten Blatt aufs alte Kopieren,auch wieder ohne Formate
- neues Blatt wieder löschen
Varinte 2:
die Zellfarben der Zeilen über die Bedingte Formatiertung (mit Zeilen-Nr als bedingung) festlegen.
da hast du dann allerdings nur 3 möglichkeiten zur verfügung
Gruß, Daniel

Anzeige
AW: Sortieren ohne Formatierung
12.08.2008 18:29:00
Alexander
Hallo,
vielen Dank für die Antwort. Das Beispiel war nur symbolisch, das Problem ist, dass die Tabelle mit einer fetten Linie endet zur Abgrenzung. Und die halt jedesmal wenn unten ein Wert steht mit nach oben gezogen wird. Werde die Linie wohl entfernen müssen, auch wenn es schlecht aussieht.
Danke für eure Hilfe, aber wäre das erste Mal, dass ich ein "geht nicht" gefunden hätte. Als Alternative könnte man sich natürlich auch die gesamte Formatierung jedesmal erstellen. Aber, dass ist mir ehrlich gesagt zu aufwendig, da soll es lieber nicht so perfekt aussehen.
MFG

Anzeige
AW: Sortieren ohne Formatierung
12.08.2008 19:57:00
Erich
Hallo Alexander,
da du den Thread auf "offen" gestellt hast, gebe ich auch noch meinen Senf dazu. ;-)
Sicher ist es nicht immer sinnvoll, beim Sortieren die Formate unverändert zu lassen.
Ein Beispiel:
 BCDEF
1vorher Nomal-Sort "Sort ohne Format"
212345,67 12.08.2008 39672,00
312.08.2008 12345,67 18.10.1933

Spalte D entsteht aus B beim normalen Sortieren.
Spalte F würde entstehen, wenn beim Sortieren die Formate unverändert blieben.
Das ist sicher nicht wünschenswert. Man müsste also auch nboch unterscheiden können,
welche der vielen Formatierungsarten mitsortiert werden sollen und welche nicht.
Eines sieht man auch noch an dem Beispiel: Rahmen bleiben beim Sort unverändert stehen.
Vielleicht kannst du damit arbeiten?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Sortieren ohne Formatierung
13.08.2008 01:20:46
Daniel 

Das Beispiel war nur symbolisch


fuck Bullshit, was soll der Scheiß?
sorry für den ausbruch, aber bitte stellt eure realen Probleme hier rein.
wenn es wirklich nur darum geht, einen dicken Strich am ende der Daten nicht mit zu sortieren, dann lass doch einfach eine Leerzeile zwischen den Zellen mit Daten und den Zellen mit dem dicken Strich.
durch die Excel-Automatik werden diese Zellen dann nicht mitsortiert. und wenn der Abstand stört, dann reduziert man die Zeilenhöhe der Leerzeile eben auf ein Minimum.
das ist ne gänzlich andere Problemlösung und viel einfacher als ein "grundsätzliches sortieren ohne die Formate"
jede Excel-VBA-Lösung ist individuell an das Spezifische Problem angepasst, eine allgemein verwendbare Lösung gibt es nur in sehr sehr sehr sehr wenigen Fällen (und die wenigsten, die hier fragen, sind dann in der lage, eine allgemeine Lösung an ihr spezifisches Problem anzupassen. das ist jetzt kein Vorwurf, sondern liegt einfach an der Natur der Sache)
Gruß, Daniel

Anzeige

300 Forumthreads zu ähnlichen Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Anzeige
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
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
7
2
4
4
4
8
2
7
3
2
9
1
7
1
1
4
6
5
5
6
9
2
11
9
2