Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
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
Inhaltsverzeichnis

Nebenstehende Zelle färben

Nebenstehende Zelle färben
06.11.2008 21:17:42
Fred
Hallo zusammen
Ich fülle eine Zelle über eine UF, wie kann ich es erreichen das auch die 4 daneben liegenden Zellen grau gefärbt werden. hier mal mein Code

Private Sub CommandButton2_Click()
Dim AZ As Range
If [G3] = "" Then
Set AZ = [G3]
Else
Set AZ = Cells(Rows.Count, 7).End(xlUp).Offset(2, 0)
With AZ.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
AZ = "AK../." & ComboBox1 & "   " & "Inspektion../." & ComboBox2 & "   " & "BV../." & ComboBox3  _
& "   " & "Aufhaspel../." & ComboBox4 & "    " & " Binder../." & ComboBox5 & "    " & " Abhaspel../." & ComboBox6
'Columns("A:N)").AutoFit
Me.Hide
Unload Me
End Sub


Ich hoffe jemand weiss Rat.
Fred

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nebenstehende Zelle färben
06.11.2008 21:26:00
Tino
Hallo,
teste mal und tausche die Zeile

With AZ.Interior

mit dieser
With Range(az.Offset(0, -4), az).Interior
Gruß Tino
AW: Nebenstehende Zelle färben
06.11.2008 21:34:00
Uduuh
Hallo,
With AZ.Resize(,4).Interior
Gruß aus’m Pott
Udo

AW: Nebenstehende Zelle färben
07.11.2008 09:17:00
Fred
Hallo UDUUH
vielen Dank funzt prima
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige