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

Spalten formatieren

Forumthread: Spalten formatieren

Spalten formatieren
24.01.2007 10:42:37
Manfred
Hallo Zusammen,
ich habe ein Problem, das nicht allzu schwierig sein dürfte.
Und zwar: Ich möchte ein Makro schreiben dass mir die Spalten "P" bis "BE" jeweils abwechselnd mit einem und dann wieder formatiert. Grund: Übersichtlichkeit soll erhöht werden.
Vielleicht kann mir da jemand dabei helfen!
Viele Grüße
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten formatieren
24.01.2007 11:03:46
Manfred
Hi,
das ist mir auch schon eingefallen, aber ich will das in eine UserForm einbauen. Auf das Sheet haben auch Laien zugriff, diese sollen dann einfach auf die Formatierung klicken können, um es ihnen als leicht als möglich zu machen.
Viele Grüße
Anzeige
AW: Spalten formatieren
24.01.2007 11:14:58
EtoPHG
Hallo Manfred,
Probier mal so:

Sub versiv()
Dim ixCol, iFromCol, iNumCols As Integer
iFromCol = InputBox("Ab welcher Spalte:", "Spalten abwechselnd kolorieren", 1)
iNumCols = InputBox("Wieviele Spalten:", "Spalten abwechselnd kolorieren", 1)
If iFromCol < 1 Or iNumCols < 1 Then Exit Sub
For ixCol = iFromCol To (iFromCol + iNumCols) Step 2
ActiveSheet.Columns(ixCol).Interior.ColorIndex = 35    ' Hier Farbe anpassen
Next ixCol
End Sub

Gruss Hansueli
Anzeige
AW: Spalten formatieren
24.01.2007 11:26:26
Manfred
Hi
vielen vielen Dank, genauso hab ich mir es vorgestellt!
Viele Grüße
;

Beliebteste Forumthreads (12 Monate)

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