Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

CommandButton | Herbers Excel-Forum


Betrifft: CommandButton von: Volker
Geschrieben am: 18.12.2009 12:55:33

Hallo zusammen,
Dank Björn B. bin ich ein ganzes Stück weiter gekommen. Jetzt wirft sich (leider) eine neue Frage auf:
Hier der Code von Björn B. (bis zum fett geschriebenen)

Dim i As Integer

Do
If ActiveCell.Offset(0, i) = "" Then 'Zeit übernehmen
ActiveCell.Offset(0, i) = ComboBox2

Exit Sub
Else
i = i + 1
End If

Loop While ActiveCell.Offset(0, i - 1) <> ""

UserForm1.CommandButton2 = True

End Sub

Auf der Userform befinden sich die CommandButtons. Manuell funktioniert das was ich vorhabe. Allerdings nicht wenn ich den zweiten CommandButton über den Code aufrufen lasse.

Kann mir jemand sagen warum das nicht funktioniert?

Danke und Gruß
Volker

  

Betrifft: AW: CommandButton von: Philipp
Geschrieben am: 18.12.2009 13:08:32

Hallo.

Was soll den mit dem Button passieren. Willst du ihn activieren oder was oder willst du die userform aufrufen auf dem sich der Button befindet.

Sub test
Userform1.show
End Sub
philipp


  

Betrifft: AW: CommandButton von: Volker
Geschrieben am: 18.12.2009 13:13:34

Hallo Phillip,
Danke für Deine Antwort.
Ich möchte den CommandButton aktivieren, so das Björn's Code noch einmal mit anderen Werten durchläuft.
Wie gesagt, manuell funktioniert die Übergabe, lediglich die "Fernsteuerung" nicht und das verstehe ich nicht.

Gruß
Volker


  

Betrifft: AW: CommandButton von: Rudi Maintaire
Geschrieben am: 18.12.2009 13:12:42

Hallo,
einfach
CommandButton2_Click

Gruß
Rudi


  

Betrifft: AW: CommandButton von: Volker
Geschrieben am: 18.12.2009 13:18:41

Hallo Rudi,
Danke für Deine Antwort,

Das mit "CommandButton2_Click" hatte ich Dank Recherche auch schon probiert, aber ebenfalls ohne
Erfolg.

Gruß
Volker


  

Betrifft: AW: CommandButton von: Reinhard
Geschrieben am: 18.12.2009 13:24:40

Hallo Volker,

eine UF mit 2 CB, Modul der UF steht

Private Sub CommandButton1_Click()
CommandButton2_Click
End Sub

Private Sub CommandButton2_Click()
MsgBox "CB2"
End Sub
Bei Klick auf CB1 kommt die MsgBox.

Zeige mal deinen derzeitigen Komplettcode der UF.

Gruß
Reinhard


  

Betrifft: AW: CommandButton von: Volker
Geschrieben am: 18.12.2009 13:29:54

Hallo Reinhard,
hier der gesamte Code:


Private Sub Calendar1_Click()
With Me.TextBox1
TextBox1.Value = Calendar1
End With
End Sub

Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "hh:mm;@ ")
End Sub

Private Sub CommandButton1_Click()
  If Me.TextBox1.Value <> "" Then
       If IsDate(Me.TextBox1.Value) Then
          With Worksheets("Kalender").Range("A1:A380")
             Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, LookAt:=xlWhole)
             If Not rZelle Is Nothing Then
                .Range("A" & rZelle.Row).Select
             End If
          End With
       End If
    End If

Dim i As Integer

Do
 If ActiveCell.Offset(0, i) = "" Then             'Zeit übernehmen
   ActiveCell.Offset(0, i) = ComboBox2
   
      Exit Sub
 Else
   i = i + 1
 End If
 
Loop While ActiveCell.Offset(0, i - 1) <> ""

CommandButton2_click


End Sub
Private Sub CommandButton2_Click()          'Text übernehmen

 Dim i As Integer
'MsgBox "Bin Da!"
Do
 If ActiveCell.Offset(0, i) = "" Then
   ActiveCell.Offset(0, i) = ComboBox1
      Exit Sub
 Else
   i = i + 1
 End If
Loop While ActiveCell.Offset(0, i - 1) <> ""

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub
Danke und Gruß
Volker


  

Betrifft: AW: CommandButton von: Rudi Maintaire
Geschrieben am: 18.12.2009 13:39:03

Hallo,
du verlässt hier

Do
 If ActiveCell.Offset(0, i) = "" Then             'Zeit übernehmen
   ActiveCell.Offset(0, i) = ComboBox2
   
      Exit Sub
 Else
   i = i + 1
 End If
 
Loop While ActiveCell.Offset(0, i - 1) <> ""

ja auch den Code. Kann ja nicht klappen.
Ändere Exit Sub in Exit Do.

Gruß
Rudi


  

Betrifft: AW: CommandButton von: Volker
Geschrieben am: 18.12.2009 13:45:58

Hallo Reinhard,

Da wäre ich niemals drauf gekommen.

Gruß
Volker


  

Betrifft: wieso Reinhard? owT von: Rudi Maintaire
Geschrieben am: 18.12.2009 13:57:36




  

Betrifft: AW: wieso Reinhard? owT von: Volker
Geschrieben am: 18.12.2009 15:07:37

Hallo Rudi, mia culpa tut mir leid :-((((((((((((
Gruß
Volker


Beiträge aus den Excel-Beispielen zum Thema "CommandButton"