Combobox soll mehrere Spalten auf bestimmter Zeile anwählen

[NanuNana]

Hallo Zusammen,

ich finde leider keinen passenden Beitrag dazu.

Erklärung: Ich habe eine Combobox welche erst erscheint wenn ich eine bestimmte Spalte einen Zellbereich anwähle.
Diese liest einen Zeilenbereich aus. Da diese ja immer auf einer anderen Zeilenhöhe erscheint soll sie auch nur den Zeilenbereich auf der aktuellen höhe auswählen.
Wie lautet denn hierzu der Code.

Wäre euch sehr dankbar für eine Hilfe!
Code sieht aktuell aus wie folgt:

Code:

Private Sub ComboBox2_GotFocus()
 ComboBox2.List = Application.Transpose([AR21:CC21])
End Sub

MfG

[00202]

Hallo, :19:

Code:

ComboBox2.List = Application.Transpose(Range("AR" & ActiveCell.Row & ":CC" & ActiveCell.Row))

[NanuNana]

Hallo Case,

Danke dir viele male, ich meine das müsste eigentlich mit dem von dir geschriebenen Code gehen aber irgendwie klappt es nicht ganz.
Leider zeigt er mir nicht den Entsprechenden Inhalt der definitiv enthalten ist an.

hat es evtl. etwas mit den ebenfalls verbundenen Code zur Combobox im Worksheet Change Event zutun?

Code:

Private Sub ComboBox2_GotFocus()
ComboBox2.List = Application.Transpose(Range("AR" & ActiveCell.Row & ":CC" & ActiveCell.Row))
End Sub

Private Sub worksheet_Change(ByVal Target As Excel.Range)

   ComboBox1.Visible = False
   ComboBox1.LinkedCell = ""
   ComboBox2.Visible = False
   ComboBox2.LinkedCell = ""

   If Cells(18, Target.Column) = "Rubrik" Then
       If Target.Row > 18 Then
           If Target.Cells.Count = 1 Then
               With ComboBox1
                   .Top = Target.Top
                   .Left = Target.Left
                   .Width = Target.Width + 10
                   .LinkedCell = Target.Address
                   .Visible = True
               End With
               
           End If
       End If
   End If
   
                   
   If Cells(18, Target.Column) = "Rubrik2" Then
       If Target.Row > 19 Then
           If Target.Cells.Count = 1 Then
               With ComboBox2
                   .Top = Target.Top
                   .Left = Target.Left
                   .Width = Target.Width + 10
                   .LinkedCell = Target.Address
                   .Visible = True
               End With
               
           End If
       End If
   End If
   End Sub

[schauan]

Hallöchen,

setze einfach mal einen Haltepunkt in beide Makros. Du kannst dann schauen, was jeweils passiert. Zur Fortsetzung der Makros kannst Du F8 drücken und dann bei jeder Codezeile eventuelle Änderungen ausmachen.