Registriert seit: 22.02.2023
Version(en): 5
Und wo trägt man den Script ein und werwiewas sind jetzt die Eingabespalte und die zweite als Ausgabespalte der sortierten Emails?
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
29.04.2023, 08:21
(Dieser Beitrag wurde zuletzt bearbeitet: 29.04.2023, 08:23 von LCohen.)
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.
Registriert seit: 22.02.2023
Version(en): 5
Mein Excel erklärt als Version 2003 11.8... SP3
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
29.04.2023, 08:31
(Dieser Beitrag wurde zuletzt bearbeitet: 29.04.2023, 08:32 von LCohen.)
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).
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
29.04.2023, 08:38
(Dieser Beitrag wurde zuletzt bearbeitet: 29.04.2023, 08:42 von RPP63.)
(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?
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)
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
29.04.2023, 08:49
(Dieser Beitrag wurde zuletzt bearbeitet: 29.04.2023, 08:53 von LCohen.)
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).
Registriert seit: 22.02.2023
Version(en): 5
29.04.2023, 09:15
(Dieser Beitrag wurde zuletzt bearbeitet: 29.04.2023, 09:15 von Erika2.)
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?