VBA2- unabhängige Listboxen
24.11.2016 07:05:30
Livio
Ich habe folgenden VBA Code:
******************************
Option Explicit
Private Sub ListBox1_Change()
If Not checkauswahl Then
MsgBox "Text XY"
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. Ich habe bereits probiert den VBA Codes zu kopieren & nur die Werte austauschen, leider ohne Erfolg :(
Danke im Voraus & einen schönen Tag
Livio