komme trotz ausführlicher Recherche leider nicht weiter.
Folgendes Problem versuche ich zu lösen:
Im Makro wird in Spalte J nach einem Eintrag "Fehler" gesucht:
Dim zd1%, zd2%
zd1 = Cells(Rows.Count, 1).End(xlUp).Row
For zd2 = zd1 To 1 Step -1
If Cells(zd2, 10) = "FEHLER" Then
Load UserForm1
UserForm1.Show
End If
Next zd2
Wenn ein Eintrag gefunden wurde soll eine UserBox1 geöffnet werden. In dieser UserBox sollen sich zwei TextBoxen mit Werten aus Zellen dieser vorher ermittelten Zeile füllen.
Private Sub UserForm_Initialize()
TextBox_Rubin = Range("H" & zd2)
TextBox_Land = Range("I" & zd2)
End Sub
Hiernach soll ein Wert einer TextBox in eine bestimmte Zelle dieser Zeile geschrieben werden.
Private Sub TextBox_Fracht_Change()
Controls("textbox_fracht").Font.Bold = True
Range("J" & zd2) = TextBox_Fracht
End Sub
Mein Problem ist nun, dass das Makro den Wert von "zd2" nicht mit in die UserForm nimmt. Würde mich über jede Hilfe freuen.
Gruß Jürgen