Schaut euch bitte mal mein Code an
Warum wird nur der Wert aus Spalte A zurückgeschrieben und nicht wie in der Listbox angezeigt A-F. Ich würde halt gern über listbox ausgewählte Zeile wieder als GANZE-Zeile eingetragen wird.
Private Sub CommandButton1_Click()
Sheets(1).Cells(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 4, 1) = ListBox1.Text
Sheets(1).Rows(Sheets(1).Cells(Sheets(1).Rows.Count, 6).End(xlUp).Row - 3).Insert
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Zeile einfügen"
CommandButton2.Caption = "Abbrechen"
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "2cm;6cm;1,5cm;1,5cm;1,5cm;1,5cm"
UserForm1.ListBox1.List = Worksheets("Datenbank").Range("A5:F119").CurrentRegion.Value
End Sub
Für sachdienliche Hinweise
wäre mein Dank groß
TJ