Thema Datum  Von Nutzer Rating
Antwort
06.04.2022 11:30:44 VBANoob
NotSolved
Blau Die markierten Zeilen einer Listbox addieren und Ergebnis in einer TextBox anzeigen
 06.04.2022 12:10:43 Gast35037
NotSolved
06.04.2022 12:52:32 VBANoob
NotSolved

Ansicht des Beitrags:
Von:
Gast35037		 Datum:
06.04.2022 12:10:43		 Views:
464		 Rating:
     
Antwort:
  Ja
Thema:
Die markierten Zeilen einer Listbox addieren und Ergebnis in einer TextBox anzeigen

Allgemein erstmal:

Wenn du zusammenhängende Bereiche in ein Listenfeld laden willst, dann mach das einfach so.

Private Sub UserForm_Initialize()
  
  Dim rngData As Excel.Range
  
  'Bereich: A2:F%
  Set rngData = Tabelle6.Range(Tabelle6.Cells(Tabelle6.Rows.Count, "A").End(xlUp), "F2")
  If rngData.Row >= 2 Then
    ListBox1.ColumnCount = rngData.Columns.Count
    ListBox1.List = rngData.Value
    ListBox1.ListIndex = 0
  Else
    ListBox1.Clear
  End If
  
  'Bereich: J2:O%
  Set rngData = Tabelle6.Range(Tabelle6.Cells(Tabelle6.Rows.Count, "J").End(xlUp), "O2")
  If rngData.Row >= 2 Then
    ListBox2.ColumnCount = rngData.Columns.Count
    ListBox2.List = rngData.Value
    ListBox2.ListIndex = 0
  Else
    ListBox2.Clear
  End If
  
End Sub

 

Wenn du jetzt eine Spalte addieren willst, dann z.B. so:

  Dim sum As Variant
  Dim i As Long
  
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
      sum = sum + ListBox1.List(i, 1) '1 = Spalte 2
    End If
  Next
  
  'Ausgabe zur Veranschaulichung
  Call MsgBox("Summe: " & sum)

 

Grüße

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
06.04.2022 11:30:44 VBANoob
NotSolved
Blau Die markierten Zeilen einer Listbox addieren und Ergebnis in einer TextBox anzeigen
 06.04.2022 12:10:43 Gast35037
NotSolved
06.04.2022 12:52:32 VBANoob
NotSolved