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:
323
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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