Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
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
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Buchstaben eintragen

Buchstaben eintragen
22.04.2003 14:41:02
Werner
Hallo Leute

mit diesem Makro trage ich in Zellen die Hintergrungfarbe ein.
nun möchte ich das in dieser Zelle auch gleich ein E mit eingetragen wird.
Wie kann ich das machen.


Sub farbe_gruen()
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 4

End With
End Sub


Werner


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Buchstaben eintragen
22.04.2003 14:53:21
ChrisL

Hallo Werner

Geht so...

Sub farbe_gruen()
ActiveSheet.Unprotect
With Selection
.Interior.ColorIndex = 4
.Value = "E"
End With
End Sub


n.b. wenn du den Blattschutz entfernst macht es vermutlich Sinn, diesen anschliessend wieder zu erstellen.

Sub farbe_gruen()
ActiveSheet.Unprotect
With Selection
.Interior.ColorIndex = 4
.Value = "E"
End With
ActiveSheet.Protect
End Sub


Gruss
Chris

Re: Buchstaben eintragen
22.04.2003 14:53:28
Till_Eulenspiegel603

versuch mal das:

Sub farbe_gruen()

Selection.Value = "E"
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 4
End With

End Sub

Anzeige
Re: Buchstaben eintragen
22.04.2003 14:57:35
Willie

Sub farbe_gruen()
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 4

End With
ActiveCell.value = "E"
End Sub

Re: Buchstaben eintragen
22.04.2003 15:00:20
Werner

danke für die schnelle hilfe.

Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige