VBA Lösungsansatz gesucht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim W As Worksheet Dim DD As ComboBox 'Dropdown heissen ComboBox Set DD = ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").OLEFormat.Object DD.Clear For Each W In ThisWorkbook.Worksheets DD.AddItem W.Name Next End Sub

Sub test() Dim W As Worksheet Dim DD 'As ComboBox 'Dropdown heissen ComboBox Set DD = ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").OLEFormat.Object Do While DD.ListCount > 0 DD.RemoveItem (1) Loop For Each W In ThisWorkbook.Worksheets DD.AddItem W.Name Next End Sub

Hallo,
in DieseArbeitsmappe:


Private Sub Workbook_Open()
Dim vntOUT(), i As Integer, wks As Worksheet
ReDim vntOUT(1 To Worksheets.Count - 1)
For Each wks In Worksheets
If Not wks Is Sheets("Ergebnis") Then     'anpassen
i = i + 1
vntOUT(i) = wks.Name
End If
Next
With Sheets("Ergebnis")          'anpassen
.Range("A2:B2").ClearContents
.Range("A2").Activate
.Range("B2").Validation.Delete
With .Range("A2").Validation
.Delete
.Add _
Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Formula1:=Join(vntOUT, ",")
End With
End With
End Sub

ins Modul deines Ergebnisblatts:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntOUT(), i As Integer, wks As Worksheet
ReDim vntOUT(1 To Worksheets.Count - 2)
If Target.Address = "$A$2" Then
For Each wks In Worksheets
If Not wks Is Me And wks.Name  Range("A2") Then
i = i + 1
vntOUT(i) = wks.Name
End If
Next
With Tabelle1.Range("B2")
If .Value = Range("A2").Value Then .ClearContents
.Activate
With .Validation
.Delete
.Add _
Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Formula1:=Join(vntOUT, ",")
End With
End With
End If
End Sub

Die Auswahlen werden in A2 und B2 eingefügt.
Gruß
Rudi

Hallo Rudi,
Vielen Dank für Deinen Code, den ich gerade probiert habe.
Er nutzt dieselbe Technik für den "DropDown", die ich in meiner Lösung auch verwendet habe; lediglich die Ermittlung der Blatt-Namen ist anders.
Bei der Ausführung erhielt ich einen Fehler 1004, Das habe ich dadurch behoben, dass ich das entspechende Blatt ".Selected" habe; war kein Problem.
In der Worksheet_Change-Routine wird eine 2. "DropDown"-Liste aufgemacht. Super. Und das zuvor ausgewählte Blatt fehlt - so wie erwartet. Gratulation.
Den Ablauf habe ich mir allerdings anders vorgestellt: Nach dem Start der entsprechenden Routine werden nacheinander die beiden Blatt-Namen angefordert. Sind beide eingegeben, wird die Routine mit dem geplanten Vergleich fortgeführt.
In der aktuellen Version wird die Start-Prozedur, nachdem die 1. Auswahlliste generiert wurde, beendet.
Die Auswahl über die Drop-Down-Liste erfolgt völlig unkontrolliert. Und nachdem der 2. Blatt-Namen festgelegt wurde. muss der eigentliche Vergleich gestartet werden.
Ich werde auf der Basis Deines Codes die erforderlichen Aktionen in 3 sichtbaren Schritten durchführen:
1. Festlegung des ersten Blattes. Erst wenn dieser Schritt erfolgt ist, kann der 2. Schritt gestartet werden.
2. Festlegung des zweiten Blattes.
3. Eigentliche geplante Verarbeitung
Für mich ist dieses Thema damit erledigt.
Gruß Joschi.

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Lösungsansatz gesucht

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread