Clever-Excel-Forum

Hallo zusammen,

ich brächte mal wieder eure Expertise...

ich habe eine UserForm, in welcher per Listbox Suchbegriffe gemäss Eingabe in eine Textbox angezeigt werden (dass funktioniert perfekt).

Nun zu meiner Frage: Wie schaffe ich es, den markierten Eintrag aus der Listbox (bzw. den markierten Teil welcher in der Listbox in Spalte 1 liegt) in eine "normale" Excel-Tabelle (nicht intelligente Tabelle) zu übertragen.

Habe folgendes mal gebaut...

Code:
Private Sub cmdZumPlanHinzufügen_Click()

Dim lngZeile As Long

Dim ZeileMax As Long

ZeileMax = Tabelle10.Cells(Rows.Count, 13).End(xlUp).Row + 1

If frmÜbungSuchen.lboSuchergebnisse.ListIndex >= 0 Then

  lngZeile = frmÜbungSuchen.lboSuchergebnisse.Column(1, frmÜbungSuchen.lboSuchergebnisse.ListIndex)

  Tabelle10.Cells(ZeileMax, 13).Value = frmÜbungSuchen.lboSuchergebnisse.Column(1)

End If

End Sub

...da kommt dann aber Laufzeitfehler 13 - Typen unverträglich

Wo liegt der Hund begraben?

Danke für eure Hilfe.

Domi

Hi

ohne Bsp.Datei mal nur eine allgemeine Hilfe. (Beitrag 9 sollte weiterhelfen)

listbox mit 2 spalten (Programmierung / Office/Excel) - Foren auf CAD.de

Hallo Elex,

prima, herzlichen Dank - Beitrag 9 war's tatsächlich (y)

Danke und schönen Tag
Domi

HAMRacer44

Elex

HAMRacer44