Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Von hinten sortieren, nichjt alphabetisch von vorn?
#21
Und wo trägt man den Script ein und werwiewas sind jetzt die Eingabespalte und die zweite als Ausgabespalte der sortierten Emails?
Antworten Top
#22
Ein Script ist Neutrum auf Deutsch, also: Das Script. Man spricht aber von Code. Der Code.
Deine Spaltennachfrage ist unzutreffend, weil die Spalten nur innerhalb des Codes entstehen. Ein- = Ausgabe.
In der gleichen Datei: Alt-F11, Einfügen Modul. Code einfügen. Dann dort mit F5 starten.
Antworten Top
#23
Mein Excel erklärt als Version 2003  11.8... SP3
Antworten Top
#24
Das ist zwar sehr schön, war aber nicht gefragt/verlangt (meine Anleitung #22 funktioniert in jedem Excel) und es gehört in Dein Profil (wo jetzt Version 5 steht, die somit nicht stimmt).
Antworten Top
#25
(29.04.2023, 08:15)LCohen schrieb: Kannst Du daraus noch ein Worksheet_Change zaubern? Und zwar so, dass man sich bei der einsortierten Änderung/Eintrag anschließend befindet? (.Select)

Vitamine und naschen?  19
Voraussetzung ist eine lückenlose Liste in Spalte A, Duplikate werden nicht berücksichtigt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zellentext$
On Error GoTo Err_Exit
With Target
  If .Column = 1 And .CurrentRegion.Rows.Count > 1 Then
    Zellentext = .Text
    With Application
      .EnableEvents = False
      .ScreenUpdating = False
    End With
    With Range("A2", Range("A2").End(xlDown))
      .TextToColumns .Cells(1), OtherChar:="@"
      With .Resize(, 2)
        .Sort .Cells(1, 2), Key2:=.Cells(1)
        With .Offset(, 2).Columns(1)
          .Formula = "=A2&""@""&B2"
          .Copy
        End With
      End With
      .PasteSpecial xlPasteValues
      .Offset(, 1).Resize(, 2).Delete
    End With
  End If
  .EntireColumn.Find(Zellentext, , , xlWhole).Select
End With
Err_Exit:
Application.EnableEvents = True
End Sub
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#26
RPP63: Schick, etwas langsam, ein @ bleibt als Müll kleben (jedesmal eins mehr) EDIT: Domain-Sortiert wird aber nicht. XL365.

Erika: Den gleich korrigierten Code von RPP63 nicht in ein normales Modul (#22) packen, sondern in das Modul über Blattreiter Rechtsklick Code Anzeigen (das ist ein Ereignismodul).
Antworten Top
#27
Ist die Einbstellung im Excel damit oider speziell in nur dieser Datei? Wenn 2. dann hab ich das probiert, bekommst nicht zum laufen.
Da kommt ein Fenster mit "Gehe zu ...  / Verweis"
Kann jemand so eine Datei mal anhängen?
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste