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
09.03.2023 06:14:03 Gast56887
NotSolved
09.03.2023 15:02:52 Sascha
Solved
10.03.2023 10:29:51 Gast50568
NotSolved
Blau Komboboxen-Problem
 10.03.2023 14:51:14 Gast90652
NotSolved

Ansicht des Beitrags:
Von:
Gast90652		 Datum:
10.03.2023 14:51:14		 Views:
241		 Rating:
     
Antwort:
  Ja
Thema:
Komboboxen-Problem

Hallo
Ja stimmt, hätte den Code hier mal einfügen können. Hier der richtige Code. Die ComboBox für die Bandbreite wurde angepasst
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)
  
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim Zeile As Long
  Set wb = ThisWorkbook
  Set ws = wb.Sheets("Tabelle1")
  letztezeile = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row
  For Zeile = 1 To letztezeile
      If Me.banddicke.Value = ws.Cells(Zeile, 2) And _
         Val(Me.bandbreite.Value) = ws.Cells(Zeile, 3) Then
          Me.gewicht = ws.Cells(Zeile, 4)
      End If
  Next Zeile
  Me.dicke = Me.banddicke.Value
  Me.Caption = "Gewicht auf " & Me.banddicke.Value & "/" & Me.bandbreite.Value
  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
09.03.2023 06:14:03 Gast56887
NotSolved
09.03.2023 15:02:52 Sascha
Solved
10.03.2023 10:29:51 Gast50568
NotSolved
Blau Komboboxen-Problem
 10.03.2023 14:51:14 Gast90652
NotSolved