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:
780		 Rating:
     
Antwort:
 Nein
Thema:
Schleifen Problem

Hi danke dir,

 

das ist nun mein Code

 

    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 :

                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:



  • 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