Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Box

Box
15.08.2004 20:27:46
Hans
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Box
PeterW
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
AW: Box -Danke klapt-OT
15.08.2004 20:50:24
Hans
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige