InputBox
14.08.2004 21:52:16
Nenesis
Ich hätte dar noch ne Frage
Ich möchte das sich in einer UserForm wo ich einen ObtionsButton
Anclicke sich eine InputBox Offnet und der wehrt Dan in ein Tabellen blatt kopiert wird und bei der nächsten
Eingabe, in die nächste Zelle kopiert
Hier mein Code
Private Sub CommandButton2_Click()
Dim Loletztt As Long
With Worksheets("Tabelle1")
Loletztt = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(Loletztt, 4) = OptionButton4
End With
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
InputBox "Errechne"
End If
End Sub
Gruß
Nenesis
Anzeige