Start UserForm
Konrad
kann mir jemand helfen, wo und vor allem was ich in diesem Code einfügen muß, um die untenstehende UserForm zum Starten zu bringen?
Sub Rechnen()
Dim rngG As Range
Set rngG = Cells(Selection.Row, 7)
If rngG "" And rngG 0 Then
Select Case Selection.Column
Case Is >= 8
Selection.FormulaLocal = _
IIf(Left(Selection.FormulaLocal, 1) = "=", "", "=") & _
Selection.FormulaLocal & "+" & rngG
Case 6
Selection.FormulaLocal = _
IIf(Left(Selection.FormulaLocal, 1) = "=", "", "=") & _
Selection.FormulaLocal & "-" & rngG
End Select
End If
End Sub Die UserForm sollte nur dann öffnen, wenn es etwas zu Rechnen gibt, sprich die genannten Bedingungen (markierte Zelle im zulässigen Bereich, Zellinhalt in Reihe 7 "" und 0.
Private Sub CommandButton1_Click()
Rechnen
End Sub
Private Sub CommandButton2_Click()
Hide
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim lCol As Long, lRow As Long
lCol = Selection.Column
lRow = Selection.Row
Label1 = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Cells(lRow, 1).Resize(, _
_
_
_
_
7).Value)), "|")
Label2 = Join(WorksheetFunction.Transpose(Cells(4, lCol).Resize(3)), "|")
Label3 = Selection(1)
Label4 = Cells(lRow, 7)
End Sub
Grüße
Konrad