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

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.

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