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:
881		 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....

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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:
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
Rot Schleifen Problem
 09.01.2015 20:04:33 Gast68989
NotSolved
10.01.2015 10:01:52 Gast20968
Solved