Textboxinhalt in mehrere Spalten

Steve · 2018-03-10T09:04:18+00:00

Hallo zusammen, ich bastel die letzten Jahre immer den Urlaubsplan für ca 50 Personen. Bisher habe ich alles mit Excel gemacht. Doch nun möchte ich die tabelle mit VBA ein wenig aufpeppen. Ich habe schon ein bisschen mit VBA herumexperimentiert aber mein Lösung noch nicht so wirklich gefunden. Also: Ich habe einen Bereich, von 50 Zeilen(kollegen) x max 31 Spalten(Monatstage) Wenn jemand in diesen Bereich eine Zelle anklickt, soll sich eine Textbox öffnen, wo er den Abwesenheitsgrund (Krank, Urlaub, Lehrgang,...) als Kürzel (k,u,lg) reinschreibt. Das Kürzel soll dann in die angeklickte Zelle geschrieben werden. Schön wäre es natürlich, wenn in einer zweiten Textbox die Dauer der Abwesenheit eingetragen werden kann, so dass (k,u,lg) dann sooft in die Spalten geschrieben wird. Ich danke euch schonmal im Vorraus ;)

Hallo Steve,
kleine Erweiterung:
-Datum laufender Monat wird aus Zeile 1, ab B1 in eine Combobox eingelesen
-Datum der angeklickten Spalte wird in der Combobox vorausgewählt (spart Scrollen)
Hier noch mal der komplette Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 And Target.Column > 1 Then
Cancel = True
UserForm1.Show
End If
End Sub
Private Sub UserForm_Initialize()
Dim loSpalte As Long
loSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To loSpalte
If Cells(1, i)  "" Then
Me.ComboBox1.AddItem Cells(1, i)
End If
Next i
Me.AbwesenheitBox.AddItem "U"
Me.AbwesenheitBox.AddItem "UX"
Me.AbwesenheitBox.AddItem "916"
Me.AbwesenheitBox.AddItem "916X"
Me.AbwesenheitBox.AddItem "K"
Me.AbwesenheitBox.AddItem "LG"
'Voreinstellen der Listbox mit dem angeklickten Datum
UserForm1.ComboBox1.ListIndex = ActiveCell.Column - 2
End Sub
Private Sub CommandButton1_Click()
Dim loTage As Long
Cancel = True
loTage = CDate(Me.ComboBox1) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + _
loTage)).Value = Me.AbwesenheitBox
Unload Me
End Sub

Gruß Werner

Hallo Steve,
...die kannst du dann in der Größe so anpassen, dass der komplette Monat rein passt, ohne dass die Listbox vertikale oder horizontale Scrollbalken braucht. Zum Übertragen könntest du dann das Doppelklick-Ereignis der Listbox nutzen, Doppelklick auf den Datumseintrag überträgt in die Tabelle. So bräuchtest du noch nicht mal einen separaten Button zum Übertragen der Daten.
Hier mal ein Beispielcode:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim loTage As Long
If Me.AbwesenheitBox  "" Then
loTage = CDate(Me.ListBox1) - CDate(Cells(1, ActiveCell.Column))
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + _
loTage)).Value = Me.AbwesenheitBox
Unload Me
Else
MsgBox "Bitte Abwesenheitsgrund wählen."
End If
End Sub
Private Sub UserForm_Initialize()
Dim loSpalte As Long
loSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To loSpalte
If Cells(1, i)  "" Then
Me.ListBox1.AddItem Cells(1, i)
End If
Next i
Me.AbwesenheitBox.AddItem "U"
Me.AbwesenheitBox.AddItem "UX"
Me.AbwesenheitBox.AddItem "916"
Me.AbwesenheitBox.AddItem "916X"
Me.AbwesenheitBox.AddItem "K"
Me.AbwesenheitBox.AddItem "LG"
'Voreinstellen der Listbox mit dem angeklickten Datum
UserForm1.ListBox1.ListIndex = ActiveCell.Column - 2
End Sub

Deine Beispielmappe kann ich mir im Moment nicht herunter laden, kann im Moment hier keine .xlsm herunter laden.
Gruß Werner

Forumthread: Textboxinhalt in mehrere Spalten

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial