Thema: Combobox und markierung *knifflig* | Herbers Excel-Forum

Hallo Leute!!!
Bräuchte mal wieder eure Hilfe!!
Habe 2 Comboboxen mit den Namen Conbobox1 und Combobox2
Im arbeitsblatt habe ich Zellen fix deklariert sprich
Dim a as Range
Dim b as Range
Dim c as range
...
Weiter habe ich
Set a = Tabelle2.Range("F7")
Set b = Tabelle2.Range("G7")
Set c = Tabelle2.Range("H7")
Jetzt möchte ich mit hilfe der zwei Boxen den Bereich z.B zwischen a und c markieren. Wie mache ich das?
Danke im Vorraus
MFG Tom

also habe probeweise ein neues tabellenblat erstellt mit den Daetn a,b,c,d,.. in der spalte A1-A11 ich weis eh das das nicht funktionieren kann.
denn der Value der combobox steht nicht im zusammenhang mit dem neuen Tabellenblatt.
Deswegen weiß ich ja icht mehr weiter.
MFG

Hallo,
hier ein Beispiel.
https://www.herber.de/bbs/user/65758.xls
Gruß Tino

Ja so hab ich mir das vorgestellt. könntest du mir bitte nur kurz den Code erklären, blicke da nicht ganz durch.
Danke vielmals !!!

Hallo,
in DieserArbeitsmappe ist eine Workbook_Open Prozedur diese füllt die Combos.
Code in DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_Open() 
Dim meArAdressen() As String 
Dim A As Long 
Redim meArAdressen(Columns.Count - 1) 
 
For A = 0 To Columns.Count - 1 
 meArAdressen(A) = Cells(7, A + 1).Address(False, False) 
Next A 
 
With Tabelle2 
 .ComboBox1.List = meArAdressen 
 .ComboBox2.List = meArAdressen 
End With 
 
End Sub 

In der Tabelle2 sind die Eventmakros zu den Combos die bei Auswahl reagieren.
Code in Tabelle2

Option Explicit 
 
Private Sub ComboBox1_Change() 
If ComboBox1 <> "" And ComboBox2 <> "" Then 
 Application.Goto Range(Range(ComboBox1), Range(ComboBox2)) 
End If 
End Sub 
 
Private Sub ComboBox2_Change() 
If ComboBox1 <> "" And ComboBox2 <> "" Then 
 Application.Goto Range(Range(ComboBox1), Range(ComboBox2)) 
End If 
End Sub 

Gruß Tino