Kolom blokkeren

[Mosselman]

Beste lezer,

Ik ben op zoek naar een VBA code waarmee ik alleen Kolom A, cel 1 t/m 24 kan vastzetten. Normaal gesproken kan zoiets met titel blokkeren, maar dan plaatst Excel een lijn op je scherm op de plek van de blokkering. Zo'n lijn wil ik dus niet, maar de informatie in kolom A, cel 1 t/m 24 moet wel zichtbaar blijven als ik de cursor naar rechts verplaats.

Wie kan mij adviseren?

 

[trucker10]

Is dit iets voor U ?

 

[Haaren101]

Cursor op B25 en dan freeze panes (ik heb geen nederlandse versie)

Ron

 

[snb]

Gebruik titelblokkering voor kolom A.
Stel de opmaak van kolom A in op: achtergrond: zwart, lettertype wit.

 

[Mosselman]

Is dit iets voor U ?

Hallo Daniël,

Dat ziet er bruikbaar uit.
Wat moet ik aanpassen om ervoor te zorgen dat de kolom pas van A4 t/m A24 blijft staan?
Ik begrijp dat de code TOP aangeeft, dat de blokkering vanaf de bovenzijde van de sheet werkt en dat is niet helemaal de bedoeling.

Thanks!

 

[trucker10]

Hallo Daniël,

Dat ziet er bruikbaar uit.
Wat moet ik aanpassen om ervoor te zorgen dat de kolom pas van A4 t/m A24 blijft staan?
Ik begrijp dat de code TOP aangeeft, dat de blokkering vanaf de bovenzijde van de sheet werkt en dat is niet helemaal de bedoeling.

Thanks!

Is het de bedoeling dat enkel de cellen A4 tot A24 zichtbaar zijn of moet de listbox vanaf rij A4 beginnen ?
voor begin op rij 4 Alt F11 en daar de code aanpassen op

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Application.CutCopyMode = 0 Then
    With ActiveWindow.VisibleRange
        ListBox1.Top = .Top + 55
        ListBox1.Left = .Left + .Width - ListBox1.Width - 40
    End With
End If
   
End Sub

in geval de range vanaf A4 tot A24 > ontwerpmodus en de listfilerange v/d listbox aanpassen

 

[Mosselman]

Is het de bedoeling dat enkel de cellen A4 tot A24 zichtbaar zijn of moet de listbox vanaf rij A4 beginnen ?
voor begin op rij 4 Alt F11 en daar de code aanpassen op

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Application.CutCopyMode = 0 Then
    With ActiveWindow.VisibleRange
        ListBox1.Top = .Top + 55
        ListBox1.Left = .Left + .Width - ListBox1.Width - 40
    End With
End If
   
End Sub

in geval de range vanaf A4 tot A24 > ontwerpmodus en de listfilerange v/d listbox aanpassen

Sorry Daniël,

Ik ben even de draad kwijt; Hoe kan ik ervoor zorgen dat ik een listbox krijg?

 

[trucker10]

Sorry Daniël,

Ik ben even de draad kwijt; Hoe kan ik ervoor zorgen dat ik een listbox krijg?

kijk in de voorbeeldjes excel 2003 / 2007

Ik vetrek straks met vrachtwagen en daar heb ik excel 2002

 

[snb]

Met deze macro:

Sub tst()
  With Sheets(1).OLEObjects.Add("Forms.ListBox.1", , , , , , , 400, ActiveWindow.Top, 90, 252)
     .ListFillRange = "A4:A24"
     .Placement = 3
     .Activate
  End With
End Sub