VBA If Then für 120 Namen
14.01.2017 09:06:38
Becker
hoffe es gibt eine Lösung!
Muß ich für jede If Then funktion in VBA eigenen Block schreiben?
es sind insgesamt 120 Namen für die ich If Then benutzen möchte, gibt es eine möglichkeit etwas am Code zu sparen?
hier der Code:
~f
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Name1
If TextBox1.Text = "Name1" Then
TextBox2.Text = Tabelle4.Range("F2").Value
TextBox3.Text = Tabelle4.Range("G2").Value
TextBox4.Text = Tabelle4.Range("H2").Value
TextBox5.Text = Tabelle4.Range("I2").Value
TextBox6.Text = Tabelle4.Range("E2").Value
TextBox7.Text = Tabelle4.Range("C2").Value
TextBox8.Text = Tabelle4.Range("D2").Value
TextBox9.Text = Tabelle4.Range("B2").Value
TextBox10.Text = Tabelle4.Range("K2").Value
TextBox11.Text = Tabelle4.Range("N2").Value
TextBox12.Text = Tabelle4.Range("O2").Value
TextBox13.Text = Tabelle4.Range("J2").Value
TextBox14.Text = Tabelle4.Range("M2").Value
TextBox15.Text = Tabelle4.Range("L2").Value
TextBox16.Text = Tabelle4.Range("P2").Value
TextBox17.Text = Tabelle4.Range("Q2").Value
Image1.Picture = LoadPicture("C:\Users\Name\Desktop\Name\MA_Fotos\RZ\Name1.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
'Name2
If TextBox1.Text = "Name2" Then
TextBox2.Text = Tabelle4.Range("F3").Value
TextBox3.Text = Tabelle4.Range("G3").Value
TextBox4.Text = Tabelle4.Range("H3").Value
TextBox5.Text = Tabelle4.Range("I3").Value
TextBox6.Text = Tabelle4.Range("E3").Value
TextBox7.Text = Tabelle4.Range("C3").Value
TextBox8.Text = Tabelle4.Range("D3").Value
TextBox9.Text = Tabelle4.Range("B3").Value
TextBox10.Text = Tabelle4.Range("K3").Value
TextBox11.Text = Tabelle4.Range("N3").Value
TextBox12.Text = Tabelle4.Range("O3").Value
TextBox13.Text = Tabelle4.Range("J3").Value
TextBox14.Text = Tabelle4.Range("M3").Value
TextBox15.Text = Tabelle4.Range("L3").Value
TextBox16.Text = Tabelle4.Range("P3").Value
TextBox17.Text = Tabelle4.Range("Q3").Value
Image1.Picture = LoadPicture("C:\Users\Name\Desktop\Name\MA_Fotos\RZ\Name2.jpg")
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub
~fGruß Andreas