|
hallo zusammen,
mein Kopf hat leider noch nich so viel VBA-Wissen dafür:
ich habe Drei Spalten A,B,C beispilesweise ist A der Nachname, B der Vorname und C das Alter
Jetz hab ich schon eine bestehende liste die ich als erstes nach dem Shema sortieren möchte und danach möchte
ich mithilfer einer Userfomr neue personen hinzufügen und diese werden an der richtigen stelle eingefügt.
Bis jetz habe ich durch researchs erreicht das ich Spalte A sortieren kann und einen namen einfügen kann:
Sub alpha1()
neuNn = Application.InputBox("Namen eingeben: ", "Test")
NeuVn = Application.InputBox("VNamen eingeben: ", "Test")
alter = Application.InputBox("Alter eingeben: ", "Test")
If Cells(1, 1).Value > neuNn Then '
MsgBox Cells(1, 1).Value
ze = 1
Else
anz = WorksheetFunction.CountIf(Range("a:a"), neuNn)
ze = WorksheetFunction.Match(neuNn, Range("A:A"), 1) - anz + 1
If anz > 0 Then
If Cells(ze, 2).Value < NeuVn Then ze = ze + WorksheetFunction.Match(NeuVn, Cells(ze, 2).Resize(anz), 1)
End If
End If
Rows(ze).Insert
Cells(ze, 1).Value = neuNn
Cells(ze, 2).Value = NeuVn
Cells(ze, 3).Value = alter
End Sub
wäre super wenn Lösungsvorschläge kommen.
Ps.: da ich immer gerne dazu lerne wäre auch cool wenn ihr bissl dazu schreiben könnt falls ihr was habt damit
ich die VBA-Sprach auch iwann versteh =)
Ich wünsch euch n cooles we
Lg Andy
|