• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Uren in een UserForm TextBox.

  • Onderwerp starter Onderwerp starter Zerty
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Zerty

Gebruiker
Lid geworden
12 mei 2015
Berichten
110
Hallo,
Ik ben een UserForm aan het maken om mijn Afspraken bij te houden.
Het lukt redelijk goed, enkel de uren in het gedeelte 'Raadplegen en Aanpassen' werkt niet.
Heb zowat van alles geprobeerd maar het blijft een raadsel waarom het niet werkt.
Is er iemand die mij verder kan helpen?
Bedankt alvast.
 

Bijlagen

Dit bedoel je?
Code:
Uur.Value = Format(Afspraak.List(iRow, 1), "hh:mm")
 
Ja, inderdaad.
Had dat nochtans eens geprobeerd, blijkbaar iets fout gelopen.
Hartelijk dank in ieder geval.
Nu kan ik verder zonder frustratie :thumb:

Zerty.
 
Ik zit toch weer vast.
Heb je een idee welke formule nodig is om de TextBox met de 'Komende Afspraken' in te vullen?
Dat zijn al de afspraken met een datum nà vandaag.
 
Waw, dat is perfect gedaan.
Ik zal nog heel wat moeten leren zo te zien.
Ben heel blij dat dit opgelost is.
Mijn dank is groot Cobbe, dit is uren piekeren en proberen gespaard.

Zerty
 
Misschien mosterd na de maaltijd.

De lus van 2 to 100 van @Cobbe is misschien te groot of vroeg of laat te klein.
Code:
Private Sub UserForm_Initialize()
Dim i As Long
With ListBox1
  .List = Cells(1).CurrentRegion.Offset(1).Value
    For i = .ListCount - 1 To 0 Step -1
      If .List(i, 0) < Date Then
         .RemoveItem i
       Else
         .List(i, 0) = Format(.List(i, 0), "dddd dd-mm-yyyy")
      End If
    Next i
 End With
End Sub
 
Inderdaad een mooie oplossing.
Ik had al het item van 100 naar 1000 aangepast, maar dit is nog beter.
Mijn project 'De Excellente Adreslijst' krijgt op die manier een professionele werking.
Hartelijk dank hiervoor.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan