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:
2302		 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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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