Thema Datum  Von Nutzer Rating
Antwort
Rot Schleifen Problem
 09.01.2015 19:22:14 Monika
NotSolved
09.01.2015 19:26:14 Gast97978
NotSolved
09.01.2015 20:04:33 Gast68989
NotSolved
10.01.2015 10:01:52 Gast20968
Solved

Ansicht des Beitrags:
Von:
Monika		 Datum:
09.01.2015 19:22:14		 Views:
1487		 Rating:
     
Antwort:
  Ja
Thema:
Schleifen Problem

Hallo Liebes Forum,

 

ich habe ein Problem mit diesen Schleifen. 

 

 

?
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
am = 2
imo = 10
imu = 0
 
 
a_C10 = Sheets("Tabelle1").Range("C10").Value
a_C11 = Sheets("Tabelle1").Range("C11").ValueIf a_C10 >= b Then
 
b = UserForm1.txt_3.Value
 
 
 
If a_C10 >= b Then
MsgBox ("Der Wert in der Tabelle ist größer oder gleich")
ElseIf txt_1.Value - am < 0.5 And txt_1.Value + am > 0.5 And txt_2.Value - imo < 0.5 And txt_2.Value + imu > 0.5 Then
Sheets("Tabelle1").Range("C10").Value = txt_3.Value
MsgBox ("Der Wert in C10 wurde geändert")
End If
 
If a_C11 >= b Then
MsgBox ("Der Wert in der Tabelle ist größer oder gleich")
ElseIf txt_1.Value - am < 0.5 And txt_1.Value + am > 0.5 And txt_2.Value - imo < 1.5 And txt_2.Value + imu > 1.5 Then
Sheets("Tabelle1").Range("C11").Value = txt_3.Value
MsgBox ("Der Wert in C11 wurde geändert")
End If

 

 

Im Moment programmiere ich jede Zelle einzeln. Leider muss ich das ganze bis zur Zelle C160 betreiben. Die Gefahr, dass ich da einen Fehler mache ist einfach zu groß. Deshalb möchte ich euch gerne um Hilfe bitten.

 

Da wo jetzt die 1.5 steht würde dann in der nächsten Zelle eine 2,5 stehten und für C11 ein C12 und für a_C11 ein a_C12. 

 

Ich wünsche euch einen schönen Abend 

Monika :)

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 Schleifen Problem
 09.01.2015 19:22:14 Monika
NotSolved
09.01.2015 19:26:14 Gast97978
NotSolved
09.01.2015 20:04:33 Gast68989
NotSolved
10.01.2015 10:01:52 Gast20968
Solved