Zelle finden dann UserForm öffnen
13.09.2024 20:24:09
Excelfan1
ich schon wieder.
Da mir die Schrift in einer MsgBox zu klein ist habe ich das UserForm2 erstellt.
Das UF2 soll sich aber nur öffnen wenn folgendes passiert:
Im UserForm1 gibt es eine ComboBox. Wird eine Auswahl getroffen soll dieser Wert in Spalte O gesucht werden.
Nur wenn in der betreffenden Zeile die Summe der Spalten R:T kleiner dem Wert in Spalte P ist soll sich das UF2 öffnen und dann als Text den Wert der Spalte O und die Summe der Spalten R:T ausgeben.
Mit dem Code
Private Sub ComboBox1_Change()
Dim rng As Range
Dim rng1 As Range
Dim iRow As Range
With Worksheets("Tabelle1")
Set rng = .Range("o8:o14")
For Each iRow In rng.Rows
If ComboBox1.Value > "" Then
If Application.Sum(.Range(.Cells(iRow.Row, 18), .Cells(iRow.Row, 20))) > .Cells(iRow.Row, 16) Then
UserForm2.Show
UserForm2.TextBox1.Text = "Auswahl " & _
Cells(iRow.Row, 15).Text & " " & Application.Sum(.Range(.Cells(iRow.Row, 18), .Cells(iRow.Row, 20))) & " Punkte"
End If
End If
Next iRow
End With
End Sub
In dem Code fehlt also, daß nur die Zeile gefunden werden soll, deren Wert der Spalte O der Auswahl der ComboBox entspricht.
Kann mir bitte jemand helfen.
Datei anbei https://www.herber.de/bbs/user/172195.xlsm
Vielen Dank vorab
Gruß Excelfan1
Anzeige