Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code zum Einfärben von Bereichen?

VBA-Code zum Einfärben von Bereichen?
27.10.2014 14:56:00
Bereichen?
Guten Tag zusammen,
ich würde gerne einen bestimmten Bereich eines Arbeitsblatts sehr einfach - am besten mit dem BeforeRightClick-Ereignis - automatisch einfärben. Konkret geht es um einen Bereich der immer in Spalte "UB" endet. Der Beginn des Bereiches kann aber zwischen den Spalten "C" und "UA" schwanken.
Der Bereich ist dabei immer vier Zeilen hoch (es befinden sich mehrere dieser 4-Zeilen-hohen Bereiche auf meinem Blatt). Am besten wäre es, wenn man diese vier Zeilen mit der Maus markiert, und dann mit Rechtsklick den Bereich von dort an bis "UB" einfärbt.
Haben Sie Anregungen für mich?
Mit Dank & Gruß, Patrik

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code zum Einfärben von Bereichen?
28.10.2014 07:24:33
Bereichen?
Moin!
Dieser Code fügt dem Kontextmenü (rechte Maus) einen Menüpunkt hinzu, der dann den 2ten Code ausführt.
Probiers mal aus!
Gruß, MCO 

Sub kontext()
With Application.CommandBars("Cell")
.Reset
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Einfärben"
.OnAction = "Einfärben"
.FaceId = 688
End With
End With
End Sub
Sub einfärben()
'Färbung komplett entfernen
Cells.Interior.ColorIndex = xlNone
'mindestens Spalte 3 ("C")
spalte = WorksheetFunction.Max(ActiveCell.Column, 3)
'Bereich festlegen
Set Rng = Range(Cells(ActiveCell.Row, spalte), Cells(ActiveCell.Row + 3, "UB"))
'Bereich färben
Rng.Interior.ColorIndex = 34
End Sub

Anzeige
AW: VBA-Code zum Einfärben von Bereichen?
28.10.2014 10:13:27
Bereichen?
Hallo MCO,
ich habe Deinen Vorschlag mit einigen Anpassungen ausprobiert. Die Lösung ist weitaus professioneller, als ich mir gewünscht habe! Ganz herzlichen Dank!
Gruß, Patrik

299 Forumthreads zu ähnlichen Themen

VBA-Code auf Smartphone mit Windwos Mobil 6
Thorsten

Hallo zusammen,
kann mir jemand von Euch sagen, ob Makros (VBA) jetzt auf den smartphones mit Windows mobil 6.0 oder 6.1 laufen.
Ich suche dringend eine Möglichkeit, meine Exceltabellen incl. der VBA-Makros auf einem kleinen Mobilen Gerät auszuführen (Smartphone, PDA oder ähnl.), konnte...
24.09.2008 14:45:36
Thread-ID: 1012076
2 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
wo VBA code einfuegen? ins modul?
maxx_1985

Hey Leute,
wo muss ich diesen Code einfuegen, damit er funktioniert? doch in kein modul oder?
Private Sub Open_workbook() Const Blattname = "Overview" Dim z As Range With Sheets(Blattname) .Activate Set z = .Range("a:a").Find(What:="=Tue", LookIn:=xlFormulas) If Not z Is Nothing Then...
03.12.2008 16:10:39
Thread-ID: 1029882
10 Beiträge
Anzeige
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
Schutz von VBA-Codes in Excel
VBA-Codes

Mal eine Frage an die Excel-Profis unter Euch. ;)
Habe nach einer Möglichkeit gesucht für eine umfangreichere VBA-Arbeit meine Codes zu schützen, da Excel selber ja nur rudimentären Schutz bietet der von jedem der sich ein wenig besser auskennt in Sekunden auszuhebeln ist.
Dabei bin ich...
22.04.2009 11:22:36
Thread-ID: 1070279
6 Beiträge
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
4
9
6
3
2
4
5
21
2
5
3
12
2
4
10
6
5
8
8
4
6
4
1