Thema Datum  Von Nutzer Rating
Antwort
29.01.2019 09:16:45 Bernd
NotSolved
29.01.2019 09:49:39 Gast6352
NotSolved
29.01.2019 14:14:16 Gast52608
NotSolved
30.01.2019 03:23:41 Gast26517
NotSolved
29.01.2019 14:55:21 Werner
NotSolved
Blau  Probleme beim Durcharbeiten mehrerer Tabellenblätter
 29.01.2019 15:09:20 Werner
NotSolved
29.01.2019 18:51:02 Gast8415
NotSolved
30.01.2019 03:43:45 Gast26517
NotSolved
30.01.2019 03:50:46 Gast26517
NotSolved
30.01.2019 11:03:48 Werner
NotSolved
30.01.2019 22:12:21 Bernd
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.01.2019 15:09:20		 Views:
494		 Rating:
     
Antwort:
  Ja
Thema:
Probleme beim Durcharbeiten mehrerer Tabellenblätter

Hallo Bernd,

hier mal ein Makro mit Schleife über alle Blätter. In den einzelnen Blättern wird die letzte belegte Zeile in Spalte O ermittelt. Dann wird in einer Schleife von der letzten belegten Zelle bis zur Zeile 1 nach oben gelaufen. Es wird jeweils geprüft, ob der Wert in der jeweiligen Zeile in Spalte O größer ist als in Spalte P und eine entsprechende Meldung ausgegeben.

Public Sub Test()
Dim ws As Worksheet, loLetzte As Long, i As Long

For Each ws In ThisWorkbook.Worksheets
    With ws
        loLetzte = .Cells(.Rows.Count, 15).End(xlUp).Row
        For i = loLetzte To 1 Step -1
            If .Cells(i, 15) > .Cells(i, 16) Then
                MsgBox ws.Name & " O" & i & " ist größer als P" & i
            Else
                MsgBox ws.Name & " O" & i & " ist nicht größer als P" & i & vbLf _
                & "Ich habe aber keine Ahnung was ich machen soll."
            End If
        Next i
    End With
Next ws
End Sub

Gruß Werner

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
29.01.2019 09:16:45 Bernd
NotSolved
29.01.2019 09:49:39 Gast6352
NotSolved
29.01.2019 14:14:16 Gast52608
NotSolved
30.01.2019 03:23:41 Gast26517
NotSolved
29.01.2019 14:55:21 Werner
NotSolved
Blau  Probleme beim Durcharbeiten mehrerer Tabellenblätter
 29.01.2019 15:09:20 Werner
NotSolved
29.01.2019 18:51:02 Gast8415
NotSolved
30.01.2019 03:43:45 Gast26517
NotSolved
30.01.2019 03:50:46 Gast26517
NotSolved
30.01.2019 11:03:48 Werner
NotSolved
30.01.2019 22:12:21 Bernd
Solved