Via ComboBox gruppieren

Hallo zusammen,
ich komme nicht weiter und weiss auch nicht ob ich da auf dem Holzweg bin.
Ich habe eine Arbeitsmappe mit 30 Tabellenblätter die mit Datum benannt sind. Also z.B. 01.01.22; 02.01.22 bis 30.01.22. Klicke ich jetzt beispielsweise auf die Zelle "A1" öffnet sich eine Userform mit einer TextBox über der ich den Wert festlege z.B. Urlaub oder einen Namen. Via einer Combox möchte ich dann diesen Wert auf den jeweiligen Tabellenblättern auch eintragen. Z. B. Combobox1 "15.01.22" sollten nun alle Tabellenblätter vom ActiveSheet bis zu dem Datum der ComboBox -Auswahl gruppiert werden um so in den ausgewählten Tabellenblättern den Wert Urlaub oder Name in die Zelle "A1" zu schreiben.
Hoffe das ist verständlich. Vielleicht geht es auch einfacher und ich mach es zu kompliziert.
Vllt kann mir ja jemand helfen.
MFG
Everlost03

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() Dim lngIndex As Long, ialngIndex As Long Dim astrSheets() As String ActiveCell.Value = TextBox1.Text If ComboBox1.ListIndex > -1 Then For lngIndex = ActiveSheet.Index To ComboBox1.ListIndex + 1 ReDim Preserve astrSheets(ialngIndex) astrSheets(ialngIndex) = ThisWorkbook.Worksheets(lngIndex).Name ialngIndex = ialngIndex + 1 Next End If If ialngIndex > 1 Then Call Worksheets(astrSheets).FillAcrossSheets(Range:=ActiveCell, Type:=xlFillWithContents) End Sub Private Sub CommandButton2_Click() Call Unload(Object:=Me) End Sub Private Sub UserForm_Initialize() Dim objWorksheet As Worksheet For Each objWorksheet In ThisWorkbook.Worksheets Call ComboBox1.AddItem(pvargItem:=objWorksheet.Name) Next ComboBox1.ListIndex = ActiveSheet.Index - 1 End Sub

Hallo Gerd,
das war, vielen Dank.
Habe jetzt seit 2 Tagen versucht mein letztes Problem zu lösen. Ich habe das Ereignis der UserFrom also wann sie startet auf einen Zellenbereich begrenzt.
Danke nochmal an Nepumuk für den Code.


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C67:E71")) Is Nothing Then
Exit Sub
End If
Call UserForm1.Show
Cancel = True
End Sub

Ich war zwar soweit das beschriebene Zellen nicht überschrieben werden aber eigtl würde ich gern das die nächste freie Zelle aus dem Bereich C67:E71 ausgefüllt wird.
Beispiel: Ich trage im Tabellenblatt 010.01.22 Brasilien auf C67 ein und setzt via ComboBox das Tabellenblatt 20.01.22. Danach trage ich im Tabellenblatt 01.01.22 auf C67 Deutschland ein und setzte das auf 20.01.22 dann würde er jetzt natürlich den alten Eintrag überschreiben. Müsste ich da was über die einzelnen Tabellenblätter regeln oder gibt es eine Möglichkeit in Nepumuks Code was einzubauen wie : Wenn ein Tabellenblatt C67 Inhalt oder gesperrt dann nächste freie Zelle aus dem Bereich C67:E71.
LG
Everlost03

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Const strBereich As String = "C67:E71" Dim C As Range Cancel = Not Intersect(Target, Range(strBereich)) Is Nothing If Cancel Then If WorksheetFunction.CountBlank(Range(strBereich)) > 0 Then If Not IsEmpty(Target) Then For Each C In Range(strBereich) If C.Value = "" Then Application.EnableEvents = False C.Select Application.EnableEvents = True Exit For End If Next End If MsgBox "Call UserForm1.Show" Else MsgBox "Keine freie Zelle in " & strBereich & "!" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Via ComboBox gruppieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread