Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bereich erweitern
zurück: .Formula oder FormulaR1C1 mit Summe( varbiablerBereich) weiter: Blatt defenieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bernd1306
Gast


Verfasst am:
20. Nov 2010, 12:22
Rufname:

Bereich erweitern - Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hallo Exelexperten,

ich habe mir einen Code bebaut, der die Zeile nach Datums absucht und farbig markiert. Funktioniert auch, aber ich schaffe es einfach nicht wenn Bedingung erfüllt ist, das in der gleichen Spalte in den nächsten 10 Zeilen die Zelle farbig wird.
Code:
Sub Farben_aktualisieren()

Dim Zelle As Variant
For Each Zelle In Sheets("Monatsübersicht").Range("C34:AG34")
If Weekday(Zelle) = 7 Then
With Zelle
.Interior.ColorIndex = 6
End With
ElseIf Weekday(Zelle) = 1 Then
With Zelle
.Interior.ColorIndex = 44
End With
ElseIf Month(Zelle) <> Range("a34").Value Then
With Zelle
.Interior.ColorIndex = 15
End With
Else
Zelle.Interior.ColorIndex = 0
End If
Next

End Sub


Immer wenn ich den Bereich einfüge kommt ein Fehler.
Code:
Range ( 0, 1).Interior.ColorIndex = 15


Wer kann helfen.

Gruß Bernd[/code]
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Nov 2010, 12:26
Rufname: Phelan


AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

wo fügst du den denn bitte ein?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
20. Nov 2010, 12:41
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hi,
immer vor End with

Gruß Bernd
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Nov 2010, 12:59
Rufname: Phelan

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Welche Zelle soll das denn bitte sein?

Code:
Range ( 0, 1).

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
20. Nov 2010, 13:16
Rufname:


AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hi,
die gleiche Spalte und eine Zeile weiter.

Gruß Bernd
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Nov 2010, 13:18
Rufname: Phelan

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

wahrscheinlich meinst du das hier:
Code:
Zelle.Offset(0,1).Interior.ColorIndex = 3

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
20. Nov 2010, 13:22
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hi, versuch's mal so:
Code:

With Zelle
    Range(.Address & ":" & .Offset(9, 0).Address).Interior.ColorIndex = 6
End With

Gruß Frank
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Nov 2010, 13:25
Rufname: Phelan

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Ich meinte natürlich so:
Code:
Zelle.Offset(0,1).Interior.ColorIndex = 3

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
20. Nov 2010, 13:26
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

ja genau, aber es passiert nichts
Gruß Bernd
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Nov 2010, 13:29
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hi

kennst du die Resize-Funktion ?

Zelle.Offset(1,0).Resize(10).Interior.Colorindex = 6

Gruß, Daniel
Gast



Verfasst am:
20. Nov 2010, 13:39
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hi Frank,
Danke, genau sollte es sein.

Gruß Bernd
Gast



Verfasst am:
20. Nov 2010, 13:40
Rufname:

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hallo Daniel,

kenne ich nicht, aber bin Anfänger.

Gruß Bernd
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Nov 2010, 13:42
Rufname: Phelan

AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Ur - Ur - Ursprünglich meinte ich es doch so:
Code:
Zelle.Offset(1,0).Interior.ColorIndex = 3

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
20. Nov 2010, 14:31
Rufname:


AW: Bereich erweitern - AW: Bereich erweitern

Nach oben
       Version: Office XP (2002)

Hallo Daniel,

habe Deinen Code mal probiert, geht auch, ist aber schneller wie méine Überschriftzeile, und wenn um Schluß die alte Fformatierung gelöscht wird, sieht man wie die Zellen abgearbeitet werden. Kann das sein, und warum ist dein Code schneller?

Gruß Bernd
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel erweitern?? 2 Kiringer 505 28. Sep 2006, 14:51
Kiringer Formel erweitern??
Keine neuen Beiträge Excel Formeln: Bereich sortieren? 3 Gast 724 28. Jun 2006, 18:54
< Peter > Bereich sortieren?
Keine neuen Beiträge Excel Formeln: Formel erweitern 7 Thomson 604 26. Apr 2006, 19:24
Thomson Formel erweitern
Keine neuen Beiträge Excel Formeln: Wenn Formel erweitern 2 ebayer 877 02. Apr 2006, 03:04
ebayer Wenn Formel erweitern
Keine neuen Beiträge Excel Formeln: Vergleicher erweitern 2 dbernhard 487 28. März 2006, 19:47
Klaus-Dieter Vergleicher erweitern
Keine neuen Beiträge Excel Formeln: Bereich autom. anpassen lassen 3 Detlef 42 822 06. März 2006, 21:45
Detlef 42 Bereich autom. anpassen lassen
Keine neuen Beiträge Excel Formeln: wenn-formel erweitern 16 Klaus D. 1493 04. März 2006, 23:59
Klaus D. wenn-formel erweitern
Keine neuen Beiträge Excel Formeln: Mittelwert bei nicht zusammenhängendem Bereich 8 tom_r 922 15. Nov 2005, 13:04
tom_r Mittelwert bei nicht zusammenhängendem Bereich
Keine neuen Beiträge Excel Formeln: Summenbildung für den Bereich von Anfang bis Ende 11 Dan0032 1108 19. Jul 2005, 08:05
Dan0032 Summenbildung für den Bereich von Anfang bis Ende
Keine neuen Beiträge Excel Formeln: Kann man Bereich an Zellen in A3-Größe ausdrucken? 3 landau666 2119 14. Jun 2005, 22:57
fl618 Kann man Bereich an Zellen in A3-Größe ausdrucken?
Keine neuen Beiträge Excel Formeln: Networkdays(Bereich;Feiertage) ergibt 254 anstatt 253 17 Aloha 8667 31. Mai 2005, 20:48
Aloha Networkdays(Bereich;Feiertage) ergibt 254 anstatt 253
Keine neuen Beiträge Excel Formeln: Formel erweitern, so dass das Ergebnis eingeschränkt wird 6 Richyf 598 12. Feb 2005, 20:34
AnBo Formel erweitern, so dass das Ergebnis eingeschränkt wird
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage