Office: (Office 2013) Ergänzung eines VBA-Codes

Hallo zusammen,

ich habe mich der Tabelle aus diesem Thread bedient:

http://www.office-hilfe.com/support...hl-mehrerer-Einträge-in-einer-Drop-Down-Liste

Die Funktion ist extrem brauchbar für mich, allerdings würde ich sie gerne ergänzen.

In der jetzigen Funktion ist der Code auf die Zellen B2-B5 beschränkt. Immer dann wenn keine Auswahl (Paul, Miriam, etc.) getroffen wurde, wird automatisch in Zelle 5 (Miriam geschrieben).

Ich möchte aber, dass IMMER in die aktive Zelle geschrieben wird. Kann mir jemand bitte helfen diese Funktion einzubauen? Der Einfachheithalber poste ich den Original-VBA-Code hier mit her:

----------------------------------------------
Private Sub CommandButton1_Click()
If opt1 = True Then
arange = "B2"
ElseIf opt2 = True Then
arange = "B3"
ElseIf opt3 = True Then
arange = "B4"
Else
arange = "B5"
End If

a = Range(arange).Value
If a = "" Then
Range(arange).Value = ListBox1.Value
Else
Range(arange).Value = Range(arange).Value + ", " + ListBox1.Value
End If
End Sub
----------------------------------------------------------

Bin für jeden Tipp dankbar, viele Grüße
Sven

 

Hallo Sven,

soll das heißen, dass statt der Variante Schreiben in Zelle B5, falls keine Auswahl mit "opt1"..."opt3" getroffen wurde, die aktive Zelle zum Einsatz kommt?
Falls ja, dann dieser Code:

Code:

Private Sub CommandButton1_Click()
  Dim aRange As String
  Dim a As Variant
  If opt1 = True Then
     aRange = "B2"
  ElseIf opt2 = True Then
     aRange = "B3"
  ElseIf opt3 = True Then
     aRange = "B4"
  Else
     aRange = ActiveCell.Address
  End If

  a = Range(aRange).Value
  If a = "" Then
     Range(aRange).Value = ListBox1.Value
  Else
     Range(aRange).Value = Range(aRange).Value + ", " + ListBox1.Value
  End If
End Sub

Falls das heißen soll, dass die Auswahl mit "opt1"..."opt3" überflüssig sein soll und ausschließlich die aktive Zelle zum Einsatz kommen soll, dann dieser Code:

Code:

Private Sub CommandButton1_Click()
  Dim aRange As String
  Dim a As Variant
  aRange = ActiveCell.Address

  a = Range(aRange).Value
  If a = "" Then
     Range(aRange).Value = ListBox1.Value
  Else
     Range(aRange).Value = Range(aRange).Value + ", " + ListBox1.Value
  End If
End Sub

 

Moin Anton,

mit der Variante 2 hast Du mein Anliegen vollkommen korrekt interpretiert und gelöst.

Vielen Dank dafür und einen tollen Tag!

Sven