Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 13 Typen unverträglich
07.10.2014 12:27:22 SmartyN15
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
07.10.2014 16:09:49 Gast74523
NotSolved
07.10.2014 16:24:26 Free
NotSolved
07.10.2014 16:43:46 SmartyN15
NotSolved
07.10.2014 16:44:18 Gast25351
NotSolved
07.10.2014 22:36:11 Gast34382
NotSolved

Ansicht des Beitrags:
Von:
SmartyN15
Datum:
07.10.2014 12:27:22
Views:
1529
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler 13 Typen unverträglich

Hallo,

ich bin absoluter Neuling in VBA und möchte mir in Excel ein UserForm erstellen in das in 29 Feldern werte eingetrage werden, die dann beim Klick auf einen Speichern Button automatisch an die letzte, freie Stelle einer definierten Zeile meiner Tabelle übertragen wird.

Mit folgendem Code funktioniert das auch:

Private Sub CommandButton1_Click()

        
    Dim Einsatzmenge As Double

        Einsatzmenge = Me.TextBox1.Value
        
            Range("C12").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Einsatzmenge
            
            
           
    Dim Ausbeute As Double

        Ausbeute = Me.TextBox2.Value
        
            Range("C13").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Ausbeute
            
  ' usw.......'                        

 
     Dim Bemerkungen As String

        Bemerkungen = Me.TextBox29.Value
        
            Range("C52").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Bemerkungen
            
            
            
                
    Me.Hide
    

End Sub

 

Gebe ich nun aber in eines der 29 Felder nichts ein, dann bekomme ich einen Fehler. Wie kann ich das Problem lösen. Es müsse nicht immer in allen 29 Feldern eingaben getätigt werden.

 

Ich habe es so versuch, bekomme aber immer den oben beschriebenen Laufzeitfehler:

 

Private Sub CommandButton1_Click()

    If TextBox1 <> "" Then TextBox2.SetFocus
        
    Dim Einsatzmenge As Double

        Einsatzmenge = Me.TextBox1.Value
        
            Range("C12").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Einsatzmenge
            
            
    If TextBox2 <> "" Then TextBox3.SetFocus
            
    Dim Ausbeute As Double

        Ausbeute = Me.TextBox2.Value
        
            Range("C13").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Ausbeute

            
  'usw.......'          

 
     Dim Bemerkungen As String

        Bemerkungen = Me.TextBox29.Value
        
            Range("C52").Activate
        
            Do Until ActiveCell.Value = ""
            
            ActiveCell.Offset(0, 1).Activate
            
            Loop
     
            ActiveCell.Value = Bemerkungen
            
            
            
                
    Me.Hide
    

End Sub

 

 

Danke und LG


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
Rot Laufzeitfehler 13 Typen unverträglich
07.10.2014 12:27:22 SmartyN15
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
07.10.2014 16:09:49 Gast74523
NotSolved
07.10.2014 16:24:26 Free
NotSolved
07.10.2014 16:43:46 SmartyN15
NotSolved
07.10.2014 16:44:18 Gast25351
NotSolved
07.10.2014 22:36:11 Gast34382
NotSolved