Zeilen und Spalten von Bereich markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Faerben() Dim Z If Not Bereich Is Nothing Then Bereich.Interior.ColorIndex = xlNone Z = Split(Selection.Address, ":") Set Bereich = Selection.EntireRow Set Bereich = Union(Bereich, Selection.EntireColumn) Set Bereich = Intersect(Bereich, Range("A1:" & Z(UBound(Z)))) If Not Bereich Is Nothing Then Bereich.Interior.ColorIndex = 34 End Sub

Option Explicit Public Bereich As Range Sub Faerben() If Not Bereich Is Nothing Then Bereich.Interior.ColorIndex = xlNone Set Bereich = Selection.EntireRow Set Bereich = Union(Bereich, Selection.EntireColumn) Bereich.Interior.ColorIndex = 34 End Sub

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Bereich Is Nothing Then Bereich.Interior.ColorIndex = xlNone End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "Tabelle1" Then Call Faerben End Sub

Hallo Hajo und Reinhard,
Zunächt mal vielen herzlichen Dank für Eure Antworten und für die Geduld. Ich bin erst jetzt dazugekommen, den Vorschlag von Reinhard zu testen.
Schade, das Programm von Reinhard macht fast genau das was ich mit vorgestellt habe, ich kann jedoch nicht darauf verzichten, dass die vorhandenen Farben verbleiben (wie bei Hajo's Fadenkreuz 1).
Man könnte allenfalls den Bereich auf die ersten 200 Zeilen limitieren.
Wenn das zu aufwendig ist, möchte ich lieber das Beispiel "Fadenkreuz 1" von Hajo implementieren.
Da ich von VBA leider keinerlei Erfahrung habe, weiss ich nicht genau wie ich das einbauen soll.
Der Ablauf für meinen Anwendungsfall ist wie folgt:
Aus dem SAP wird ein Download gestartet, der eine Excel Datei auf einem definierten Laufwerk erzeugt, die einen Dateinamen ZL17xxx.xls hat. (xxx ist jedesmal anders).
Anschliessend wird ein Makro (aus Personl.xls) gestartet, das die Formatierung in dieser Datei optimiert.
Muss ich nun Hajo's Programm aus aus Fadenkreuz.xls in die aktive Datei reinkopieren?
Kann ich das irgendwie mit dem bestehenden Makro verbinden, sodass die Formatierung geändert und anschliessend gleich die Fadenkreuz-Funktion importiert wird?
Das bestehende Makro lautet:

Sub Softwarezuordnungen() ' Software Makro ' Makro am 03.10.2006 von HEY aufgezeichnet Columns("A:A").ColumnWidth = 9.57 Columns("B:B").EntireColumn.AutoFit Columns("C:C").EntireColumn.AutoFit Columns("D:D").ColumnWidth = 2.86 Columns("E:E").ColumnWidth = 2.86 Columns("F:F").ColumnWidth = 1.86 Rows("1:1").Select Selection.EntireRow.Hidden = True Range("G2:IV4").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orientation = 90 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Columns.AutoFit Range("G5").Select ActiveWindow.SmallScroll Down:=-9 ActiveWindow.FreezePanes = True ActiveWindow.Zoom = 75 Range("X17").Select ActiveWindow.SmallScroll Down:=-12 Range("G5").Select End Sub

Ich hoffe, ich habe mich verständlich ausgedrückt und warte gespannt auf eine Antwort.
mit besten Grüssen
Markus S.

304 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen

Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!

02.09.2008 13:53:00

Thread-ID: 1006781

9 Beiträge

Änderung Zeilen und Spaltenbezug

lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...

15.09.2008 08:29:55

Thread-ID: 1009654

17 Beiträge

In Zeile suchen und Spalte löschen

Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...

23.10.2008 09:42:32

Thread-ID: 1018520

7 Beiträge

wenn Spalte F nicht leer, ganze Zeile markieren

maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...

19.11.2008 18:37:00

Thread-ID: 1026165

11 Beiträge

Zeilen durchsuchen und alle Spalten auslesen.

LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...

10.12.2008 11:36:41

Thread-ID: 1031637

4 Beiträge

unerklärliche Spalten- und Zeilenköpfe

Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...

15.12.2008 11:58:00

Thread-ID: 1032990

3 Beiträge

Beliebteste Forumthreads (12 Monate)

Zeilen und Spalten von Bereich markieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen und Spalten von Bereich markieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread