Nochmal nachfragen Textboxen
04.05.2018 20:17:08
Guesa
Beim letzten Mal habe ich mich wohl sehr unglücklich ausgedrückt, an dieser Stelle Sorry Werner. Also, mit folgendem Code lasse ich meine Tabelle nach einer 1 in Spalte H suchen, wenn gefunden, dann lasse ich mir die Werte aus Spalte A bzw. B usw. der gleichen Zeile anzeigen, läuft auch wunderbar. Da der Text in einer MsgBox sich nicht verändern lässt, wollte ich das ganze mit einer userform und entsprechenden Textboxen realisieren. Finde hier allerdings nichts passendes oder ich seh den Wald vor lauter Bäumen nicht. Also hoffe ich mal wieder auf Eure Hilfe.
Gruß, Guesa
Private Sub Worksheet_Activate()
Dim x&
For x = 3 To 13
If Cells(x, 7) = 1 Then
MsgBox "In " & Cells(x, 4) & " Tagen hat " & Cells(x, 2) & " " & Cells(x, 3) & " Geburtstag."
End If
Next
'-------------------Jubiläum-------------------------------------
For x = 3 To 13
If Cells(x, 8) = 1 Then
MsgBox "In " & Cells(x, 4) & " Tagen hat " & Cells(x, 2) & " " & Cells(x, 3) & " Jubiläum."
End If
Next
End Sub
Anzeige