Nach letzter benutzter Zeile Linie ziehen
07.08.2017 17:10:33
Markus
wie muss ich folgenden Code ergänzen, damit nach jedem kopieren aus der Listbox eine Linie gezogen wird?
Private Sub CommandButton_1Click()
Dim lngErste As Long
With Worksheets("Tabelle2")
lngErste = .Cells(Rows.Count, 6).End(xlUp).Row + 1
.Cells(lngErste,1).Value = Me.ComboBox1.Value
.Cells(lngErste,2).Value = Me.ComboBox2.Value
.Cells(lngErste,3).Value = Me.ComboBox3.Value
.Cells(lngErste,4).Value = Me.ComboBox4.Value
.Cells(lngErste,5).Value = Me.ComboBox5.Value
.Cells(lngErste, 6).Resize(ListBox1.ListCount, ListBox1.ColumnCount).Value = ListBox1.List
End With
End Sub
.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShare = 0
.Weight = xlThin
Vielen Dank euch!