Hallo,
ich bin absoluter Anfänger bei Excel VBA. Ich habe eine einfache alphabetische Sortieraufgabe bei der ich einen neuen Namen in eine bestehende Liste einorndnen will. Aktuell geb ich den Namen über eine MessengerBox ein, will den neuen Namen aber in Zukunft von einem festen Feld, z.B. !"A1", übernehmen. Ich weiß nicht wie ich das richtig programmieren soll.
Hier der aktuelle Stand:
Sub Einfügen()
Range("D1").Select
name = Application.InputBox("Name eingeben: ", "Mitglieder")
vglText = name
zeile = 1 'Ab wo die Werte stehen
spalte = 4 'Die Spalte wo die Werte stehen (A=1, B=2,...)
While vglText > ActiveSheet.Cells(zeile, spalte) And ActiveSheet.Cells(zeile, spalte) > " "
zeile = zeile + 1
Wend
b = MsgBox("Der Wert gehört vor Zeile " & zeile & " eingefügt")
Range("D1").Select
ActiveCell.Range(Cells(zeile, 1), Cells(zeile, 1)).Select
Sheets("Mitglieder2012").Select
End Sub