UserForm für mehrere Zellen und sheets anwenden
17.11.2019 18:17:42
Leon
ich habe eine Userform gebaut, welche aufploppen soll wenn der Wert 1 oder 2 in zb.: Zelle B5 eingetragen wird.
ich möchte jetzt dass dieses UserForm bei allen Zellen in Spalte B angesprochen wird
ich habe diesen Code für das ansprechen der UserForm wenn in Zelle B5 der Wert 1 oder 2 eingetragen wird
Code:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$B$5" Then Exit Sub
If Range("B5").Value = "1" Or Range("B5").Value = "2" Then
Kundenbefragung_Rec.Show
End If
End Sub
desweiteren soll die Textbox der UserForm immer die gleiche Zeile in Spalte H ansprechen, in der ich gerade in Spalte B arbeite
also z.B.: ich schreibe den Wert 1 in Zelle B7 und dann soll die Textbox meinen Text in Zelle H7 eintragen
Code
Private Sub CommandButton1_Click()
'Textbox ist leer, Fehler zeigen
If Kundenbefragung_Rec.Begründung = "" Then
MsgBox "bitte Begründung eingeben"
'wenn in Textbox was steht, dann ?bertragen und Popup schließen
Else
ActiveSheet.Range("H5").Value = Kundenbefragung_Rec.Begründung
Unload Kundenbefragung_Rec
End If
End Sub
Gruß
Leon
Anzeige