Thema Datum  Von Nutzer Rating
Antwort
16.10.2012 22:46:32 resa
NotSolved
Blau Excel VBA: Falsche Ausgabe bei If-Abfrage
 17.10.2012 12:51:18 Dekor
NotSolved
17.10.2012 18:31:55 resa
Solved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
17.10.2012 12:51:18		 Views:
1010		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA: Falsche Ausgabe bei If-Abfrage

Hallo resa,

gib ihm doch die Möglichkeit die letzte Bedingung auch auszuführen...

?
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
26
27
Sub test()
   Dim m As Integer
    
   For m = 1 To 20
      'Schleife wird durchgeführt, bis sich die Einträge in Spalte A
      'voneinander unterscheiden
      Do Until Cells(m, 1) <> Cells(m + 1, 1)
         If Cells(m, 2) < Cells(m + 1, 2) Then     'Zelle m+1 in Spalte B löschen,
            Cells(m + 1, 2).Delete                ' wenn diese kleiner ist als die vorherige
         End If
         If Cells(m, 3) < Cells(m + 1, 3) Then     ' Zelle m in Spalte C löschen,
            Cells(m, 3).Delete                    'wenn diese kleiner ist als die vorherige
         End If
         Cells(m, 1).Delete                        'nach erfolgreicher Abfrage wird die
      Loop                                          'entsprechende Zelle in Spalte A auch gelöscht
      If Cells(m + 1, 1) = "" Then
         If Cells(m, 2) < Cells(m + 1, 2) Then     'Zelle m+1 in Spalte B löschen,
            Cells(m + 1, 2).Delete                ' wenn diese kleiner ist als die vorherige
         End If
         If Cells(m, 3) < Cells(m + 1, 3) Then     ' Zelle m in Spalte C löschen,
            Cells(m, 3).Delete                    'wenn diese kleiner ist als die vorherige
         End If
         Cells(m, 1).Delete 
         Exit For                                  'Abbruchbedingung, falls am Ende angekommen
      End If
   Next m
End Sub

Gruß Detlev

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
16.10.2012 22:46:32 resa
NotSolved
Blau Excel VBA: Falsche Ausgabe bei If-Abfrage
 17.10.2012 12:51:18 Dekor
NotSolved
17.10.2012 18:31:55 resa
Solved