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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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