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

Ansicht des Beitrags:
Von:
Gast68989		 Datum:
09.01.2015 20:04:33		 Views:
749		 Rating:
     
Antwort:
  Ja
Thema:
Schleifen Problem

Hallo,

da ich Deine Daten nicht kenne ungetested, aber mußt Du mal mit rumbasteln...
Dir werden dann allerdings 150x Msgboxen angezeigt, weiß nicht ob das so gewollt ist....

Option Explicit

Public Sub untested()
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 Workheets("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 < sngIncr And .txt_1.Value + am > sngIncr And .txt_2.Value - imo < sngIncr And .txt_2.Value + imu > sngIncr Then
              Workheets("Tabelle1").Cells(lngRow, 3).Value = .txt_3.Value
              MsgBox "Der Wert in " & Workheets("Tabelle1").Cells(lngRow, 3) & " wurde geändert"
            End If
        End With
        sngIncr = sngIncr + 1!
    Next
End Sub

Gruß,

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
Rot Schleifen Problem
 09.01.2015 20:04:33 Gast68989
NotSolved
10.01.2015 10:01:52 Gast20968
Solved