bowlingman
Gebruiker
- Lid geworden
- 17 okt 2007
- Berichten
- 433
Hallo,
Ik heb een UserForm gemaakt van waaruit ik gegevens wegschrijf naar een excel-sheet.
Voor het wegschrijven van de datum gebruik ik een tekstbox, omdat de datums handmatig moeten ingegeven worden en dus niet met DTPicker.
Dit gebeurd met de volgende code
Het probleem is nu, dat wanneer ik de datum wegschrijf, deze zolang de dag hoger is als 12, deze op de correcte wijze op mijn sheet komt, maar wanneer ik bv. in mijn UserForm de datum 11/12/2011 (dus de dag kleiner dan 12) inbreng deze op mijn sheet komt als 12/11/2011.
Moet ik soms ergens in de bovenstaande code een opmaak voor de datum zetten.
De kolom waar de datums komen staat wel in de juiste datum-notatie.
Grtjs.
Bowlingman
Ik heb een UserForm gemaakt van waaruit ik gegevens wegschrijf naar een excel-sheet.
Voor het wegschrijven van de datum gebruik ik een tekstbox, omdat de datums handmatig moeten ingegeven worden en dus niet met DTPicker.
Dit gebeurd met de volgende code
Code:
Option Explicit
Private Sub cboSpeeldag_Change()
Dim oRng As Range
Set oRng = Sheets("Blad9").Cells.Find(what:=cboSpeeldag.Value, lookat:=xlWhole)
End Sub
Private Sub cmbWegschrijven_Click()
Dim Rw1 As Integer, i As Integer
Dim tb As Object
With Sheets("Blad9")
Rw1 = .Range("B100").End(xlUp).Row + 1
For Each tb In Me.Controls
For i = 1 To 3
If tb.Name = "txtBaan" & i Then
With .Cells(Rw1, i + 2)
.Value = tb.Value
End With
With .Cells(Rw1, 2)
.Value = txtDatum.Value
End With
tb.Value = ""
End If
Next
Next
txtDatum.Value = ""
cboSpeeldag.Value = ""
End With
End Sub
Private Sub UserForm_Initialize()
Dim EndRow As Long, r As Long
With Sheets("Blad9")
EndRow = .Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To EndRow
If .Cells(r, 1).Value <> "" Then
cboSpeeldag.AddItem .Cells(r, 1)
End If
Next
End With
End Sub
Moet ik soms ergens in de bovenstaande code een opmaak voor de datum zetten.
De kolom waar de datums komen staat wel in de juiste datum-notatie.
Grtjs.
Bowlingman