Bestehenden Code ergänzen / Sortierung
12.11.2021 11:40:06
Birgit
ich habe eine Liste geerbt in der ich aber nicht nach einer bestimmten Spalte sortieren kann. Anbei der Code.
Sub Daten_eintragen()
Dim Zeile
'nur wenn in B4 und C4 etwas drinsteht dann eintragen
If [b4] "" And [c4] "" And [d4] "" Then
'Blattschutz aufheben
'ActiveSheet.Unprotect
'letzte benutzte Zeile ermitteln + 1
Zeile = Cells(Rows.Count, 2).End(xlUp).Row + 1 '.SpecialCells(xlLastCell).Row + 1
'Daten eintragen
Cells(Zeile, 2) = [b4]
Cells(Zeile, 3) = [c4]
Cells(Zeile, 4) = [d4]
Cells(Zeile, 5) = [e4]
Cells(Zeile, 6) = [f4]
Cells(Zeile, 7) = [g4]
Cells(Zeile, 8) = [h4]
Cells(Zeile, 9) = [i4]
Cells(Zeile, 10) = [j4]
Cells(Zeile, 11) = [k4]
Cells(Zeile, 12) = [l4]
Cells(Zeile, 13) = [m4]
Cells(Zeile, 14) = [n4]
Cells(Zeile, 15) = [o4]
Cells(Zeile, 16) = [p4]
Cells(Zeile, 17) = [q4]
Cells(Zeile, 18) = [r4]
Cells(Zeile, 19) = [s4]
Cells(Zeile, 20) = [t4]
Cells(Zeile, 21) = [u4]
Cells(Zeile, 22) = [v4]
Cells(Zeile, 23) = [w4]
Cells(Zeile, 24) = [x4]
Cells(Zeile, 25) = [y4]
Cells(Zeile, 26) = [z4]
Cells(Zeile, 27) = [aa4]
Cells(Zeile, 28) = [ab4]
Cells(Zeile, 29) = [ac4]
Cells(Zeile, 30) = [ad4]
'Eingaben löschen
[b4:ad4] = ""
'letzte Zeile in sichtbaren Bereich holen
Cells(Zeile, 2).Select
Else
MsgBox "Bitte -Ort-Straße-Lage- eintragen"
End If
'Blattschutz aktivieren
'ActiveSheet.Protect
End Sub
Die Daten in Spalte J beginnen in Zeile 6.
Ich habe es zwar hiermit schon versucht, aber das hat nicht wirklich geklappt.
Public Sub Sortieren()
Worksheets("Tabelle1").Columns("J:J").Sort , Key1:=Range("J6"), _
Order1:=xlAscending, Header:=xlYes
Birgit