29.04.2023, 08:17
29.04.2023, 08:21
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.
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.
29.04.2023, 08:26
Mein Excel erklärt als Version 2003 11.8... SP3
29.04.2023, 08:31
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).
29.04.2023, 08:38
(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
29.04.2023, 08:49
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).
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).
29.04.2023, 09:15
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?
Da kommt ein Fenster mit "Gehe zu ... / Verweis"
Kann jemand so eine Datei mal anhängen?