|
Guten Tag,
ich habe mich eben schon bei google versucht,finde aber aufgrund meiner Eingabe nichts passendes.
Ich schildere euch mal mein Problem.
Wir haben von der Schule aus ein Projekt eine MItarbeiterliste zu erstellen. In Spalte A stehen die MItarbeiter Nummern, um die es auch jetzt geht.
Die kompletten Eingaben erfolgen über Userformen, was auch wunderbar geht. Ich möchte nun aber nicht immer die Mitarbeiter Nr. manuell eintragen und brauche deswegen ein Makro bzw die Funktion das die Zeilen A1,A2,A3,A4,... nach Nummern abgesucht wird und die nächste freie Nummer soll vergeben werden.
Beispiel: (die erste Numer befindet sich bei mir in A7)
A
7| 1
8| 2
9| 3
10| 4
11| müsste dann die 5 werden und genau das will ich ermitteln.
Habe das derzeit mit folgendem Code probiert:
Private Sub UserForm_Activate()
Dim Zeilenlesen As String
Dim Nr As String
Zeilenlesen = ActiveSheet.Cells(1048576, 1).End(xlUp).Row 'gibt die letzte beschriftete Zelle aus
Nr = Zeilenlesen - 4 'aufgrun der Zeilenverschiebung
TextBox1.Text = Nr 'Textbox in der Userform die zum hinzufügen geht. Dient lediglich zur Anzeige der jetzt zu vergebenen Nummer
End Sub
Das hat alles auch super geklappt.
Jetzt wollte ich aber eine Funktion einfügen die den Inhlt löscht.
Selection.EntireRow.Delete
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
habe das ein paar mal probiert und funktionierte einwandfrei.
Doch dann wollte ich weitere Mitarbeiter hinzufügen und die Nummern die das Makro mit dem oben genannten Code ermittelt verschieben und überlappen sich jetzt.
Könnt ihr mir bitte h elfen?
Ich bin kein experte darin, also bitte ich um ein wenig Kommentare.
Danke im Voraus :)
|