Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bed.Formatierung VBA

Forumthread: Bed.Formatierung VBA

Bed.Formatierung VBA
Heinz
Schönen Sonntag im Forum
Ich hätte gerne wenn zB. A5 = "Datum" 11.05.2010 dann sollte A4 bis F4 Interior.ColorIndex = 36
Also wenn In Spalte A 5ein Datum steht ;dann A4:F4 =Interior.ColorIndex = 36
Angefangen von A2 bis unendlich.
Bräuchte es per VBA da mit Formel es den Rahmen sprengen würde. Sind mittlerweile bei A3724
Könnte mir bitte jemand helfen ?
Danke & gruß
Heinz
Anzeige
das geht mit If IsDate() ...
16.05.2010 18:04:20
Matthias
Hallo Heinz

Also wenn In Spalte A5 ein Datum steht ;dann A4:F4 =Interior.ColorIndex = 36
Angefangen von A2 bis unendlich. ? Welcher Bereich soll denn bei Datum in A2 gefärbt werden, auch A4:F4 ?
Bräuchte es per VBA da mit Formel es den Rahmen sprengen würde. Sind mittlerweile bei A3724
Welche Zellen soll denn z.B. eingefärbt werden wenn in in A6 ein Datum steht?
Kannst Du die Aufgabe bitte für mich nochmal eindeutiger definieren?
Und wann soll das Ereignis stattfinden, Bei Eingabe in eine Zelle der Spalte A ?
Gruß Matthias
Anzeige
AW: das geht mit If IsDate() ...
16.05.2010 18:18:08
Gerd
Hallo Heinz,
so?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
If Left$(Target.Address, 3) = "$A$" Then
If Target.Row > 1 Then
For Each rngCell In Intersect(Target, Columns(1))
rngCell.Resize(1, 6).Interior.ColorIndex = IIf(IsDate(rngCell.Text), 36, xlColorIndexNone)
Next
End If
End If
End Sub
Gruß Gerd
Anzeige
... mit If IsDate() ... ja ich weiß ;o)
16.05.2010 18:30:52
Matthias
Hallo Gerd
wenn zB. A5 = "Datum" 11.05.2010 dann sollte A4 bis F4 Interior.ColorIndex = 36 ...
Deshalb hatte ich ja nachgefragt :-) !
Gruß Matthias
AW: ... mit If IsDate() ... ja ich weiß ;o)
16.05.2010 18:38:51
Heinz
Hallo Gerd & Matthias
Das Makro funkt. nur in der Spalte wo das Datum eingefügt wurde. Es sollte die Spalten oberhalb vom Datum eingefärbt werden.
Die Spalten A:F wo das Datum steht sebst nicht.
Also wenn In Spalte A5 ein Datum steht ;dann A4:F4 =Interior.ColorIndex = 36
Danke Heinz
Anzeige
Range(Target.Offset(-1, 0), Target.Offset(-1, 3))
16.05.2010 18:52:03
Matthias
Hallo Heinz
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
If IsDate(Target) Then
Range(Target.Offset(-1, 0), Target.Offset(-1, 3)).Interior.ColorIndex = 36
Else
Range(Target.Offset(-1, 0), Target.Offset(-1, 3)).Interior.ColorIndex = xlNone
End If
End If
End Sub

Gruß Matthias
Anzeige
AW: das geht mit If IsDate() ...
16.05.2010 18:46:48
Gerd
Hallo Heinz,
ändere:
rngCell.Offset(-1, 0).Resize(1, 6).Interior.ColorIndex
und ggf.
Target.Row >2
Gruß Gerd
AW: das geht mit If IsDate() ...
16.05.2010 19:10:39
Heinz
Hallo Gerd & Matthias
Habe jetzt die Mappe mit euren Makro hochgeladen.
Leider funkt es nicht wie gewollt.
Danke Heinz
https://www.herber.de/bbs/user/69609.xls
Anzeige
AW: S U P E R !!!
16.05.2010 19:36:33
Heinz
Hallo Matthias & Gerd
Nun Funkt. es wie gewollt !!
Ich bedanke mich recht herzlich bei euch beiden.
Noch einen schönen Sonntagabend.
Gruß
Heinz
Anzeige
AW: noch ein Versuch
17.05.2010 14:49:27
Heinz
Hallo
Nochmals Danke für das Makro.
Nur wenn ich jetzt eine Zeile löschen möchte, (egal ob leer oder mit Werten), kommt immer ein Bugfehler.
Könnte man bitte nicht noch die Fehler einfach abfangen ?
Danke Heinz
AW: On Error Resume Next OT
17.05.2010 16:45:06
Heinz
;

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
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
Anzeige
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
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
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
Anzeige
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige