|
Hallo den Helfern.
Mein Problem ist die angelkickte Zeile, in der ListBox, in eine Tabelle zu Schreiben.
Das einlesen aus Einer Tabelle ist Ok.
Anbei meine Versuche, leider ohne Erfolg.
Bei Butten 2 schreibt er die erste Zeile in die Tabelle, aber auf das anklicken einer anderen Zelle ist ohne Erfolg.
Vielen Dank im voraus falls mir Jemand helfen kann.
Gruß Jo Heid
-------------------------------------------------------------------------
Private Sub GblButton1_Click()
Dim ListBoxGbl As Object
Dim List As String
ListBoxGbl.RowSource = "[BEW_Rech_26.xlsb]Gbl!A4:A60"
ListBoxGbl.ListIndex = "0"
Range("BA2").Value = ListBoxGbl.List(ListBox.Index, Index)
------------------------------------------------------------------------------------------------
End Sub
Private Sub OGblButton2_Click()
ListBoxGbl.RowSource = "[BEW_Rech_26.xlsb]Gbl!A68:A124"
ListBoxGbl.ListIndex = "0"
Range("BA3").Value = ListBoxGbl.Value
End Sub
|