Datenanzeige in einer Userform
27.04.2021 10:05:58
Sebastian
ich bin was das VBA programmieren angeht noch relativ neu.
Ich arbeite gerade an einem Projekt für die Arbeit. Hierbei soll über einer Userform die Wareneingänge eingetragen werden. Diess klappt auch ohne Probleme.
Nun hab ich jedoch das Problem, dass wir bei gewissen Eingängen die Tore von einer bereits bestehenden Mappe berechnen lassen (Wegeoptimierung). Ich versuch nun gerade das berechnete Ergebnis aus Tabelle 2 in der Userform von Tabelle 1 anzeigen zu lassen. Leider bekomm ich den Code dafür nicht hin.
Ich hoffe Ihr könnt mir helfen.
Ein Datenupload ist leider nicht möglich, da die Dateien sehr groß sind und die 2. Datei Zugangsdaten für den Server enthält.
Anbei die bisherige Programmierung und es hängt in der letzten Zeile.
Vielen Dank
Private Sub UserForm_Initialize()
Me.Caption = "Schleuseneingang" & Date
With Me.Eingangsart
.Font.Size = 14
End With
With Me.TextBoxEingangsart
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Reise
.Font.Size = 14
End With
With Me.TextBoxReise
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Ware
.Font.Size = 14
End With
With Me.TextBoxWare
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Hinweis
.Font.Size = 14
End With
With Me.TextBoxHinweis
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Schleuse1
.Font.Size = 14
End With
With Me.S1
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Schleuse2
.Font.Size = 14
End With
With Me.S2
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Schleuse3
.Font.Size = 14
End With
With Me.S3
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
With Me.Schleuse4
.Font.Size = 14
End With
With Me.S4
.BackColor = RGB(255, 255, 0)
.ForeColor = RGB(0, 0, 255)
.Font.Size = 14
End With
S1.Value = Workbooks("Prototyp Schleusensteuerung NV-Eingang_Version 2.1.xlsm).Sheets("Tabelle1").Range("B5").Value
End Sub