Thema Datum  Von Nutzer Rating
Antwort
Rot Übertragen in Userform2
23.08.2022 12:43:38 Nic
NotSolved

Ansicht des Beitrags:
Von:
Nic
Datum:
23.08.2022 12:43:38
Views:
338
Rating: Antwort:
  Ja
Thema:
Übertragen in Userform2

Hallo,

ich glaub ich bin vor lauter Stunden suchen schon blind und dachte ich frag mal hier. Oft sehen 4 augen ja besser als 2. 

Ich hab ein Programm dass mir in Userform1 Parameter ließt aus einer Tabelle und sobald ich aus der Tabelle zb werkstoff Zeile 5 gewählt habe und dann durchmesser  Spalte 8, gibt er mir das passende Pulver aus der ersten Zeile und spalte 8. 
nun habe ich eingestellt, dass er mir die Pulvervorschläge in einer Listform zwischenspeichert. Mein Plan war danach diese in eine kleine Tabelle zu schicken mit Range("zugehöriger Tabellenplatz" )= Pulvervorschläge, und diese dann wieder in UF2 Abzurufen (über Rowsource). Aber es speichert mir meine Einträge nicht in die Tabelle und ich weiß nicht woran es liegt.. 

Wie gesagt ich suche schon seit locker 3 h und steh irgendwie bisschen auf dem schlauch.. 

 

lg und danke im vorraus. 



Private Sub Grundwerkstoff_Change()
'Alles für Userform 1
Bauteildurchmesser.Clear


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 = "NR" Then
 End If
 If Bauteildurchmesser.Value = "ND" Then
 End If
      If Bauteildurchmesser.Value = tbl3.DataBodyRange(g, v) Then
             Pulvervorschläge1.AddItem tbl3.DataBodyRange(1, v)
            End If
 Next v


End Sub


Private Sub Weiter_Click()

Worksheets("FormularStarten").Activate


Range("K3") = Bauteil
Range("K4") = Bereich
Range("K5") = Grundwerkstoff
Range("K6") = Bauteildurchmesser
Range("K7") = Pulvervorschläge1

UserForm1.Hide

UserForm2.Show

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 Übertragen in Userform2
23.08.2022 12:43:38 Nic
NotSolved