AW: Command Button
06.11.2018 13:14:16
Rudi
Hallo,
Sprich es muss die Nummer der UF entsprechend variabel werden und auch in Worksheets("Serial-Details").Cells(2, 8).Value = 1 muss die "2" entsprechend als Variable ersetzt werden.
kein Problem.
Private Sub CommandButton1_Click()
Call Gunter(UserForm1, 2)
End Sub
Private Sub CommandButton2_Click()
Call Gunter(UserForm3, 7)
End Sub
Sub Gunter(objUF As Object, lngRow As Long)
Dim x As Variant, i As Integer
i = Worksheets("Serial-Details").Cells(lngRow, 8).Value
If i = 1 Then
'CommandButton1.BackColor = 12713921
x = WorksheetFunction.Transpose(Worksheets("Serial-Details").Range("J2:BT2"))
x = WorksheetFunction.Transpose(x)
With objUF
With .TextBox1
.MultiLine = True
.Value = Join(x, vbLf)
End With
.Show vbModeless
End With
Worksheets("Serial-Details").Cells(lngRow, 8).Value = 2
Else
'CommandButton1.BackColor = &H8000000F
objUF.Hide
Worksheets("Serial-Details").Cells(lngRow, 8).Value = 1
End If
End Sub
Gruß
Rudi