Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelleninfos lesen
 19.08.2022 07:40:48 Flo
NotSolved

Ansicht des Beitrags:
Von:
Flo		 Datum:
19.08.2022 07:40:48		 Views:
868		 Rating:
     
Antwort:
  Ja
Thema:
Tabelleninfos lesen

Moin Community,

ich habe ein Programm, in dem ich Teile (25 Werte in Spalte A) auswählen kann. Im zweiten Schritt wähle ich dann die zum jeweiligen Teil gehörende Stelle an dem das Teil eine beschädigung hat (Werte in Matrix 25x19). 

Nun will ich dass mein Programm den Wert den ich in der Matrix auswähle erkennt und mir darauf hin einen dazugehörigen Wert ausgibt der in Zeile 3 (C3:T3 in meinem Fall)  steht. Zb.  ich wähle zb Welle A1 : Schaden links F1 dann wäre der Wert den er ausgeben sollte F3. 

Dies soll aber für die ganze Matrix gecheckt werden, da die Schäden auch zu mehreren Ausgaben kommen. 

Unten mal angehängt wie mein Programm bis jz läuft. Und jz Fehlt mir quasi mein Part Private Sub Bereich Change()

Danke im Vorraus

Flo

Option Explicit

Private Sub UserForm_Initialize()
'1. Box

Worksheets("Pulver vs Anwendung").Activate

Bauteil.List = Range("B7:B25").Value

UserForm1.Bauteil.Text = "-Bauteil wählen-"

End Sub

Private Sub Bauteil_Change()

Bereich.Clear

'Bereich freischalten
Bereich.Enabled = True

Dim Zeile As Long
Dim tbl As ListObject
Dim i As Long


Set tbl = Tabelle4.ListObjects("Anwendung")


'Schleife über alle Zeilen der Tabellen

For Zeile = 7 To tbl.DataBodyRange.Rows.Count
    If Bauteil.Value = tbl.DataBodyRange(Zeile, 1).Value Then
    
      
     For i = 2 To tbl.DataBodyRange.Columns.Count
     Bereich.AddItem tbl.DataBodyRange(Zeile, i)
     Next i
        
End If

Next Zeile

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
Rot Tabelleninfos lesen
 19.08.2022 07:40:48 Flo
NotSolved