Thema Datum  Von Nutzer Rating
Antwort
Rot Zugriff auf Tabelle
25.08.2022 08:08:13 Flo
NotSolved
26.08.2022 06:42:55 ralf_b
*****
Solved

Ansicht des Beitrags:
Von:
Flo
Datum:
25.08.2022 08:08:13
Views:
267
Rating: Antwort:
  Ja
Thema:
Zugriff auf Tabelle

Moin,

ich habe eine Userform aufgebaut in der Werte aus einer Tabelle genommen werden basierend auf dem was ich vorher in einer Combobox gewählt habe. 

Nun habe ich in Spalte 1 Dinge die gewählt werden können in Combobox 1. bei Auswahl einer beliebigen gibt er mir für die nächste CB alle Werte aus die in der jeweiligen Zeile ab Spalte 2 bis Ende stehen (Werte auch doppelt vorkommend) . Und nun sollte wenn ich eine dieser Spalten auswähle mir das Ergebnis angezeigt werden was jeweils in der 1 Zeile steht der dazugehörigen Spalte. Da oft eine Spalte das selbe hat wie andere zeigt es mir auch die Ergebnisse zu den anderen gleichen Spalten an. Das ist soweit auch gewollt. 

Das klappt auch alles super bis auf bei einen Spaltenwert. Woran kann das liegen dass er genau diesen einen nicht nimmt? 

Ich kann ja mal mein Code rein packen vielleicht hilft der beim Lösen..

LG Flo 

--------------- 

Private Sub Grundwerkstoff_Change()

Worksheets("Pulver vs Grundwerkstoff").Activate

Grundwerkstoff.List = Range("B7:B14").Value

Dim g As Long
Dim tbl2 As ListObject
Dim z As Long

Set tbl2 = Tabelle3.ListObjects("Grundwerkstoff")

For g = 5 To tbl2.DataBodyRange.Rows.Count
     If Grundwerkstoff.Value = tbl2.DataBodyRange(g, 2).Value Then
     For z = 3 To tbl2.DataBodyRange.Columns.Count
     
     If tbl2.DataBodyRange(g, z) > 0 Then
               Bauteildurchmesser.AddItem tbl2.DataBodyRange(g, z)
                Range("B23") = g
         End If
                        
          Next z
               Exit For
         End If
   Next g
    
End Sub

Private Sub Bauteildurchmesser_Change()
Pulvervorschläge1.Clear

Worksheets("Pulver vs Grundwerkstoff").Activate


Dim tbl3 As ListObject
Dim v As Long
Dim g As Long
Set tbl3 = Tabelle3.ListObjects("Grundwerkstoff")
g = Range("B23")


 For v = 3 To tbl3.DataBodyRange.Columns.Count
       If Bauteildurchmesser.Value = tbl3.DataBodyRange(g, v) Then
      
      Pulvervorschläge1.AddItem tbl3.DataBodyRange(1, v)
            
            End If
 Next v


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 Zugriff auf Tabelle
25.08.2022 08:08:13 Flo
NotSolved
26.08.2022 06:42:55 ralf_b
*****
Solved