Farbe ändern
28.11.2012 21:55:34
Linus
Der code löscht quasi den zelleninhalt der nicht gedruckt werden soll.
Ich möchte gern die selektierten Zellen das die Füllung grau bekommen und trotzdem
der wert nicht mitgeduckt wird
hier der code
Sub Zellen_nicht_drucken()
Dim C As Range, myC As Range
Dim Msg As String
Dim myError As Integer, i As Integer, cCounter As Integer
Msg = "Welche/n Bereich/e nicht drucken? (Markierung mit Strg.+Maus):"
myError = 1
cCounter = 0
'Fehlerbehandlung abschalten
On Error Resume Next
Set C = Application.InputBox(prompt:=Msg, Type:=8)
'Fehlerbehandlung zurücksetzen
Error = 0
On Error GoTo Error_Solve
If C Is Nothing Then
Exit Sub
End If
Dim formArr() As Variant
ReDim Preserve formArr(C.Count, 1)
If C.Count > 1 Then
For Each myC In C
formArr(cCounter, 0) = myC.Address
formArr(cCounter, 1) = myC.NumberFormat
cCounter = cCounter + 1
Next myC
End If
C.NumberFormat = ";;;"
ActiveSheet.Range("A18:AH64").PrintPreview
For i = 0 To UBound(formArr())
If formArr(i, 0) = "" Then Exit Sub
Range(formArr(i, 0)).NumberFormat = formArr(i, 1)
Next i
Error_Exit:
Exit Sub
Error_Solve:
Select Case myError
Case 1
MsgBox "Fehlerhafte Bereichselection"
Resume Error_Exit
Case Else
MsgBox Err.Number & "; " & Err.Description
End Select
End Sub
vielleicht könnte mir einer weiterhelfen ...