Thema Datum  Von Nutzer Rating
Antwort
18.02.2022 15:46:34 Cello
NotSolved
19.02.2022 21:55:29 Gast37253
NotSolved
23.02.2022 09:36:38 Gast83814
NotSolved
Blau Ergebnis aus ListBox in eine Tabelle Übetragen
 24.02.2022 15:36:22 Gast37253
NotSolved
23.02.2022 08:37:09 Cello
NotSolved

Ansicht des Beitrags:
Von:
Gast37253		 Datum:
24.02.2022 15:36:22		 Views:
625		 Rating:
     
Antwort:
  Ja
Thema:
Ergebnis aus ListBox in eine Tabelle Übetragen

Hallo,

lass die Box am besten per DoubleClick-Event erscheinen u. dann i.Pr. über eine globale Variable in Deinem TabBlatt-Modul:

Option Explicit

Private mobjTarget As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(Cells(6, 1), Cells(17, 1))) Is Nothing Then
   Cancel = True
   Set mobjTarget = Target
   ListBox1.Visible = True
End If
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Not mobjTarget Is Nothing Then
    mobjTarget.Value = ListBox1.Value
    Set mobjTarget = Nothing
    ListBox1.Visible = False
End If
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.02.2022 15:46:34 Cello
NotSolved
19.02.2022 21:55:29 Gast37253
NotSolved
23.02.2022 09:36:38 Gast83814
NotSolved
Blau Ergebnis aus ListBox in eine Tabelle Übetragen
 24.02.2022 15:36:22 Gast37253
NotSolved
23.02.2022 08:37:09 Cello
NotSolved