[VBA]Excel, kan geen cellen selecteren

Pagina: 1
Acties:
  • 379 views sinds 30-01-2008
  • Reageer

Acties:
  • 0 Henk 'm!

  • Sanity11
  • Registratie: Januari 2004
  • Niet online
Hi

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,


Acties:
  • 0 Henk 'm!

  • whoami
  • Registratie: December 2000
  • Laatst online: 15:40
VBA hoort thuis in Officesystemen, aangezien dit toch meestal office specifiek is.
PRG -> OFF

https://fgheysels.github.io/


Acties:
  • 0 Henk 'm!

Anoniem: 113297

vanaf office 2000 kan je een userform modeless tonen
code:
1
UserForm1.Show vbModeless
dit laat toe dingen te selecteren. of je kan een refedit control op de userform plaatsen.

Acties:
  • 0 Henk 'm!

  • Sanity11
  • Registratie: Januari 2004
  • Niet online
:*) Bedankt! het is gelukt.
Hier ben ik dan al een uur naar op zoek!

www.diovisuals.co,