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

Ansicht des Beitrags:
Von:
Gast20968		 Datum:
10.01.2015 10:01:52		 Views:
950		 Rating:
     
Antwort:
 Nein
Thema:
Schleifen Problem

Hi danke dir,

 

das ist nun mein Code

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim lngRow As Long
Dim sngIncr As Single
Dim am As Single, imo As Single, imu As Single
am = 2
imo = 10
imu = 0
    sngIncr = 0.5
    For lngRow = 10 To 160
        With UserForm1
            If Worksheets("Tabelle1").Cells(lngRow, 3).Value >= .txt_3.Value 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 < sngIncr And .txt_2.Value + imu > sngIncr Then
              Worksheets("Tabelle1").Cells(lngRow, 3).Value = .txt_3.Value
              MsgBox "Der Wert in " & Worksheets("Tabelle1").Cells(lngRow, 3) & " wurde geändert"
            End If
        End With
        sngIncr = sngIncr + 1!
    Next

Leider funktioniert der Teil :

?
1
2
If Worksheets("Tabelle1").Cells(lngRow, 3).Value >= .txt_3.Value Then
  MsgBox "Der Wert in der Tabelle ist größer oder gleich"

nicht, das heiß er überschreibt die Werte trotzdem. Ich hab leider absolut keine Ahnung warum er das macht :( Ich benutzte Excel 2013, vielleicht könntest du mir noch mal einen Tipp geben :)

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