HERBERS Excel-Forum - die Beispiele

Thema: Dialogaufruf, wenn zwei Zellen Werte enthalten

Home

Gruppe

Dialog

Problem

Bei Eingaben in Spalte A und B soll jeweils dann, wenn beide Zellen einer Zeile ausgefüllt sind, eine UserForm aufgerufen werden. Die Zellinhalte sind in den in der UserForm auszuwählenden Blättern einzufügen.

Lösung
Den nachfolgenden Code in die benannten Module einfügen.
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column > 2 Then Exit Sub
   If Not IsEmpty(Cells(Target.Row, 1)) And Not _
      IsEmpty(Cells(Target.Row, 2)) Then
      frmSelect.Show
   End If
End Sub

ClassModule: frmSelect

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim intCounter As Integer, intRow As Integer
   For intCounter = 0 To lstSheets.ListCount - 1
      If lstSheets.Selected(intCounter) Then
         With Worksheets(lstSheets.List(intCounter))
            intRow = .Cells(Rows.Count, 1) _
               .End(xlUp).Row + 1
            .Cells(intRow, 1) = ActiveCell _
            .Offset(0, -1).Value
            .Cells(intRow, 2) = ActiveCell.Value
         End With
      End If
   Next intCounter
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim intCounter As Integer
   For intCounter = ActiveSheet.Index + 1 To _
      Worksheets.Count
      lstSheets.AddItem Worksheets(intCounter).Name
   Next intCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox

Listbox filtern Listbox fuellen mit Wert entsprechend Markierung
Listbox Spezial VBA - Listbox in Abhängigkeit füllen
Listbox und .rowsource (ActiveSheet) Doppelte in Listbox zur Auswahl stellen
Listbox viele spalten Absatzzeichen in Textbox und Listbox verhindern
Listbox nach öffnen der Userform füllen Listbox horizontal
ListBox mit CheckBox bei Auswahl Page anzeigen xlDialogInsertHyperlink.show
Vorauswahl in einer Listbox ListBox editieren und in die Tabelle übertragen
Arbeitmappen über Dialogfeld zusammen fassen Daten aus Listbox in Textbox einlesen und zurück i
Eingetragene Zeilen in UF Listbox zählen ListBox-Shape: Zugriff auf ListBox-Eigenschaften
Listbox in UF 5.0 Dialog
Werte in ListBox kopieren Mehrspaltige ListBox füllen
Speichern unter Dialog in Word aufrufen inkl. Pfad ListBox
Druckerdialog Listbox füllen
Listboxeintrag unter Mauszeiger in Listbox scrollen / text in TB teilweise fett
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
Suche nach Einträgen in 2. Spalte der Listbox Inhalt der ListBox in Tabelle kopieren
xlDialogOpen anpassen Suchfunktion für Listbox in Userform integrieren
ListBox1_DblClick Hyperlink öffnen ListBox sortieren
ListBox spaltenüberschriften listbox
Ausgewählte Zelle aus Listbox befüllen ListBox auslesen
Klick in definierten Rangebereich startet Dialog werte aus listbox löschen
daten aus tabelle in listbox listbox
Suche & Listbox listbox
ListBox - Werte nur einmal einlesen Suche in ListBox-Ausgabe ComboBox
Listbox Begriff in ListBox suchen