Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige