Thema Datum  Von Nutzer Rating
Antwort
03.07.2007 16:24:28 Sebastian
NotSolved
03.07.2007 21:02:03 Sozu
NotSolved
04.07.2007 06:59:17 Sebastian
NotSolved
Blau Aw:Aw:Aw:bedingte formatierung
 04.07.2007 21:22:48 Sozu
NotSolved

Ansicht des Beitrags:
Von:
Sozu		 Datum:
04.07.2007 21:22:48		 Views:
1114		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:bedingte formatierung
Hi Sebastian,
also aus der eMail wird nix (schlechte Erfahrungen: Musste meine eMail-Adresse schon mal ändern, als ich sie in einem Forum bekannt gegeben habe und anschließend zugemüllt wurde)!
Außerdem hätte ich gar keine Zeit, mich mit deinem Excel rumzuschlagen. Und ein Forum ist dafür da, dass ALLE, die ein ähnliches Problem haben evtl. auch was von der Lösung haben.
Sorry also...!

Nun aber zu deinem Problem:

Mit diesem Makro sollte es laufen:
-------------------------------------------------------------------
Sub Markierung()
Dim zeile As Long

Application.ScreenUpdating = False
Tabelle1.Activate
For zeile = 2 To ActiveSheet.UsedRange.Rows.Count + 1
If Cells(zeile, 9).Value <= Date And IsDate(Cells(zeile, 9).Value) = True Then
Cells(zeile, 9).Interior.ColorIndex = 10
Else
Cells(zeile, 9).Interior.ColorIndex = xlNone
End If
Next zeile
Application.ScreenUpdating = True
End Sub
-------------------------------------------------------------------

Wie bereits in meiner 1.Antwort schlage ich den Ausdruck "UsedRange.Rows.Count" (Benutzte Zeilen) vor um die maximale Zeilenzahl zu ermitteln.
Das "+1" steht nur, da du in deinem Beispiel bei Zeile 2 beginnst und ich nicht weiß, ob in Zeile 1 der Tabelle1 etwas steht. Wenn du dort eine Überschrift stehen hast, kannst du die "+1" ruhig löschen. Sie schadet aber auch nicht. Du könntest sogar "+100" schreiben, es sei den du kämst dadurch auf eine Zeile über 65536 ...

Du kannst natürlich auch solche Ausdrücke wie "ActiveSheet.UsedRange.Cells(1, 1).row" benutzen, um die Reihe der 1. benutzten Zelle zu ermitteln. Um Spalten zu ermitteln benutzt du "UsedRange.Columns.Count" bzw. "ActiveSheet.UsedRange.Cells(1,1).Column" für die 1. Spalte.

Gruß Sozu

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
03.07.2007 16:24:28 Sebastian
NotSolved
03.07.2007 21:02:03 Sozu
NotSolved
04.07.2007 06:59:17 Sebastian
NotSolved
Blau Aw:Aw:Aw:bedingte formatierung
 04.07.2007 21:22:48 Sozu
NotSolved