zwevend berichtvenster op tabblad

Discussion:

(te oud om op te antwoorden)

jodewa

2009-11-20 10:37:03 UTC

Hoi,

ik heb (nog) een vraag.
Op een bepaald tabblad heb ik vrij veel kolommen met cijfers die ik moet
toewijzen via enkele standaardwaarden. (VLOOKUP). Dit gaat perfect.
Het probleem is echter dat de standaardwaarden bovenaan op de file staan en
ik telkens opnieuw moet opnieuw scrollen om te kijken welk waarde ik nodig
heb. Daarom zou ik via een knop een berichtbox willen zien waar ze in staan.
De bedoeling is dat dit venster zichtbaar blijft ongeacht de positie van de
pagina.
Er zouden ook twee knoppen op de pagina moeten komen, 1 om dit venster te
tonen en 1 om het te verbergen. De knoppen mogen uiteraard vast op de pagina
blijven staan.
Wie kan mij hiermee verder helpen?
Alvast bedankt,

Johan

Martin

2009-11-20 13:02:24 UTC

Permalink

Maak met de werkbalk Tekenen een tekstvak in je werkblad.

Zet deze macro achter het werkblad

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
Cancel = True
Dim Top As Single, Links As Single
If ActiveSheet.Shapes("Text Box 1").Visible = False Then
ActiveSheet.Shapes("Text Box 1").Visible = True
Else
ActiveSheet.Shapes("Text Box 1").Visible = False
Exit Sub
End If

ActiveSheet.Shapes("Text Box 1").Select
ActiveSheet.Shapes("Text Box 1").Top = ActiveCell.Top
ActiveSheet.Shapes("Tekstvak 1").Select
Selection.Characters.Text = _
Range("A1") & Chr(10) & _
Range("A2") & Chr(10) & _
Range("A3") & Chr(10) & _
Range("A4")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Shapes("Text Box 1").Top = ActiveCell.Top
End Sub

Pas Range("A1") en Range("A2") e.z.v. aan
Klik met de rechtermuisknop in je werkblad

Post by jodewa
Hoi,
ik heb (nog) een vraag.
Op een bepaald tabblad heb ik vrij veel kolommen met cijfers die ik moet
toewijzen via enkele standaardwaarden. (VLOOKUP). Dit gaat perfect.
Het probleem is echter dat de standaardwaarden bovenaan op de file staan en
ik telkens opnieuw moet opnieuw scrollen om te kijken welk waarde ik nodig
heb. Daarom zou ik via een knop een berichtbox willen zien waar ze in staan.
De bedoeling is dat dit venster zichtbaar blijft ongeacht de positie van de
pagina.
Er zouden ook twee knoppen op de pagina moeten komen, 1 om dit venster te
tonen en 1 om het te verbergen. De knoppen mogen uiteraard vast op de pagina
blijven staan.
Wie kan mij hiermee verder helpen?
Alvast bedankt,
Johan

jodewa

2009-11-23 06:45:02 UTC

Permalink

Martin,

moet ik dze macro toewijzen aan het tekstvak of moet ik gewoon een macro
aanmaken en de code toewijzen?
Bedankt.

Post by Martin
Maak met de werkbalk Tekenen een tekstvak in je werkblad.
Zet deze macro achter het werkblad
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
Cancel = True
Dim Top As Single, Links As Single
If ActiveSheet.Shapes("Text Box 1").Visible = False Then
ActiveSheet.Shapes("Text Box 1").Visible = True
Else
ActiveSheet.Shapes("Text Box 1").Visible = False
Exit Sub
End If
ActiveSheet.Shapes("Text Box 1").Select
ActiveSheet.Shapes("Text Box 1").Top = ActiveCell.Top
ActiveSheet.Shapes("Tekstvak 1").Select
Selection.Characters.Text = _
Range("A1") & Chr(10) & _
Range("A2") & Chr(10) & _
Range("A3") & Chr(10) & _
Range("A4")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Shapes("Text Box 1").Top = ActiveCell.Top
End Sub
Pas Range("A1") en Range("A2") e.z.v. aan
Klik met de rechtermuisknop in je werkblad

Martin

2009-11-23 09:38:01 UTC

Permalink

Ik weet niet precies wat je bedoelt.
Maar als je deze macro achter het werkblad plaatst en met je rechter muis in
het blad klikt wordt jou tekst vak zichtbaar klik je weer met de rechter muis
in het blad dan is het tekstvak weer weg.

Post by jodewa
Martin,
moet ik dze macro toewijzen aan het tekstvak of moet ik gewoon een macro
aanmaken en de code toewijzen?
Bedankt.

jan

2009-11-20 13:20:42 UTC

Permalink

Johan,

Heb je aan titelblokkering gedacht?

Jan

jodewa

2009-11-23 06:46:01 UTC

Permalink

Ja, maar dit is niet mogelijk, aangezien de gegevens niet bovenaan staan en
toch wel ee naantal rijen in beslag nemen.
Ik heel de file zichtbaar wens te houden.
Toch bedankt,

Post by jan
Johan,
Heb je aan titelblokkering gedacht?
Jan
.