Thema Datum  Von Nutzer Rating
Antwort
07.10.2014 12:27:22 SmartyN15
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
Rot Laufzeitfehler 13 Typen unverträglich
 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:
Gast74523		 Datum:
07.10.2014 16:09:49		 Views:
1071		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 13 Typen unverträglich

Mittlerweile bin ich schon einiges weiter:

 

?
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Private Sub CommandButton1_Click()
 
    If TextBox1 <> "" Then
      
            Ausbeute = Me.TextBox2.Value
 
            Range("C13").Activate
 
            Do Until ActiveCell.Value = ""
 
            ActiveCell.Offset(0, 1).Activate
 
            Loop
 
            ActiveCell.Value = Ausbeute
             
    End If
         
            Einsatzmenge = Me.TextBox1.Value
         
            Range("C12").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = Einsatzmenge
             
                 
     
     
     
     
    If TextBox2 <> "" Then
     
            HAPSS_1_Charge = Me.TextBox3.Value
         
            Range("C15").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = HAPSS_1_Charge
     
    End If
                 
            Ausbeute = Me.TextBox2.Value
         
            Range("C13").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = Ausbeute
             
     
     
             
             
             
    If TextBox3 <> "" Then
     
            HAPSS_1_Menge = Me.TextBox4.Value
         
            Range("C16").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = HAPSS_1_Menge
     
    End If
             
            HAPSS_1_Charge = Me.TextBox3.Value
         
            Range("C15").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = HAPSS_1_Charge
             
 
 
 
und so weiter bis:
 
If TextBox28 <> "" Then
     
            Bemerkungen = Me.TextBox29.Value
         
            Range("C52").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = Bemerkungen
             
    End If
             
            Lagerkessel = Me.TextBox28.Value
         
            Range("C51").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = Lagerkessel
             
     
         
                       
 
      
        Bemerkungen = Me.TextBox29.Value
         
            Range("C52").Activate
         
            Do Until ActiveCell.Value = ""
             
            ActiveCell.Offset(0, 1).Activate
             
            Loop
      
            ActiveCell.Value = Bemerkungen
             
           
             
            
                 
    Me.Hide
     
 
End Sub

 

 

Leider trägt er mir nun alles doppelt ein. Habe leider keinen blassen Schimmer wie das alles funktioniert, daher wäre es echt nett, wenn Du mir das mal an meinem Beispiel zeigst, wie Du das meinst. :-)

 

Danke.

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
07.10.2014 12:27:22 SmartyN15
NotSolved
07.10.2014 16:05:55 Gast52488
NotSolved
Rot Laufzeitfehler 13 Typen unverträglich
 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