So ich will mich noch einmal zu Wort melden, da ich seit gestern noch etwas herrumprobiert habe.

Sorry, dass ich das erst jetzt tue, ich konnte dann gestern nicht mehr an den PC.

Mein aktueller Code ist folgender:

  Dim liZeile, liZeileMax As Long
  Dim FarbIndex  As String
  Dim blnInsert As Boolean
 
 'Zuordnung der angegebenen Abteilung zur Farbe
  If OptionButton1 = True Then FarbIndex = 15
  If OptionButton2 = True Then FarbIndex = 53
  If OptionButton3 = True Then FarbIndex = 42
  If OptionButton4 = True Then FarbIndex = 48
 
'Eintrag in Tabelle übernehmen
liZeileMax = Cells(Rows.Count, 1).End(xlUp).Row
 
For liZeile = 1 To liZeileMax
  If Range("A" & liZeile).Interior.ColorIndex = FarbIndex Then
    If Range("B" & liZeile).Text = "" Then
      Exit For
    Else
      blnInsert = True
    End If
  End If
Next
 
If blnInsert Then Call Rows(liZeile).EntireRow.Insert
Cells(liZeile, "B").Value = UserForm1.TextBox1
Cells(liZeile, "C").Value = UserForm1.TextBox2
Cells(liZeile, "D").Value = UserForm1.TextBox3
Cells(liZeile, "E").Value = UserForm1.TextBox4

Damit klappt die Geschicht auch ganz wunderbar, bis auf den letzten Bereich (Abteilung).
Wenn ich nach einander z.B. 4 Einträge vornehme, dann werden in den ersten 3 Bereichen die Einträge korrekt übernommen:

z.B. Eintrag 1
     Eintrag 2
     Eintrag 3
     Eintrag 4

Im letzten Bereich funktioniert das allerdings nicht mehr, sonder die Einträge kommen in der Form:

     Eintrag 1
     Eintrag 4
     Eintrag 3
     Eintrag 2

Woran könnte denn das liegen? Übersehe ich etwas?
Nach dem letzten Bereich ist die Tabelle leer, da kommt nichts mehr. Liegt es vielleicht daran?


PS:

Zum Beitrag von 29.01.2015 16:20:59 von Gast81686 ist zu sagen:

Ich habe den Code kurz getestet, da er mir aber genau das gleiche Ergebnis mit gleichem Problem wie obiger Code liefert,
jedoch länger ist, bin ich bei der kürzern Variante geblieben.
Um ehrlich zu sein, habe ich das aber auf Grund Zeitmangels noch nicht weiter vertieft. 

Ich möchte mich aber trotzdem noch einmal für die gemachte Mühe und die vielen Beiträge bedanken.

vg