Wenn der Curser auf eine beliebige Zelle der Spalte C (active Zelle z.B. C3) gesetzt wird soll eine UserForm1 erscheinen wo ich in einem RefEdit1 einen Zellenbezug (z.B. B2) markieren kann und mir den Wert in die active Zelle einliest.
Option Explicit
Private Sub CommandButton1_Click()
On Error GoTo Abbruch
Variabel = RefEdit1.Value
Sheets("U-Werte").Select
ActiveCell = Zielwert
?????????
Ende = MsgBox("U-Wertabzug wurde eingesetzt!",_
vbOKOnly + vbInformation, "Meldung")
End
Abbruch:
Ende = MsgBox("Vorgang abgebrochen!", vbOKOnly + vbCritical, "Abbruch")
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As Long, Effect As Long, ByVal Shift As Integer)
Variabel = RefEdit1.Value
End Sub
Mit freundlichen Grüssen
Ernst Dunkel