da ich nun schon stundenlang suche und einfach keine funktioniernde Lösung finde, ersuche ich um Unterstützung.
Ich habe folgendes Modul:
Sub test()
Dim i As Long
lz = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lz
If Cells(i, 6).Value = "" Then
Cells(i, 6).Activate
UserForm1.Show
End If
Next
End Sub
Und folgendes Formular/folgede Userform:
Sub OkButton_Click()
MsgBox i
End Sub
Wie bekomme ich nun "i" aus dem Modul dazu in der MsgBox auszugeben zu werden.Alle mein Versuche mit puplic oder ähnlich sind leider bisher kläglich gescheitert.