Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren VBA Groß/Kleinschreibung

Sortieren VBA Groß/Kleinschreibung
21.05.2007 10:48:00
lobby007
Hallo Excel-Spezialisten,
ich habe eine Tabelle die ich sortieren möchte
Spalten A:C, das Sortierkriterium ist in B. Dort sind nun kleingeschriebene Platzhalter die am Ende erscheinen sollen.
Mit dem aufgezeichneten Makro:

Sub Makro1()
' Makro1 Makro
' Makro am 21.05.2007 von Jungclaus aufgezeichnet
Range("A1:C32").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo _
, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


will ich das sortieren lassen - eben so das die kleingeschriebenen am Ende stehen.
Das geht aber nur 1x, wenn man das Makro dann wieder aufruft dann ist es so sortiert das es wieder nur nach Alpabeth geht.
Wo ist der Fehler?
Gruß lobby007
https://www.herber.de/bbs/user/42600.xls

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Versuch's mal mit OrderCustom:=6,...
21.05.2007 16:02:00
Luc:-?
...Claus,
wenn da bei dir auch als Sortierreihenfolge "A, B, C,..., x, y, z" steht. Bei mso2K fehlt dann DataOption1. Ist dann vielleicht auch bei xl2003 so.
Gruß Luc :-?

AW: Versuch's mal mit OrderCustom:=6,...
21.05.2007 16:54:12
lobby007
Hi Luc,
danke für den Tip, diese Order Custom bezieht sich immer auf eigene Listen. Die kommen leider nicht in Frage da sich die Namen immer ändern.
Es muß auch irgendwie ein Excel-Bug sein da man das Makro so aufzeichnen kann und es läuft. Wenn man es dann aber abspielt geht es nicht mehr.
gruß lobby007

Meine Aufzeichnung läuft (mso2K)! - Gruß owT
22.05.2007 05:10:03
Luc:-?
:-?

AW: Sortieren VBA Groß/Kleinschreibung
22.05.2007 06:59:00
Erich
Hallo lobbyJamesBond (Hast du auch einen Vornamen?),
mit Sortieroptionen ist das wohl nicht hinzubekommen. Probier mal 

Sub Sort_GrossKlein()
Columns("B:B").Insert
Range("B1:B32").FormulaR1C1 = "=IF(EXACT(LEFT(RC[1],1),UPPER(LEFT(RC[1],1))),0,1)"
Range("A1:C32").Sort _
Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=True, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Columns("B:B").Delete
End Sub

(Kleiner Nachteil: "ß" und Sonderzeichen werden wie Großbuchstaben behandelt.)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Sortieren VBA Groß/Kleinschreibung
22.05.2007 09:17:00
lobby007
Hallo Erich,
vielen Dank, das geht. HAbe auch das gefunden:
Sub SortierenNachname()
Application.ScreenUpdating = False
Application.Calculation = xlManual
With Columns("D")
.Replace what:="nachname", Replacement:="zzznachname", Lookat:=xlPart, searchorder:=xlByRows, MatchCase:=True
End With
Sheets("Daten").Select
Range("C2:E33").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Columns("D")
.Replace what:="zzznachname", Replacement:="nachname", Lookat:=xlPart, searchorder:=xlByRows, MatchCase:=True
End With
Das geht auch (in meinem Fall). Dein Weg ist aber auch wirklich clever.
Vielen Dank und noch einen schönen Tag.
Gruß Lars

Anzeige
Danke für Rückmeldung - Auch schönen Tag! (oT)
22.05.2007 09:46:00
Erich

176 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
Anzeige
Tabellen abgleichen\synchronisieren über VBA
Stefan

Hallo zusammen!
Ich benötige eure Hilfe! Weiß leider nicht mehr weiter...
Also ich hab zwei Tabellen, in der 1. Tabelle kann man Tarife auswählen aus einer Gültigkeitsliste
daraufhin werden die Werte aus der Tabelle 3 geholt zu der jeweiligen Auswahl. Dann habe ich eine Tabelle 3 di...
09.11.2009 09:21:23
Thread-ID: 1115042
2 Beiträge
VBA Daten einlesen mit var. Überschriftenzeile
Stefan

Hallo zusammen,
ich habe vor einiger Zeit hier schon mal um Rat gefragt als ich Daten aus einer externen Arbeitsmappe einlesen wolle. Nun möchte ich in einem Optionsblatt eine Variable einbinden in der die Überschriftenzeile zum einlesen steht:
Public Sub data() Dim objWB As Workbook, o...
17.11.2009 13:40:57
Thread-ID: 1117728
6 Beiträge
VBA einzelne Jahre schreiben
manu

Hallo zusammen,
ich hätte heute mal eine Frage bezüglich VBA und das jährliche Ausschreiben einer Anzahl von Jahren.
Klingt etwas verwirrend, daher hier gleich die Datei zum Verständnis:
Die Datei https://www.herber.de/bbs/user/68058.xls wurde aus Datenschutzgründen gelöscht
Es...
17.02.2010 10:29:25
Thread-ID: 1139150
4 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 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
5
4
4
1
4
1
5
3
6
4
5
4
5
11
2
14
10
2
2
3
9
4
8
3
2