Hallo Leute,
ich möchte eine Auswahl aus einer 2spalt.Listbox in eine Tabelle in die Spalten 13 + 14 eintragen lassen.mein Makro(gestrickt:)
Sub Schäden()
Sheets("Fahrzeugbestand").Select
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
ACTIVECELL.Select
Cells(ACTIVECELL.Row, 13).Select
Cells(ACTIVECELL.Row, 14).Select
HdlAdrss.Show
End sub
Private Sub ListBox1_Change()
ACTIVECELL.VALUE = listbox1.VALUE
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim rngEintrag As Range
For Each rngEintrag In Range("A1").Cells
listbox1.List = Sheets("HdlAdressen").Range("A1").CurrentRegion.Columns("A:B").VALUE
Next rngEintrag
End Sub
mit diesem Makro komme ich einfach nicht weiter, denn es wird nur der Eintrag aus Spalte A aus der Listbox in die Spalte 13 (Tb. Fahrzeugbestand), ausgegeben.Es soll aber auch gleichzeitig der Eintrag aus Spalte B in die Spalte 14 eingetragen werden.
kann mir einer helfen, habe alles versucht,irgendetwas fehlt noch, oder ist gänzlich falsch.
Dank im voraus
Gruß WM