Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile und alle Spalten formatieren

Betrifft: Zeile und alle Spalten formatieren von: Wolfi
Geschrieben am: 10.09.2004 19:38:02

Hallo Zusammen,

hab ein kleines Problem:

ich möchte mit folgender Routine (geht noch weiter)
Daten aus einem anderen Blatt auf ein neues übernehmen das klappt auch. Aber dabei möchte ich auch gleichzeitig die Zellen formatieren mit:
Range("A" & zeile).Interior.ColorIndex = 31
geht das leider nur für eine Zeile und Spalte.
Ich möchte das aber für die entsprechende Zeile und alle Spalten.

Also z.B. Range("A:Z" & zeile).Interior.ColorIndex = 31
aber das klappt nicht

Wie muss ich das machen?

Gruß und Danke Wolfi




For Each rw In wks_Process.Rows
Tp = rw.Cells(32)
Debug.Print Tp

ElseIf Tp = "PPStage" Then

Name = rw.Cells(2)

wks_SAP_Export.Activate

Range("A" & zeile).Interior.ColorIndex = 31
Range("A" & zeile).Font.ColorIndex = 0
Range("A" & zeile).Font.Bold = True
Range("A" & zeile) = Name
next

  


Betrifft: AW: Zeile und alle Spalten formatieren von: GraFri
Geschrieben am: 10.09.2004 19:47:51

Hallo

Versuch mal

Range("A" & zeile & ":Z" & zeile).Interior.ColorIndex = 31


Mit freundlichen Grüßen, GraFri


  


Betrifft: AW: Zeile und alle Spalten formatieren von: Wolfi
Geschrieben am: 10.09.2004 19:59:16

Hallo GraFri,

das ist es. Es klappt.

Vielen Dank.

Warum bekomm ich das nie selbst hin.

Gruß Wolfi


 

Beiträge aus den Excel-Beispielen zum Thema "Zeile und alle Spalten formatieren"