Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: liviotax am November 15, 2016, 07:32:14 Vormittag

Titel: Office 2010: VBA 2 unabhängige Listboxen
Beitrag von: liviotax am November 15, 2016, 07:32:14 Vormittag

Hallo zusammen,

Ich habe folgenden VBA Code:
******************************
Option Explicit

Private Sub ListBox1_Change()
If Not checkauswahl Then
    MsgBox "Es dürfen nicht alle AD's gleichzeitig ausgewählt werden :)"
    Call auswahlaufheben
    Exit Sub
End If
Call auswahlübertragen
End Sub

Private Function checkauswahl() As Boolean
Dim i As Long

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = False Then
        checkauswahl = True
        Exit For
    End If
Next i
End Function

Private Sub auswahlaufheben()
Dim i As Long

For i = 0 To ListBox1.ListCount - 1
    ListBox1.Selected(i) = False
Next i
End Sub

Private Sub auswahlübertragen()
Dim i As Long

Range("B2:B100").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then Cells(Range("B65536").End(xlUp).Row + 1, 2) = ListBox1.List(i)
Next i
End Sub
*********************************************

Dieser Code ist für die Listbox1. Nun habe ich eine 2te Listbox, die den genau gleichen VBA-Code haben sollte. Der einzige Unterschied: Er sollte die Ergebnisse in der Spalte C wiedergeben (Code oben bezieht sich auf Spalte B).

Kann mir da jemand helfen? Ich habe absolut keine Erfahrung mit VBA.

Danke im Voraus & einen schönen Tag

liviotax

Titel: Antw:Office 2010: VBA 2 unabhängige Listboxen
Beitrag von: liviotax am November 22, 2016, 07:25:27 Vormittag

Push.

Hat niemand eine Idee  ;D ?

Liebe Grüsse

Titel: Antw:Office 2010: VBA 2 unabhängige Listboxen
Beitrag von: gmg-cc am November 22, 2016, 10:39:47 Vormittag

Moin,
Ideen haben gewiss viele Helfer hier. Aber offensichtlich siehst du ein Forum und deren Helfer als kostenlose Dienstleister für deine Probleme, wo du (offensichtlich) Null Ahnung hast. Fragst du denn auch in einem Steuer-Forum nach, wer di deine Steuererklärung zum Null-Tarif macht?

Sorry, aber das kann es doch nicht sein! Versuche den Code zu verstehen, versuche selbst zu erkunden, was wann passiert, wenn du etwas änderst! Hilfe zur Selbsthilfe ist das Motto fast jeden Forums, und dabei sollte es auch bleiben. Ein gewisses Maß an Eigenleistung ist aus meiner Sicht unerlässlich.

Titel: Antw:Office 2010: VBA 2 unabhängige Listboxen
Beitrag von: liviotax am November 23, 2016, 08:47:14 Vormittag

Guten Morgen Gmg,

Danke für deine Antwort. Ich verstehe dich, und kann dies auch nachvollziehen. Aber ist ein Hilfe-Forum oder dieses „Office-Fragen Forum“ nicht dafür gedacht oder Irre ich mich hier?

Betreffend deiner Aussage mit dem Steuerforum. Nein, definitiv nicht! Aber wenn ich eine Frage hätte zu einem Punkt ja, dann würde ich diese stellen.