Hi
Ik ben bezig met een form met de volgende code
Private Sub CommandButton4_Click() pakt de waarde van de geselecteerde cell en zet die in een tekstbox.
Het probleem is dat ik excel niet kan activeren en dus geen verschillende cellen kan aanklikken?!
Ik heb al geprobeerd om bij Private Sub UserForm_Activate() de workbook en sheet te activeren maar dat helpt niet.
Weet iemand hoe ik dit probleem op kan lossen?
Ik heb geprobeerd hierop te googelen maar krijg niet de juiste resultaten.
Ook omdat ik het probleem niet goed weet te omschrijven.
Bedankt voor de reacties!
Ik ben bezig met een form met de volgende code
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Private Sub CommandButton4_Click() Dim strEnter As String strEnter = Chr(13) & Chr(10) TextBox1.Text = TextBox1.Text & ActiveCell.Value & strEnter End Sub Private Sub UserForm_Activate() Workbooks("Hindernissen051206.xls").Activate Worksheets("BOM").Activate Dim strPartnummer As String Dim i As Integer i = 2 strPartnummer = "waarde" Do Until strPartnummer = "" i = i + 1 strPartnummer = Worksheets("Niet ingevuld").Range("A" & i) If strPartnummer = "" Then Else ComboBox1.AddItem (strPartnummer) End If Loop End Sub |
Private Sub CommandButton4_Click() pakt de waarde van de geselecteerde cell en zet die in een tekstbox.
Het probleem is dat ik excel niet kan activeren en dus geen verschillende cellen kan aanklikken?!
Ik heb al geprobeerd om bij Private Sub UserForm_Activate() de workbook en sheet te activeren maar dat helpt niet.
Weet iemand hoe ik dit probleem op kan lossen?
Ik heb geprobeerd hierop te googelen maar krijg niet de juiste resultaten.
Ook omdat ik het probleem niet goed weet te omschrijven.
Bedankt voor de reacties!
www.diovisuals.co,