Thema Datum  Von Nutzer Rating
Antwort
08.12.2008 20:29:42 Simon
NotSolved
08.12.2008 20:31:20 Simon
NotSolved
Rot Aw:Aw:Userform
 08.12.2008 21:05:14 Simon
NotSolved

Ansicht des Beitrags:
Von:
Simon		 Datum:
08.12.2008 21:05:14		 Views:
965		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Userform

Private Sub CommandButton2_Click()
intZeile = ActiveSheet.Cells(1, 12).Value
Worksheets("Tabelle1").Select
ActiveSheet.Cells(intZeile, 10) = TavComboBox1
ActiveSheet.Cells(intZeile, 11) = ComboBox2
ActiveSheet.Cells(intZeile, 12) = ComboBox3

If TavComboBox1 = "" Then ActiveSheet.Cells(intZeile, 10) = "0"
If ComboBox2 = "" Then ActiveSheet.Cells(intZeile, 11) = "0"
If ComboBox3 = "" Then ActiveSheet.Cells(intZeile, 12) = "0"

If OptionButton1 = True Then
strText = "bis 1500€"
End If

If OptionButton2 = True Then
strText = "bis 3000€"
End If

If OptionButton3 = True Then
strText = "bis 4500€"
End If

If OptionButton4 = True Then
strText = "über 4500€"
End If
ActiveSheet.Cells(intZeile, 13) = strText

Me.Hide
End Sub

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Userform 2 : bitte bis morgen mittag stehen lassen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.12.2008 20:29:42 Simon
NotSolved
08.12.2008 20:31:20 Simon
NotSolved
Rot Aw:Aw:Userform
 08.12.2008 21:05:14 Simon
NotSolved