Spalten formatieren

Forumthread: Spalten formatieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten formatieren

Spalten formatieren

24.01.2007 11: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

AW: Spalten formatieren

24.01.2007 11:54:04

EtoPHG
AW: Spalten formatieren

24.01.2007 12:03:46

Manfred
AW: Spalten formatieren

24.01.2007 12:14:58

EtoPHG
AW: Spalten formatieren

24.01.2007 12:26:26

Manfred

AW: Spalten formatieren

24.01.2007 11:54:04

EtoPHG

Hallo Manfred,
Wieso willst Du da VBA ?
Nimm doch Bedingte Formatierung.
So als Beispiel: https://www.herber.de/bbs/user/39898.xls
Gruss Hansueli

AW: Spalten formatieren

24.01.2007 12: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 12: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

AW: Spalten formatieren

24.01.2007 12:26:26

Manfred

Hi
vielen vielen Dank, genauso hab ich mir es vorgestellt!
Viele Grüße