UserForm, TextBox mit 2 Bedingungen

Hallo, ich hab Excel Datei mit 4 Arbeitsblättern. Auf dem 2. Arbeitsplatt hab ich eine UserForm die Daten in das 4. Arbeitsblatt "Datenbank" einfügen soll.
In dieser UserForm ist eine ListBox mit Kalender (template), sowie 2 Buttons und dazugehörige Textfelder integriert.
Ich möchte, dass wenn ich in der ListBox ein Namen auswähle und ein Datum vom Kalender anklicke, dass ich in einen der beiden Textboxen eine Zahl 0-24 eingeben kann und diese dann Speichern.
Die soll aber nicht irgendwo gespeichert werden, sondern in der entsprechenden Zelle auf dem Arbeitsblatt "Datenbank" wo sich der Name in der Zeile befindet und das Datum in der Spalte.
Das brauche ich quasi 2 mal (einmal für "Stunden eingereicht" und "Stunden aufgebaut")
Des weiteren möchte ich auch, dass mir wenn ich Name und Datum ausgewählt habe, dass mir auch der entsprechende Eintrag in der/den Zeilen angezeigt wird, sollte dort nichts drin stehen, dann soll dort eine 0 stehen.
Ich hoffe, dass ich mich verständlich ausgedrückt habe und wollte mal fragen ob das möglich ist. Wenn ja würde ich mich über Hilfe freuen.
Mit der ListBox bin ich fertig geworden, dank YouTube :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also, dank deiner Hilfe konnte ich das so Editieren, dass ich beide TextBoxen sowie beide CommandButtons nutzen konnte.
Jetzt müsste mir nur noch in der TextBox auch die Zahl angezeigt werden, sofern dort eine Zahl von 0-24 steht und eine Fehlermeldung sobald ich auf den Button Klicke, aber vergessen Habe den "Namen" oder "Datum" auszuwählen

Option Explicit

Dim Calendar1 As Object

Private Sub UserForm_Initialize()

'Calendar einlesen   

Set Calendar1 = New cCalendar

Calendar1.Add_Calendar_into_Frame Me.Frame1

'ListBox befüllen       'Additem 

ListBox1.ColumnCount = 2

ListBox1.ColumnWidths = "70;80" 

Dim i As Integer

Dim x As Integer

Dim sh As Worksheet   

Set sh = Sheets("Datenbank")

For i = 4 To 83

If sh.Cells(i, 13)  "" And sh.Cells(i, 14)  "" Then

ListBox1.AddItem sh.Cells(i, 13)

ListBox1.List(x, 1) = sh.Cells(i, 14)

x = x + 1

End If

Next i   

End Sub

Private Sub DatumEingereicht()

Dim i As Long, j As Long, k As Long, varName1 As String, varName2 As String

varName1 = ListBox1.List(ListBox1.ListIndex, 0)

varName2 = ListBox1.List(ListBox1.ListIndex, 1)

With Tabelle4

For i = 16 To 381

If .Cells(3, i) = Calendar1.Value Then j = i

Next i         

For i = 4 To 83

If .Cells(i, 13) = varName1 Then

If .Cells(i, 14) = varName2 Then

k = i

GoTo schreiben

End If

End If

Next i

schreiben:

.Cells(k, j) = CDbl(TextBox1)     

End With   

End Sub

Private Sub DatumAufgebaut()

Dim i As Long, j As Long, k As Long, varName1 As String, varName2 As String

varName1 = ListBox1.List(ListBox1.ListIndex, 0)

varName2 = ListBox1.List(ListBox1.ListIndex, 1) 

With Tabelle4

For i = 382 To 748

If .Cells(3, i) = Calendar1.Value Then j = i

Next i         

For i = 4 To 83

If .Cells(i, 13) = varName1 Then

If .Cells(i, 14) = varName2 Then

k = i

GoTo schreiben

End If

End If

Next i

schreiben:

.Cells(k, j) = CDbl(TextBox2)      

End With  

End Sub

Private Sub CommandButton1_Click()

'Button1 eingereicht                         

DatumEingereicht

End Sub

Private Sub CommandButton2_Click()

'Button2 aufgebaut                            

DatumAufgebaut

End Sub

Private Sub CommandButton3_Click()

'Button3 beenden

Unload Stunden

End Sub

Private Sub DatumEingereicht() Dim i As Long, j As Long, k As Long, varName1 As String, varName2 As String If ListBox1.ListIndex 0 Then .Cells(k, j) = CDbl(TextBox1) Else MsgBox "Es sind nur Werte zwischen 1 und 24 zulässig" End If End With End Sub

Private Sub DatumAufgebaut() Dim i As Long, j As Long, k As Long, varName1 As String, varName2 As String If ListBox1.ListIndex 0 Then .Cells(k, j) = CDbl(TextBox2) Else MsgBox "Es sind nur Werte zwischen 1 und 24 zulässig" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

UserForm, TextBox mit 2 Bedingungen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm, TextBox mit 2 Bedingungen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread