Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortieren nach Großbuchstaben/Wort

Sortieren nach Großbuchstaben/Wort
28.04.2007 22:38:00
Kai
Hallo,
ich hätte mal eine Frage:
Ich habe eine Datei mit 22000 Artikelnamen und möchte diese jetzt nach den ersten 4 Großbuchstaben sortieren. Ich gebe am Besten mal ein Beispiel.

Fingerschiene nach Stack Gr, 1 1 St
BIOTIN HERMES 2,5 Haut Haare Nägel 3 Monate 90 Tab
Zeckenzange Kunststoff 1 St
BIOTIN HERMES 2,5mg Haut Haare Nägel 30 Tabletten
Nopal Feigenkaktus Kapseln 90 St Kap
Selen Hefefrei 250 St Tab
DORITHRICIN Halstabletten Halsschmerzen 40 Tabletten
Diesen Ausschnitt möchte ich so sortiert haben (also eigentlich brauche ich nur die Artikelnamen wo das erste Wort groß ist):
BIOTIN HERMES 2,5 Haut Haare Nägel 3 Monate 90 Tab
BIOTIN HERMES 2,5mg Haut Haare Nägel 30 Tabletten
DORITHRICIN Halstabletten Halsschmerzen 40 Tabletten
Fingerschiene nach Stack Gr, 1 1 St
Zeckenzange Kunststoff 1 St
Nopal Feigenkaktus Kapseln 90 St Kap
Selen Hefefrei 250 St Tab
Hat da jemand ne Idee, wäre super
:-)
Besten Dank schonmal
Kai

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren nach Großbuchstaben/Wort
28.04.2007 23:41:00
fcs
Hallo Kai,
folgendes Makro löscht die Inhalte der nicht benötigten Zeilen und sortiert dann die Liste
Gruß
Franz

Sub ErstesWortGross()
'Löscht Zelleinhalte wenn das erste Wort nicht in Großbuchstaben und sortiert neu
Dim ZeileStart As Long, Zeile As Long, wks As Worksheet, Spalte As Integer
Set wks = ActiveSheet
Spalte = 1 'Spalte A
ZeileStart = 1
With wks
'Zeileninhalte löschen wenn 1. Wort nicht in Großbuchstaben
For Zeile = ZeileStart To .Cells(.Rows.Count, Spalte).End(xlUp).Row
Posleer = InStr(1, .Cells(Zeile, Spalte).Value, " ")
If Posleer > 0 Then
If Left(.Cells(Zeile, Spalte).Value, Posleer)  _
UCase(Left(.Cells(Zeile, Spalte).Value, Posleer)) Then
.Rows(Zeile).ClearContents
End If
Else
If .Cells(Zeile, Spalte).Value  _
UCase(.Cells(Zeile, Spalte).Value) Then
.Rows(Zeile).ClearContents
End If
End If
Next
' Liste aufsteigend sortieren
.Range(.Rows(ZeileStart), .Rows(.Cells(.Rows.Count, _
Spalte).End(xlUp).Row)).Sort _
Key1:=.Cells(ZeileStart, Spalte), Order1:=xlAscending, Header:=xlNo
End With
End Sub


Anzeige
AW: Sortieren nach Großbuchstaben/Wort
29.04.2007 00:28:08
Erich
Hallo Kai,
noch ne Alternative:

Sub Makro1()
Columns(2).Insert
With Range(Cells(1, 2), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2))
.FormulaR1C1 = "=IF(EXACT(LEFT(RC[-1],4),UPPER(LEFT(RC[-1],4))),0,ROW())"
.Value = .Value
End With
Cells.Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("A1"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Columns(2).Delete
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige