Maske - Reihenfolge ändern

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex  0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
TextBox6 = Cells(ComboBox1.ListIndex + 1, 6)
TextBox7 = Cells(ComboBox1.ListIndex + 1, 7)
TextBox8 = Cells(ComboBox1.ListIndex + 1, 8)
TextBox9 = Cells(ComboBox1.ListIndex + 1, 9)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End If
End Sub

Private Sub CommandButton1_Click()

If ComboBox1.ListIndex > 0 Then

Rows(ComboBox1.ListIndex + 1).Delete

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

TextBox8 = ""

TextBox9 = ""

UserForm_Initialize

End If

End Sub

Private Sub CommandButton2_Click()

Dim xZeile As Long

If TextBox1 = "" Then Exit Sub

If ComboBox1.ListIndex = 0 Then

xZeile = [A65536].End(xlUp).Row + 1

Else

xZeile = ComboBox1.ListIndex + 1

End If

Cells(xZeile, 1) = TextBox1

Cells(xZeile, 2) = TextBox2

Cells(xZeile, 3) = TextBox3

Cells(xZeile, 4) = TextBox4

Cells(xZeile, 5) = TextBox5

Cells(xZeile, 6) = TextBox6

Cells(xZeile, 7) = TextBox7

Cells(xZeile, 8) = TextBox8

Cells(xZeile, 9) = TextBox9

UserForm_Initialize

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label9_Click()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub UserForm_Initialize()

Dim aRow, i As Long

Application.EnableEvents = False

ComboBox1.Clear

aRow = [A65536].End(xlUp).Row

ComboBox1.AddItem "neue Person hinzufügen"

For i = 2 To aRow

ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)

Next i

ComboBox1.ListIndex = 0

Application.EnableEvents = True

End Sub