VBA laufende Nummerierung

[JereMaia]

Hier ein Beispiel. Die Linien konnte ich durch den Makrorecorder gut einbauen.

[snb]

@Jere:

PHP-Code:

Private Sub UserForm_Initialize()
      CB_Autobahn.List = [transpose("A"&row(1:50))]
      CB_RF.List = [transpose(text(row(1:10),"00"))]
     CB_Lage.List = Array("Rand", "Mitte")
End Sub 


Schau mal: http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html

Und die Linien:

reicht schoin:

PHP-Code:

Sub M_snb()
    With Sheets("Tabelle1").UsedRange
       .Borders(8).LineStyle = 1
       .Borders(9).LineStyle = 1
    End With
End Sub