Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Box

Betrifft: Box von: Hans
Geschrieben am: 15.08.2004 20:27:46

Noch mal Hallo

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
  


Betrifft: AW: Box von: PeterW
Geschrieben am: 15.08.2004 20:48:34

Hallo Nenesis,

bin mir nicht sicher, ob ich dich richtig verstanden habe aber versuch mal das:
Private Sub OptionButton4_Click()
   Dim Loletztt As Long
   Dim varEingabe As Variant
   If OptionButton4 Then
      varEingabe = InputBox("Errechne", "Titel der Box")
      With Worksheets("Tabelle1")
         Loletztt = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
         .Cells(Loletztt, 4) = varEingabe
      End With
   End If
End Sub

Gruß
Peter


  


Betrifft: AW: Box -Danke klapt-OT von: Hans
Geschrieben am: 15.08.2004 20:50:24

.