Thema Datum  Von Nutzer Rating
Antwort
08.03.2023 07:47:59 Sascha
Solved
08.03.2023 08:59:30 Flatulenz
Solved
09.03.2023 06:09:34 Gast85619
NotSolved
08.03.2023 18:17:56 xlKing
Solved
Rot Komboboxen-Problem
 09.03.2023 06:14:03 Gast56887
NotSolved
09.03.2023 15:02:52 Sascha
Solved
10.03.2023 10:29:51 Gast50568
NotSolved
10.03.2023 14:51:14 Gast90652
NotSolved

Ansicht des Beitrags:
Von:
Gast56887		 Datum:
09.03.2023 06:14:03		 Views:
168		 Rating:
     
Antwort:
  Ja
Thema:
Komboboxen-Problem

Hallo
Ja, stimmt. Hier nochmal der jetzige Code. Hatte die "If banddicke" 2 mal unten drin. Die Dictionary habe ich, damit nicht zig mal die selbe Dicke in der ersten Kombobox zur auswahl steht. Hätte ja dann hier zB. 3x 0,70mm; 2x 0,90mm usw zur Auswahl. Das wäre eine sehr lange Liste später
Grüße

Private Sub bandbreite_Change()
Set finden = Worksheets("Tabelle1").Columns(3).Find(what:=bandbreite, lookat:=xlWhole, LookIn:=xlValues)
dicke = finden.Offset(0, -1)
gewicht = finden.Offset(0, 1)
End Sub

Private Sub banddicke_Change()
bandbreite.Clear
bandbreite.Enabled = True

Dim Zeile As Long
Dim tbl As ListObject
Set tbl = Tabelle1.ListObjects("Kilogramm")
For Zeile = 1 To tbl.DataBodyRange.Rows.Count
If banddicke.Value = tbl.DataBodyRange(Zeile, 2).Value Then
bandbreite.AddItem tbl.DataBodyRange(Zeile, 3).Value
End If
Next Zeile
End Sub

Private Sub UserForm_Initialize()
banddicke.List = Range("Kilogramm[Dicke]").Value

Dim odic As Object
Set odic = CreateObject("scripting.dictionary")
Dim cell As Range
For Each cell In Tabelle1.Range("Kilogramm[Dicke]")
odic(cell.Value) = 0
Next cell
banddicke.List = odic.keys
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.03.2023 07:47:59 Sascha
Solved
08.03.2023 08:59:30 Flatulenz
Solved
09.03.2023 06:09:34 Gast85619
NotSolved
08.03.2023 18:17:56 xlKing
Solved
Rot Komboboxen-Problem
 09.03.2023 06:14:03 Gast56887
NotSolved
09.03.2023 15:02:52 Sascha
Solved
10.03.2023 10:29:51 Gast50568
NotSolved
10.03.2023 14:51:14 Gast90652
NotSolved