Microsoft Excel

Herbers Excel/VBA-Archiv

Combobox und markierung *knifflig* | Herbers Excel-Forum


Betrifft: Combobox und markierung *knifflig* von: LJTom
Geschrieben am: 11.11.2009 08:57:41

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

  

Betrifft: was steht den in den Combos? oT. von: Tino
Geschrieben am: 11.11.2009 09:08:27




  

Betrifft: AW: was steht den in den Combos? oT. von: LJTom
Geschrieben am: 11.11.2009 09:12:50

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


  

Betrifft: vielleicht so... von: Tino
Geschrieben am: 11.11.2009 09:27:40

Hallo,
hier ein Beispiel.

https://www.herber.de/bbs/user/65758.xls

Gruß Tino


  

Betrifft: AW: vielleicht so... von: LJTom
Geschrieben am: 11.11.2009 09:32:49

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 !!!


  

Betrifft: Erklärung von: Tino
Geschrieben am: 11.11.2009 09:39:00

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


Beiträge aus den Excel-Beispielen zum Thema "Combobox und markierung *knifflig*"