Namensliste nach Bedingung kopieren und sortieren mittels VBA
28.01.2020 08:17:01
deniz
Ich habe eine Namensliste die ich nach folgenden Bedingungen sortieren möchte.
Die Nachnamen stehen in den Zellen B7 bis B65536.
Die Vornamen stehen in den Zellen C7 bis C65536.
Die Zellen N7 bis N65536 habe ich so programmiert, dass sich die jeweilige Zelle bei einem Doppelklick mit einem a füllt (zusätzlich wird die Schriftart und die Schriftfarbe geändert).
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("N7:N65536 ")) Is Nothing Then 'Bereich für Hacken
Target = IIf(Target = "a", "", "a")
Cancel = True
Range("N7:N65536 ").Font.Name = "Marlett" '=Schriftart setzen
Range("N7:N65536 ").Font.ColorIndex = 3 '=Schriftfarbe setzen
End If
End Sub
(N) ein a beinhaltet. Zusätzlich soll die daraus entstehende Liste alphabetisch nach den Nachnamen sortiert werden.
Bisher habe ich folgenden Code dafür:
Sub BereichKopieren()
Dim lgLetzte As Long
With Sheets("Tabelle 2")
lgLetzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & lgLetzte & ":C" & lgLetzte + 17) = Sheets("Grunddaten")
.Range("B7:B65536:C7:C65536").Value
End With
End Sub
Mir fehlt also noch die Abfrage der Spalte N und die alphabetische Sortierung der Kopierten Zellen.
Irgendwie komme ich hier als Scriptkiddie nicht weiter