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

Definierte Formate in Variablen ablegen möglich?

Forumthread: Definierte Formate in Variablen ablegen möglich?

Definierte Formate in Variablen ablegen möglich?
Ecki
Hallo Zusammen
Um auf Grund von Zellwerten das Zellenformat zu ändern arbeite ich momentan mit folgendem Code:
If ActiveCell.Offset(i - 1, 0) >= 3 Or ActiveCell.Offset(i - 1, 0) ActiveCell.Offset(i - 1, 0).Interior.Color = RGB(255, 0, 0)
ActiveCell.Offset(i - 1, 0).Font.Color = RGB(255, 255, 255)
Den Fett markierten benötige ich immer wieder, in der Hoffnung den Code insgesamt möglichst leserlich zu halten würde ich die Formatierungen gerne als Variablen nutzen. Ist das möglich?
Ziel wäre es dass der Code ungefähr so aussieht:
If ActiveCell.Offset(i - 1, 0) >= 3 Or ActiveCell.Offset(i - 1, 0) FormatRot
Besten Dank für Eure Hilfe
Gruss Ecki
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Definierte Formate in Variablen ablegen möglich?
02.09.2011 11:41:33
Rudi
Hallo,
schieb das in eine eigene Prozedur.

Sub FormatRot(DerBereich As Range)
With DerBereich
.Offset(i - 1, 0).Interior.Color = RGB(255, 0, 0)
.Offset(i - 1, 0).Font.Color = RGB(255, 255, 255)
End With
End Sub
If ActiveCell.Offset(i - 1, 0) >= 3 Or ActiveCell.Offset(i - 1, 0)

Gruß
Rudi
Anzeige
AW: Definierte Formate in Variablen ablegen möglich?
02.09.2011 14:16:39
Ecki
Besten Dank für deinen Tip Rudi
Nach ein bisschen hin und her und einer kleinen Anpassung funktioniert es bestens.
Für alle die sowas auch benötigen hier noch die Umsetzung bei mir. Ich habe die Sub von Rudi insofern erweitert, dass auch die Variable i als Argument weitergegeben wird.

Sub FormatRot(DerBereich, i)
With DerBereich
.Offset(i - 1, 0).Interior.Color = RGB(255, 0, 0)
.Offset(i - 1, 0).Font.Color = RGB(255, 255, 255)
End With
End Sub
If ActiveCell.Offset(i - 1, 0) >= 3 Or ActiveCell.Offset(i - 1, 0)
So klappt es auch wenn ihr i in einer Schleife verwendet.
Gruss Ecki
Anzeige
;

Forumthreads zu verwandten Themen

summe in variable
lotharP

Hallo,
ich versuche gerade eine Summe direkt in eine Variable zu lesen ohne dabei die Summenformel auf eine Zelle anzuwenden:
DIF = summe("l2:l6553")
Das geht so nicht.
Allerdings müsste es doch ähnlich gehen, oder?!
In der Hilfe bekomme ich nichts heraus,(SUM hatte ich vers...
10.02.2009 14:02:06
Thread-ID: 1049073
6 Beiträge
Anzeige
Die Liste einer ComboBox in Variable speichern?
toni6@gmx.at

Ich habe folgendes Problem, welches ich nicht ganz nachfolziehen kann.
Habe ein Makro, welches mir aus eine Exceldatei bei erfüllen eines Wertes eine bestimmte Zeile löschen soll (Soweit Sogut)
Nur das Problem, sobald das Makro bei
Selection.Delete Shift:=xl
angekommen ist, hüf...
05.03.2009 18:30:44
Thread-ID: 1056982
3 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
Anzeige
Druckbereich in variablen Bereich finden
Dieterlem

Hallo Excelfreunde,
in einem Sheet habe ich einen Bereich (C10:AK211) in dem ein Organigramm dargestellt wird. Da das Organigramm unterschiedliche Größen haben kann variert der Druckbereich.
Ich möchte nun die letzte genutzte Spalte und Zeile finden um damit ein Druckbereich zu definie...
13.05.2009 10:11:56
Thread-ID: 1074733
8 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
leere Zeile in variabler Range suchen
meixner

Hallo zusammen,
wenn eine leere Zelle in einem variablen Bereich gefunden wird, dann nehme den Wert aus der vorherigen Zelle und schreibe diesen Wert in die leere Zelle.
Mit unterem Makro komme ich nicht weiter, da der Bereich fix angegeben ist, während der Bereich eigentlich variabel i...
23.11.2009 20:38:33
Thread-ID: 1119561
3 Beiträge
Formel als Text in Variable schreiben
Frank

Hallo zusammen,
in Zelle A1 habe ich eine einfache Formelverknüpfung in eine andere Datei. Sie sieht so aus:
='\\dfs\es-groups\cor\uhh\blabla\01_Forecast\2009\12_09\[datei.xls]2009'!A1
besteht die Möglichkeit die gesamte Formel (nicht das Ergebnis der Formel) in eine Textvariable zu...
27.11.2009 14:51:54
Thread-ID: 1120544
11 Beiträge
Dateipfad in Variable
chrissey

Hallo Leute,
seid gegrüßt.
Folgende Frage:
Öffne in VBA über Application.Dialogs(xlDialogOpen).Show eine .xls Datei,
jetzt hätte ich gerne den Pfad der dadurch geöffneten Datei in einer Variablen
sagen wir DatPfad.
Ist das möglich?
Bitte um Hilfe.
Danke Euch scho...
08.12.2009 13:22:55
Thread-ID: 1122382
6 Beiträge
Markierter Texteil in Variable einlesen?
Michael

Hallo Zusammen.
Ist es möglich einen Textteil der innerhalb eines Textfeldes vom Anwender markiert wurde in eine Variable einzulesen ?
Hintergrund: in einem Textfeld einer Userform befinden sich manchmal eine, manchmal zwei, bzw. drei Email-Adressen durch Zeilenumbruch getrennt.
Der An...
11.04.2002 15:24:28
Thread-ID: 112498
5 Beiträge
Zellbereich.value A1 bis A30 in Variable
chrissey

Hallo Leut,
ist es sehr schwer eine Variable zu definieren die z.B. alle Werte der Zellen A1 bis A30
enthält.
Hintergrund ist der ich habe im Bereich A1 bis A30 Kundennummern hinterlegt und
hätte jetz gerne eine if schleife die diese prüft
Dim Bereich as ?
if worksheets(...
10.03.2010 14:48:39
Thread-ID: 1144874
4 Beiträge
Anzeige
Zwischenablage in Variable schreiben
marspoki

Hallo,
ich habe noch eine kleine Frage.
Ich möchte gerne einen Wert aus der Zwischenablage in eine Variable schreiben.
Wie kann ich das denn machen?
Vielen Dank schonmal
Beste Grüße
Sebastian
25.03.2010 18:17:45
Thread-ID: 1148552
2 Beiträge
Excel zellformat in Variable speichern
kiron

Hallo!
Ich habe ein kleines Makro geschrieben das folgendermassen funktioniert.
Ich klicke auf eine Schaltfläche in einer selbserstellten Symbolleiste
und die Aktive Zelle wird vergrössert dargestellt. Das heisst Schriftgrösse 20
Schriftart fett, Schriftfarbe Rot.
Jetzt kann...
21.05.2010 12:28:04
Thread-ID: 1158247
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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