userform die zweite
01.08.2015 10:36:56
chito
Hallo guten Morgen,
mit diesem Code öffnet sich eine UF und zeigt mir die Daten in der Mappe "Datenblatt an, soweit so gut, funktioniert auch, aber nur wenn ich in der Mappe bin.
Geht das auch,wenn die Mappe geschlossen ist und wie müsste der Code umgeschrieben werden.
Vielen Dank im Voraus
Chito
Private Sub UserForm1_Initialize()
If Sheets("Datenblatt").ActiveCell.Row < 2 Then
spn_Change = 2
Else
spn_Change = Sheets("Datenblatt").ActiveCell.Row
End If
End Sub
Private Sub spn_Change_Change()
spn_Change.Min = 2
spn_Change.Max = 1048576
Cells(spn_Change, 2).Select
Me.TextBox1 = ActiveCell
Cells(spn_Change, 3).Select
Me.TextBox2 = ActiveCell
Cells(spn_Change, 46).Select
TextBox3 = ActiveCell
Cells(spn_Change, 47).Select
TextBox4 = ActiveCell
Cells(spn_Change, 48).Select
TextBox5 = ActiveCell
End Sub