Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zwei ComboBoxen

zwei ComboBoxen
11.07.2021 15:05:17
Bernd
Nun noch einmal , hat beim ersten Versuch nicht so richtig gefunzt . Es wird mir in einer zweiten ComboBox leider nichts Angezeigt , Würde mich freuen wenn mir jemand die Zündende Idee zukommen lassen könnte wo mein Fehler liegt . Hier mein Makro Code :
Sub Workbook_Open()
Z = 2
a = Sheets("T2").Cells(Z, 2).Value
While a ""
Sheets("T1").ComboBox1.AddItem a
Z = Z + 1
a = Sheets("T2").Cells(Z, 2).Value
Wend
End Sub Sub Workbook_Open1()
Z = 2
a = Sheets("T3").Cells(Z, 2).Value
While a ""
Sheets("T1").ComboBox1.AddItem a
Z = Z + 1
a = Sheets("T3").Cells(Z, 2).Value
Wend
End Sub

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
Range("a1").Select
Set c = Worksheets("T2").Columns(2).Find(ComboBox1.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Range("B8").Value = c.Offset(0, 0) '
Range("D8").Value = c.Offset(0, 1) '
Range("F8").Value = c.Offset(0, 2) '
With Range("C:C")
End With
Range("a1").Select
End If
End Sub

Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
On Error Resume Next
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
Range("a1").Select
Set c = Worksheets("T3").Columns(2).Find(ComboBox2.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Range("B8").Value = c.Offset(0, 0) '
Range("D8").Value = c.Offset(0, 1) '
Range("F8").Value = c.Offset(0, 2) '
With Range("C:C")
End With
Range("a1").Select
End If
End Sub

Private Sub CommandButton1_Click()
Range("B8").Select
Selection.ClearContents
Range("D8").Select
Selection.ClearContents
Range("F8").Select
Selection.ClearContents
Range("A1").Select
End Sub
Mit freundlichem Gruß
Bernd

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei ComboBoxen
11.07.2021 16:48:52
onur
VBA-Code ohne die zugehörige Tabelle bringt fast gar nix.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige