Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formatierung gesucht

Forumthread: VBA Formatierung gesucht

VBA Formatierung gesucht
20.10.2012 17:43:36
Matze,Matthias
Hallo Zusammen,
es betrifft den Bereich Tabelle4!Range("A3: letzteZeile in Spalte P)
hier versuche ich schon ein Weile das:
A) jede 2te Zeile grau wird , wenn in Spalte A des Bereichs dert Wert größer 0 ist.
b) Jede Zeile die Punkt A) erfüllt, einen Rahmen links/rechts erhält
Dank vorab für Lösungswege( Lösungen
Gruß Matze

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Verständnisproblem !
20.10.2012 17:58:22
Matthias
Hallo Matze
Tabelle4!Range("A3: letzteZeile in Spalte P)
jede 2te Zeile grau wird , wenn in Spalte A des Bereichs dert Wert größer 0 ist. ?
Wie meinst Du das ?
Zeigst Du bitte ein Beispiel wie es aussehen soll.
Gruß Matthias

AW: Verständnisproblem !
20.10.2012 18:09:37
Matze,Matthias
Hi Matthias,
Muster: https://www.herber.de/bbs/user/82217.xlsx
sobald eine neue Zeile hinzu kommt, weiterer Text in Datei
Das mit spalte A ist nicht wichtig hab gedacht das ich damit arbeiten sollte.
Matze

Anzeige
Rest ...
20.10.2012 18:22:38
Matthias
Hallo Matze
Tabelle1

 ABCDEFGHIJKLMNOPQ
2Text1Text2Text3Text4Text5Text6Text7Text8Text9Text10Text11Text12Text13Text14Text15Text16 
31abcabcabcabcabcabcabcabcabcabcabcabcabcabcabc 
42abcabcabcabcabcabcabcabcabcabcabcabcabcabcabcgrau
53abcabcabcabcabcabcabcabcabcabcabcabcabcabcabc 
64abcabcabcabcabcabcabcabcabcabcabcabcabcabcabcgrau
75                
86               grau
97                
108               grau

Formeln der Tabelle
ZelleFormel
Q3=WENN(A3<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q4=WENN(A4<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q5=WENN(A5<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q6=WENN(A6<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q7=WENN(A7<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q8=WENN(A8<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q9=WENN(A9<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))
Q10=WENN(A10<>"";WENN(REST(ZEILE(); 2)=0;"grau";""))

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q31. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q41. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q51. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q61. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q71. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q81. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q91. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
A101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
B101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
C101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
D101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
E101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
F101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
G101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
H101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
I101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
J101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
K101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
L101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
M101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
N101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
O101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
P101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc
Q101. / Formel ist =UND($A3<>"";REST(ZEILE();2)=0)Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: Rest ...
20.10.2012 18:36:13
Matze,Matthias
Hallo Matthias,
ok so soll es sein, besten Dank
Matze
;

Forumthreads zu verwandten Themen

Information aus Excel an Outlook VBA Makro übergeb
Christian

Hallo zusammen,
ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand() D...
17.08.2008 18:48:53
Thread-ID: 1002451
8 Beiträge
Anzeige
bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 Beiträge
Bedingte Formatierung per VBA prüfen?
onkelbobby

Hallo,
in einer Tabelle in Spalte N und O werden zwei Datumswerte angegeben. Mit der Formel
=UND(HEUTE()-N1größer=0;O1-HEUTE()größer=0) (Anm. kann leider keine größer-Zeichen hier angeben)
habe ich als bedingte Fomatierung festgelegt, dass diejenigen Werte, bei denen das heutige Dat...
29.08.2008 12:45:10
Thread-ID: 1005805
6 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Formatierung schützen per VBA ?
Hans

Hallo,
ich habe eine Tabelle erstellt, in denen täglich mehrere Daten eingegeben werden.
Um die Dateneingabe möglichst einfach zu gestalten, habe ich die einzelnen Zellen entsprechend formatiert.
Jedoch wir mir die Formatierung oftmals wieder "zerschossen" meistens unwissentlich vom...
27.10.2008 19:59:59
Thread-ID: 1019733
9 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Kommentare per VBA formatieren?
David

Hallo zusammen,
ist es möglich, Kommentare in einer Datei per VBA auf eine bestimmte Größe zu bringen? Wenn ja, wie lautet dann die entsprechende Syntax?
Hintergrund:
Ich habe in einer alten Datei den Fall, dass die Kommentare (vermutlich aufgrund ausgeblendeter Zellen) auf die Brei...
06.11.2008 14:33:19
Thread-ID: 1022296
3 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige