Zeile verschieben+ABC-Sortierung mit VBA

Hallo,
Da ich leider noch nie mit VBA gearbeitet habe, habe ich einen Code aus einer Datei aus dem Netz nur per Copy&Paste probiert - bringt natürlich nix, daher brauche ich bitte dringend eure Hilfe.
1. Wenn in Spalte E eine Nr. Beginnend mit A- eingetragen wird, soll die ganze Zeile - ohne Inhaltsverlust! - in den Archivbereich nach unten verschoben werden, oben soll die Zeile verschwinden.
2. Wenn von das A- von der Nr. entfernt wird, soll die Zeile wieder nach oben wandern. (Wenn das überhaupt geht)
3. Die Datenbank sollte anhand des Nachnamens alphabetisch sortiert sein - kann man das so einrichten, dass man eine userform per Button aufrufen kann und sich der neue Eintrag nach dem Speichern, automatisch u. alphabetisch in die liste einfügt? Wenn ja, wie? Ich glaube das geht auf dem Mac nicht, gibts das?
Excelbezogene Frage: ist es möglich, in den Spalten-Überschriften das Datum im Format TT. MMM einzutragen; Ziel ist ein Jahreskalender mit automatisch gebänderten Zeilen wie in der Bsp-Datei?
Ich weiß nicht, ob die Bsp-Datei das VBA anzeigt, bei mir springt nämlich immer eine andere Mappe mit dem VBA-Fester auf, wenn ich auf die Schaltfläche klicke.
Danke!
Lg,sophie
https://www.herber.de/bbs/user/155775.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sophie,
Vervollständigung meiner bisherige Antwort:
ich habe eine Spalte "IstArchiv" in der Tabelle eingefügt (Spalte F), mit der erwähnte Formel befüllt:
=WENN(LINKS([@Archivnr];2)="A-";"Archiv"; "")
Dann den Makro-Rekorder gestartet, Die Namen sortiert (Der Titel sollte in eine andere Spalte oder hinten angestellt, weil es die sortierung nach Namen stört), dann diese Spalte IstArchiv sortiert, und dann die Spalte F ausgeblendet (schonheitshalber, aber nicht notwendig).
Es ergibt mehr oder weniger diesen Code. Am besten baust Du die Voraussetzung nach und lasst den Makrorekorder auf deinem Version laufen.


Sub Makro1()
' Makro1 Makro
With ActiveWorkbook.Worksheets("Tabelle1").ListObjects("Tabelle1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabelle1[[#All],[IstArchiv]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.SortFields.Add Key:=Range("Tabelle1[[#All],[Titel Nachname Vorname, nachgest. Titel]]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("F:F").EntireColumn.Hidden = True
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

Zeile verschieben+ABC-Sortierung mit VBA

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile verschieben+ABC-Sortierung mit VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread