Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zellen färben wenn Wert
08.07.2007 20:00:00
Werner
Hallo, wer kann helfen.
Suche im Archiv ergab hunderte Beispiele aber das richtige habe ich nicht gefunden.
Kopiere die Werte aus aktiver Tabelle und möchte sie in Tabelle 6 einfügen, wobei die Anzahl der mit Zahlen beschriebenen Zellen immer unterschiedlich ist. Nur die Zellen, in denen Zahlen stehen sollen gefärbt werden.
gruß Werner

Private Sub CommandButton1_Click()
Range("B2:J10").Copy
Tabelle6.Select
Range("Druck1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen färben wenn Wert
08.07.2007 20:03:44
Hajo_Zi
Hallo WEerner,
benutze doch Format, bedingte Formatierung.

AW: Zellen färben wenn Wert
08.07.2007 20:20:00
Werner
Hajo, die Antwort habe ich eigentlich erwartet erwartet.
Ich möchte die freien Zellen nach dem Kopieren ausfüllen, aber durch die Färbung sichtbar erhalten, welche ich mit Werten übernommen habe.
Werner

AW: Zellen färben wenn Wert
08.07.2007 20:54:00
Gerd
Hallo Werner,
so z.B. (Rang("Druck1") muss hier die selbe Größe haben wie Range("B2:J10").
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Range("B2:J10").Copy
Tabelle6.Range("Druck1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
For Each rngZelle In Tabelle6.Range("Druck1")
If IsNumeric(rngZelle) And Not (IsDate(rngZelle)) Then
If rngZelle.Value 0 Then
rngZelle.Interior.Color = vbYellow
End If
End If
Next
Tabelle6.Activate
Tabelle6.Range("A1").Select
Gruß Gerd

Anzeige
AW: Zellen färben wenn Wert
08.07.2007 21:09:31
Werner
Hallo Gerd,
Funktioniert wie erhofft, Danke!
mfg Werner

AW: Zellen färben wenn Wert
08.07.2007 21:50:00
Daniel
Hi
so könnte es gehen (ich habs aber nicht getestet)
die verwendete Funktioin .SPECIALCELLS entspricht in Excel der Aktion: BEARBEITEN - GEHE ZU - INHALTE - KONSTANTEN - ZAHLEN
(falls du es mal mit dem Recorder nachvollziehen willst)

Private Sub CommandButton1_Click()
Range("B2:J10").Copy
Tabelle6.Select
with Tabelle6.range("Druck1").resize(Range("B2:J10").rows.count, Range("B2:J10").columns. _
count)
.PasteSpecial Paste:=xlPasteValues
.SpecialCells(xlCellTypeConstants, 1).interior.colorindex = 5
end with
Application.CutCopyMode = False
Range("A1").Select
End
End Sub


Gruß, Daniel

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige