Data uit een opmerking (Comment)

Status
Niet open voor verdere reacties.

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
891
Goedemiddag allen,

Zit weer met een vraagje:
Doordat in m'n hoofd file bepaalde kolommen niet kan veranderen, zit ik met het probleem dat ik bepaalde data niet kan opslaan.
Dit komt (gelukkig) niet veel voor, dus probeer het op de volgende manier.
Door middel van een opmerking in een cel in te voeren kan ik deze data kwijt zonder het programma te verstoren,

Kan inmiddels via VBA een opmerking (comments) met data invoegen.
Tevens ook meerdere regels maken.
Het terughalen gaat ook, maar dan krijg ik alle tekst in één keer.
De vraag is nu hoe kan ik het zo aansturen dat ik bv. van regel 2 de data wil inlezen en bv op cel D10 te zetten?

Voorbeeldje met probeersel erbij gedaan


Al many thanks bij voorbaat.

Vr. Gr.

Dutch

Had hem geuploaded???
Nog maar eens
 

Bijlagen

Laatst bewerkt:
Staat er nu bij.

Stukje code waar ik de data terug wil halen uit de Opmerking

Code:
Private Sub CommandButton3_Click()
  ActiveWorkbook.Worksheets("Blad1").Range("A10").activate
   ActiveWorkbook.Worksheets("Blad1").Range("B10") = Left(ActiveCell.Comment.Text, 3)
   ActiveWorkbook.Worksheets("Blad1").Range("C10") = Right(ActiveCell.Comment.Text, 1)
'  With Rows
'   .Range("D10") =     hier de Text van een bepaalde regel uit de opmerking
'  End With
End Sub

Dit werkt, maar probeer dus een regel uit het midden te halen

ff verder aan het stoeien.

je kan het met activecel data ophalen
met .Range
nu nog met Rows
Code:
Private Sub CommandButton3_Click()
'   met active cel  ActiveWorkbook.Worksheets("Blad1").Range("A10").activate
'   ActiveWorkbook.Worksheets("Blad1").Range("B10") = Left(ActiveCell.Comment.Text, 3)
'   ActiveWorkbook.Worksheets("Blad1").Range("C10") = Right(ActiveCell.Comment.Text, 1)

  With Worksheets("Blad1")
   .Range("B10") = Left(.Range("A10").Comment.Text, 3)          ' met .Range
   .Range("C10") = Right(.Range("A10").Comment.Text, 1)
  End With
  
  With Worksheets("Blad1")
'   .Range("D10") =     hier de Text van een bepaalde regel uit de opmerking
  End With
End Sub
 
Laatst bewerkt:
Als je een waarde met chr(10) in een comment zet zal je deze op dezelfde manier er weer uit moeten halen.

Code:
Sub VenA()
c00 = Split(Sheets(1).[a10].Comment.Text, Chr(10))
For j = 1 To UBound(c00) + 1
    c01 = c01 & "regel: " & j & " waarde: " & c00(j - 1) & Chr(10)
Next j
MsgBox c01
End Sub
 
Hoi VenA, thanks voor het meedenken.

Met Ubound komt de foutmelding "Er Wordt een Matrix verwacht
En met een getal geeft hij aan dat c00 niet goed gedimensioneerd is met de foutmelding op c01 "een variabele is niet gedefinieerd
Heb c00 als een Long gedefinieerd, maar zal niet goed wezen denk ik :-(

Code:
Sub VenA()
Dim c00 As Long, j As Integer

c00 = Split(Sheets(1).[a10].Comment.Text, Chr(10))
For j = 1 To 10  'UBound(c00) + 1
    c01 = c01 & "regel: " & j & " waarde: " & c00(j - 1) & Chr(10)
Next j
MsgBox c01
End Sub
 

Bijlagen

Laatst bewerkt:
Option Explicit even weghalen of c01 als variabele declareren;) en c00 is natuurlijk geen long.

En volgens mij heb ik nog wel wat edits nodig

For j = 1 to 10 gaat natuurlijk ook niet werken.

maar even aangepast naar jouw situatie

Code:
Sub VenA()
Dim c00, c01, j
c00 = Split(Sheets(1).[a10].Comment.Text, Chr(10))
For j = 1 To UBound(c00) + 1
    c01 = c01 & "regel: " & j & " waarde: " & c00(j - 1) & Chr(10)
Next j
MsgBox c01
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan